Menu excel
o-sixty-o
Messages postés
25
Statut
Membre
-
LePierre Messages postés 249 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...
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...
Configuration: Windows XP Firefox 1.5.0.1
1 réponse
-
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
