Incrementation d une colonne automatique

Je veux crééer une colonne id qui s'incrémente automatiquement
J ai fait ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Incrémenter_ID()   Dim i As Integer Dim cell As Range, ID As Range   Set ID = Range("A2:A1000")   i = 1   For Each cell In ID cell.Value = i i = i + 1 Next cell   End Sub

---

ca me donne une colonne incrémentée mais je veux que quand je clique sur la ligne suivante ça me genere un id incrémenté
genre quand je cliquerai sur la ligne 500 pour la remplir j aurai 500 en id automatiquement Est ce que vous pourrez m aider svp?
Merci

Bonjour,

voir

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   End Sub

---

Bonjour à toi aussi !

A mettre dans le module de la feuille concernée :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column <> 1 Then Exit Sub 'seulement sur colonne A   Target.Offset(, 1).Value = Target.Row 'ou encore ceci : Target.Offset(, 1).Value = Application.Max(Range("B:B")) + 1   End Sub

---

Balise ton code en cliquant sur le bouton #

Bonjour hs.hs,

Pour incrémenter les ligne 2 à 1000 dans la colonne A pas besoin de macro
Tu peux mettre =LIGNE()-1 en A2 et copier jusqu'en A1000.


En ajoutant une condition sur le fait qu'une ligne soit remplie ou non tu peux afficher l'identifiant ou rien.