Bonjour à tous,
Dans le code ci-dessous, je souhaite créer un numero comportant les deux derniers chiffres de l' année en cours et un compteur sur 5 carateres séparé par un tiret.
A priori le code fonctionne mais dans l'enregistrement de la feuille excel, il apparait une date? pourriez vous me dire ou est l'erreur?
Private Sub UserForm_Initialize()
Dim annee
annee = Format(Now(), "yy")
numero = WorksheetFunction.CountA(Columns(1))
TextBox1.Value = annee & "-" & numero
Sheets("feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End Sub
Merci à vous
jeb
Dans le code ci-dessous, je souhaite créer un numero comportant les deux derniers chiffres de l' année en cours et un compteur sur 5 carateres séparé par un tiret.
A priori le code fonctionne mais dans l'enregistrement de la feuille excel, il apparait une date? pourriez vous me dire ou est l'erreur?
Private Sub UserForm_Initialize()
Dim annee
annee = Format(Now(), "yy")
numero = WorksheetFunction.CountA(Columns(1))
TextBox1.Value = annee & "-" & numero
Sheets("feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End Sub
Merci à vous
jeb