Ajout d'une ligne avec incrément de la première colonne

[getclipper]

Bonjour,

J'ai un tableau de 17 colonnes, et ma première colonne (A) est un incrément (numéro de chrono)
J'ai créé une marco (ultra simple) pour créer une nouvelle ligne. Or j'essaye, lors de la création de cette nouvelle ligne, d'incrémenter la valeur contenue dans ma colonne A de la ligne précédente, mais cela ne fonctionne pas.

Ma macro :

Sub Ajout()
Selection.EntireRow.Insert
End sub

En Pj mon document à l'état de construction!
Avez-vous une idée
Merci

 

[Guest]

Re : Ajout d'une ligne avec incrément de la première colonne

Bonjour,

Avez-vous une idée?

Ben, plein d'idées en fait mais laquelle choisir sans plus d'explication ni fichier exemple! (Avec la macro et des données non sensibles bien-sûr)

A+

 

[getclipper]

Re : Ajout d'une ligne avec incrément de la première colonne

OK je viens de rajouté un fichier d'exemple.
merci

 

[JNP]

Re : Ajout d'une ligne avec incrément de la première colonne

Bonjour
Une possibilité

Sub Ajout()
Dim DerLigne As Long
DerLigne = Cells(Rows.Count, 1).End(xlUp).Row
Rows(DerLigne).Copy
Rows(DerLigne + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(DerLigne + 1, 1) = Cells(DerLigne, 1) + 1
End Sub

Bonne suite

 

[getclipper]

Re : Ajout d'une ligne avec incrément de la première colonne

Merci, ca fonctionne top