Lancement macro excel en cliquant droit

Résolu/Fermé
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 20 avril 2009 à 17:47
 Utilisateur anonyme - 20 avril 2009 à 18:17
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
A voir également:

4 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
20 avril 2009 à 18:05
bonjour,

enlève les lignes "exit sub"
et tu nous dis le résultat
0
Utilisateur anonyme
20 avril 2009 à 18:08
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
0
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10
20 avril 2009 à 18:14
Merci à vous 2!!!!

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

Encore merci beaucoup
0
Utilisateur anonyme
20 avril 2009 à 18:17
Ravi d'avoir participer à la solution.

Pense à mettre le post en résolu
0