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 ]
Jeudi 23 mai 2019 - Semaine 21 - Saint Didier de Vienne (Demain: Saint Donatien)
Aujourd'hui, c'est l'anniversaire de François Feldman (1958-61 ans), auteur-compositeur-interprète français (Joue pas, Les Valses de Vienne, Joy...).
Haut de page Easy-Micro