Lancement macro excel en cliquant droit [Résolu/Fermé]

Signaler
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
-
 Utilisateur anonyme -
Bonjour à tous,

j'ai mis en place un "programme" sur excel qui lance une macro lorsqu'on clique droit sur une cellule particulière.

Voici le code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("C11"), Target) Is Nothing Then Exit Sub
Call Décrire
Cancel = True
Exit Sub
End Sub

La macro en question s'appelle "Décrire".

Je voudrais à nouveau lancer une macro mais cette fois-ci en cliquant sur une case différente de la précédente.

Voici le code que j'ai tapé sur la même feuille:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("B12"), Target) Is Nothing Then Exit Sub
Call Diminuer
Cancel = True
Exit Sub
End Sub

Diminuer est le nom de ma seconde macro.

Or VBA me dit alors qu'il ne reconnait pas "Worksheet_BeforeRightClick"

Quelqu'un peut-il m'aider?

Merci d'avance

4 réponses

Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 juillet 2020
2 999
bonjour,

enlève les lignes "exit sub"
et tu nous dis le résultat

La Sub Worksheet_BeforeRightClick se trouve au niveau feuille, tu ne peux pas avoir 2 sub Worksheet_BeforeRightClick ! Il faut donc 'incorporer les actions voulues dans la même sub:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Range("C11"), Target) Is Nothing Then
Call Décrire
Cancel = True
end if
Exit Sub

If Not Intersect(Range("B12"), Target) Is Nothing Then
Call Diminuer
Cancel = True
end if

End Sub
A+


End Sub
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
10
Merci à vous 2!!!!

j'ai repris le programme de Priouman en supprimant les lignes Exitsub et ca a marché!!!!

Encore merci beaucoup

Ravi d'avoir participer à la solution.

Pense à mettre le post en résolu