1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Sub truc2()
Application.CommandBars("cell").reset
Dim MyMenu As Object
Set MyMenu = Application.ShortcutMenus(xlWorksheetCell).MenuItems.AddMenu("Menu Perso", 1)
With MyMenu.MenuItems
'ajout "nom du bouton",macro associée, je met quoi ici?, emplacement 'du bouton,"ici entre guillemet je met quoi?"
'je constate aussi que pour placer le bouton a un endroit precis il n'est 'pas necessaire de marquer "before:=1"simplement le chiffre
.Add "Monbouton1", "MyMacro1", , 1, ""
.Add "Monbouton2", "MyMacro1", , 2, , ""
End With
Set MyMenu = Nothing
End Sub
Sub MyMacro1()
MsgBox CommandBars.ActionControl.Tag
End Sub |
Partager