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

[Jules]

Bonsoir à tous,
Le code ci-après (suggéré par l'un d'entre vous) permet d'incrémenter un numéro.
Je ne sais toutefois pas comment l'adapter pour qu'il fonctionne avec un numéro du type : 01-0001, 01-0002, 01-0003, etc... 01 étant invariable.
D'avance, un grand merci pour le coup de main.

Dim NumeroSuivant As Integer
NumeroSuivant = Application.CountA(Sheets("Feuil1").Range("A:A"))
Me.textbox1.Value = NumeroSuivant

 

[Compte Supprimé 979]

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

Bonsoir Jules,

Peut-être comme ça !

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à 😉

 

[Jules]

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...

 

[Jules]

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.