Discussion :

[hs.hs]

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

Code :

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

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

[jeanmidudu]

Bonjour,

voir

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

[Theze]

Bonjour à toi aussi !

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

Code :

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

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 #

[antonysansh]

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.