Inserer une ligne dans un tableau et incrémenter de 1 le numéro

Gilles -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Dans un tableau j'insère une nouvelle ligne à la ligne 6 et j'aimerai que dans la colonne A il y ai un numéro de ligne qui s'incrémente de 1 à chaque fois. POur l'instant j'utilise la commande suivante...

Sub Insererlignes()
Rows(6).Insert Shift:=xlDown
End Sub




A voir également:

1 réponse

gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 728
 
Bonjour,

Ta macro complétée :
Sub Insererlignes()
Rows(6).Insert Shift:=xlDown
Cells(6, 1).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
End Sub
0