une incrementation numérique

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

Code:

---

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

---

Bonsoir le forum,

A2 :

Citation:

---

=LIGNE()-1

---

A tirer vers le bas.

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