VBA - Macro : Action sur click droit souris sur une cellule
Bonjour,
J'aimerais savoir comment faire pour créer en VBA une action sur click droit de la souris sur une cellule précise d’une feuille Excel.
Avant j'utilisais le code VBA directement dans la feuille du classeur :
Code:
1
2
3
| Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Call CreateVersionListOnBeforeRightClickEvent(Target)
End Sub |
:mrgreen:
Cependant j'aimerais obtenir un code générique et non pas propre à une feuille.
Ce code devra donc être:
Si on es dans le classeur "MonClasseur" dans l'onglet "MonOnglet" et sur telle cellule, et si l'utilisateur fait un click droit, alors exécuter la macro « CreateVersionListOnBeforeRightClickEvent() ».
Pour l'instant j'ai essayé d'utiliser MouseDown sans succès :(. :
Code:
1
2
3
4
5
6
7
| For Each w In Workbooks
If IsTheWorkBook("MonClasseur, w.Name) Then 'dans tel classeur
If ActiveSheetIs("MonOnglet") And MouseDown() Then 'click droit dans l’onglet
Call CreateVersionListOnBeforeRightClickEvent(Target)
End If
End If
Next w |
Merci d'avance pour votre aide. ;)
Sincérement
