Discussion :

[ettienkam00]

Comment réaliser une incrementation numérique dans la colonne À a chaque inscription de données

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Target.Row, "A").Value = Cells(Target.Row - 1, "A").Value + 1
End Sub

[excfl]

Bonsoir le forum,

A2 :

=LIGNE()-1

A tirer vers le bas.

[ettienkam00]

Je vous remercie pour votre aide. Cela m'a aidé.