Incrémentation

[Popi14]

Bonjour à tous le forum,

Je dispose d'une liste de prénoms de A1 à A3 par exemple et j'aimerai lorsque je clique sur le prénom situé dans cette liste incrémenter un compteur qui est juste à droite du prénom.

Exemple:

Prénoms Compteur
toto = (avec un clique sur toto)
momo = 2 (avec deux clique sur momo)
jojo

Je vous remercie d'avance pour votre aide,

popi14

 

[RICO1972]

Re : Incrémentation

Salut Popi14,

place ces deux codes dans la VBA de la feuille1 par exemple, mais attention cela ne fonctionne que si tu clik ou DbldClik dans la colonne A

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> (1) Then Exit Sub
Target.Offset(0, 1) = 1

End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> (1) Then Exit Sub
Target.Offset(0, 1) = 2
End Sub

@+
RIco

 

[pierrejean]

Re : Incrémentation

bonjour popi14

par double click


oups
pas rafraichi

salut RICO1972

 

[Popi14]

Re : Incrémentation

Bonjour Rico et PierreJean ,

Je vous remercie pour votre rapide et efficace !

ça marche

Bonne journée à vous et à tous le forum,

Popi14