enregistrement avec numérotation

seb83100 · 27 Mai 2015

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 · 27 Mai 2015

Re : enregistrement avec numérotation

bonsoir,

Code:

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

enregistrement avec numérotation

seb83100

Guest

Pièces jointes

Roland_M

XLDnaute Barbatruc

Discussions similaires

enregistrement avec numérotation

seb83100

Guest

Pièces jointes

Roland_M

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency