Incrémetation de numero de ligne

Bonjour,

comme ceci, mais il faudra changer le format des cellules de la colonne B pour que les 0 s'affichent

With ThisWorkbook.Worksheets("TABLEAU")
 l_info = .Cells(.Rows.Count, 2).End(xlUp).Row + 1


      
      .Range("B" & l_info).Value = "0000" & l_info - 2

https://www.lecfomasque.com/excel-personnalisez-vos-formats-de-cellules/

@+ Le Pivert

Bonjour,

Je pense que rajouter cette ligne dans le code associé au formulaire fonctionnera :

.Range("B" & l_info).FormulaLocal = "=SI(ESTNUM(B" & l_info - 1 & ");B" & l_info - 1 & "+1;1)"

Le SI permet de faire fonctionner le fichier pour la première ligne.

Ensuite pour que le format de la cellule soit du type 00000001 puis 00000002, il est plus pratique de le changer directement sur le fichier :

Ajouter autant de 0 qu'il le faut.

Bonne journée,
-NoeGo-