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

Fermé
Gilles - 24 sept. 2015 à 03:16
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 24 sept. 2015 à 09:50
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 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 716
24 sept. 2015 à 09:50
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