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

Question

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

michel_m · Answer

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

Utilisateur anonyme · Answer

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

sanchis81 · Answer

Merci à vous 2!!!!

j'ai repris le programme de Priouman en supprimant les lignes Exitsub et ca a marché!!!!

Encore merci beaucoup

Utilisateur anonyme · Answer

Ravi d'avoir participer à la solution.

Pense à mettre le post en résolu

Lancement macro excel en cliquant droit

4 réponses

Discussions similaires