Easy-Micro


ESPACEMEMBRE Projet VBA
Saisie dynamique

Projet VBA

VBA Saisie du module du bouton Enregistrer

Procédure (à saisir dans le module GestionDeFrais) à appeler depuis la procédure du bouton enregistrer
Sub proc_stocker_les_données()

Range("A2").Value = frm_nouvelle_fiche_de_frais.cal_date.Value
Range("B2").Value = frm_nouvelle_fiche_de_frais.cbo_motif.Value
Range("C2").Value = frm_nouvelle_fiche_de_frais.txt_montant.Value

End Sub

Il faut récupérer la première ligne vide pour les autres saisies. Dans un premier temps, on remplace le numéro de la ligne par une variable.

Option Explicit
Dim var_premierelignevide As Integer

Sub proc_stocker_les_données()
var_premierelignevide = 2

Range("A" & var_premierelignevide).Value = frm_nouvelle_fiche_de_frais.cal_date.Value
Range("B" & var_premierelignevide).Value = frm_nouvelle_fiche_de_frais.cbo_motif.Value
Range("C" & var_premierelignevide).Value = frm_nouvelle_fiche_de_frais.txt_montant.Value
End Sub

Calcul de la premère ligne vide ( à rajouter en haut de la procédure ci-dessus, proc_stocker_les_données ) :
var_premierelignevide = 2

If Range("A2").Value <> "" Then
Range("A1").Select
Selection.End(xlDown).Select ' soit Ctrl + Flêche bas
var_premierelignevide = ActiveCell.Row + 1
End If

Autre technique: depuis le bas de la feuille
Dim int_premierelignevide As Integer

'Récupère le nombre de lignes d'Excel
Dim var_nombredeligne As Long 'Long pour Excel 2007 ou 2010
var_nombredeligne = Application.Rows.Count 'ou de la feuille active avec ActiveSheet.Rows.Count

'Sélectionne la dernière ligne
Rows(var_nombredeligne).Select
'Remonte sur la première ligne pleine
Selection.End(xlUp).Select ' soit Ctrl + Flêche haut

'initialisation de la bonne ligne
int_premierelignevide = ActiveCell.Row + 1

Range("A" & int_premierelignevide).Value = txt_nom.Value


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Samedi 23 février 2019 - Semaine 08 - Saint Lazare (Demain: Saint Modeste)
Aujourd'hui, c'est l'anniversaire de Louis Bertignac (1954-65 ans), musicien français (guitariste du groupe de rock français Téléphone). Autre 23 février: 1468 - Mort de Gutenberg, inventeur de l'imprimerie.
Haut de page Easy-Micro