enregistrement avec numérotation

[seb83100]

bonsoir,

par avance merci du temps que vous allez consacrer à mon problème.

J'ai créée un userform afin d'enregistrer des informations.
J'ai trouvé une macro permettant le retour à la ligne à chaque enregistrement.
Je cherche maintenant a attribuer un numérotation d'enregistrement pour chaque validation des données.

ci-joint le fichier.

et encore merci pour votre aide .

 

[Roland_M]

Re : enregistrement avec numérotation

bonsoir,

Private Sub CommandButton1_Click()
Dim DerLig As Long
With Worksheets("Feuil2")
 DerLig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & DerLig) = NOM.Value
.Range("B" & DerLig) = PRENOM.Value
.Range("c" & DerLig) = REFERENCE.Value
.Range("d" & DerLig) = NAISSANCE.Value
.Range("e" & DerLig) = Val(.Range("e" & DerLig - 1)) + 1
End With
Unload Me
UserForm1.Show
End Sub