Modifier le menu contextuel pour appeler une macro - Exemples de code VBA

Clic droit pour appeler une macro

Voici un code qui permettra à un utilisateur de sélectionner votre macro dans le menu par défaut qui apparaît après avoir cliqué avec le bouton droit sur une cellule.

1. Mettez le code suivant dans la fenêtre de code ThisWorkbook

 Private Sub Workbook_Open() Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _ .MenuItems.AddMenu("This is my Custom Menu", 1) With MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", , 1 , , "" .Add "MyMacro2", "MyMacro2", , 2, , "" End With Set MyMenu = Nothing End Sub

2. Mettez le code suivant dans un module

 Public Sub mymacro1() MsgBox "Macro1 à partir d'un menu clic droit" End Sub Public Sub mymacro2() MsgBox "Macro2 à partir d'un menu clic droit" End Sub

3. Fermez votre classeur et rouvrez-le !