bonsoir andre13
merci de ton aide,
je suis entrain de l'adapter a mon fichier. je comprend pas a quoi sert Right dans la condition ci dessous du code de ton fichier
If Right(Range("A" & num), 1) < 9 Then
UserForm1.Txt1.Text = "00" & Right(Range("A" & num), 4) + 1
Else
bonjour Galopin01
merci pour ton aide. peux tu expliquer le code stp afin je m'en serve avec des yeux plus claires
galopin01 a écrit :
Bonjour,
En supposant qu'on parle de la colonne 1 :
TextBox1 = Application.WorksheetFunction.Max(Columns(1)) + 1
A+