Sujet Précédent Sujet Suivant

Menu excel

o-sixty-o Messages postés 25 Statut Membre -  
LePierre Messages postés 249 Statut Membre -
Bonjour,
Est-il possible d'ajouter un nouveau menu sur excel , après le " ? " ?
Car j'ai un bouton sur ma feuille , et comme cette feuille est utilisée par plusieurs personnes il ne faut pas que tout le monde voit le bouton. De ce fait , j'aimerai qu'on accède à ce bouton grace à un nouveau menu ds excel .
Est-ce possible ? Et surtout , comment fait -on :|

Merci...
A voir également:

1 réponse

Réponse 1 / 1
LePierre Messages postés 249 Statut Membre 338
 
bonjour

voici un code récupéré sur le site : http://dj.joss.free.fr/outil.htm

Sub AjouteMenus()
MenuBars(xlWorksheet).Menus.Add Caption:="&MonMenu" ', before:=9
'(before:=9)modifier cette valeur pour placer le menu où vous voulez
MenuBars(xlWorksheet).Menus("&MonMenu").MenuItems.Add _
Caption:="&SousMenu1", before:=1, OnAction:="Nom de la macro 1"
'Exécute la macro 1
MenuBars(xlWorksheet).Menus("&MonMenu").MenuItems.Add _
Caption:="&SousMenu2", before:=1, OnAction:="Nom de la macro 2"
'Exécute la macro 2
End Sub

Sub SupprimeMenus()
For Each MenuName In MenuBars(xlWorksheet).Menus
If MenuName.Caption = "&MonMenu" Then
MenuName.Delete
End If
Next
End Sub

à plus
0