Lancement macro excel en cliquant droit
Résolu
sanchis81
Messages postés
134
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
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
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:
- Lancement macro excel en cliquant droit
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
4 réponses
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
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
