Incrémenter un numéro de type 01-0001

C

Compte Supprimé 979

Guest

• 5 Avril 2007

• #2

Re : Incrémenter un numéro de type 01-0001

Bonsoir Jules,

Peut-être comme ça !

Code:

Dim DernierNumero As Integer
Dim NumeroSuivant As Integer
' Compte le nombre de valeur dans la colonne A
DernierNumero = Application.CountA(Sheets("Feuil1").Range("A:A"))
'
NumeroSuivant = DernierNumero + 1
Me.textbox1.Value = Format(NumeroSuivant, "01-0000")

Voilà 😉

 

Vote positif 0 Vote négatif

J

Jules

Guest

• 6 Avril 2007

• #3

Re : Incrémenter un numéro de type 01-0001

Bonsoir Bruno,
Merci (une nouvelle fois) pour ton aide.
J'ai testé la macro : j'ai inséré manuellement dans le tableau les numéros 01-0001 et 01-0002. La macro m'affiche 01-0004 au lieu de m'afficher 01-0003. Mais curieusement, après elle incrémente correctement : 01-0005, etc...

 

Vote positif 0 Vote négatif

J

Jules

Guest

• 6 Avril 2007

• #4

Re : Incrémenter un numéro de type 01-0001

J'ai compris d'où venait l'anomalie : la macro comptabilise également la cellule A1 qui dans mon tableau est un en-tete de colonne.
En remplaçant (A:A) par (A2:A65536), cela fonctionne très bien.
Encore merci Bruno de m'avoir mis sur la bonne piste.

 

Vote positif 0 Vote négatif