Re: Incrémentation

[Popi14]

Bonjour à tous le forum,

Je veux incrémenter une liste de nom. Cette liste est dans ma colonne de A1 à A3. Lorsque je clique sur un nom, j'incrémente de compteur qui est à droite.
Grâce à l'aide du forum, j'arrive à faire maintenant cette opération.

Exemple:

prénoms compteur
toto =1 car on a cliqué 1 fois
tata = n car on a n fois cliqué dessus
titi

Le code me permettant de faire cette opération est le suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
End Sub

J'ai changé BeforeDoubleClick par BeforeRightClick. Maintenant, j'incrémente les prénoms lorsque je fais un clique droit.
Cependant, j'ai une fenêtre qui s'affiche à chaque clique droit (du genre copier coller etc.)

question
Pouvez-vous me dire comment on fait pour ne pas afficher cette fenêtre à chaque clique droit. J'ai cherché et j'avoue ne pas avoir trouvé🙁

Je vous remercie d'avance pour votre aide et pour le temps que vous y consacrez,

Bonne journée,

Popi14

 

[pierrejean]

Re : Re: Incrémentation

re Popi14

grace au Grand Hervé et à l'une de ses réponses à un post precedent

teste

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
End Sub

 

[Popi14]

Re : Re: Incrémentation

Re-bonjour,

Merci PierreJean !!!🙂



Bonne journée,

Laurent