supprimer un menu dans ma barre de menuRésolu

Question

Bonjour,
Dans une application que j'avais bricol&#233; sous excel 95 (et en francais), je m'&#233;tais configur&#233; des menus et sous menus personalis&#233;s.Cette fonctionalit&#233; &#233;tait auparavent accessible depuis une feuille de module.Je suis en train de faire une cure de jouvence &#224; mon application et je ne trouve pas cette fonctionnalit&#233;.Je souhaiterai de l'aide pour parvenir &#224; supprimer des anciens menus ou eventuellement en cr&#233;er d'autres!

Merci d'avance &#224; tous ceux qui pourrons m'aider

Sylvain

jpleroisse · Accepted Answer

'Pour ajouter un menu (par exemple &#224; la gauche du menu Aide)

Sub AjoutMenu()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
'Obtenir l'index du menu Aide
HelpIndx = CommandBars(1).Controls("Aide").Index
'Cr&#233;er le menu
Set NewMenu = CommandBars(1).Controls.Add (Type:=msoControlPopup, Before:=HelpIndex, Tempory:=True)
'Ajouter une l&#233;gende au menu
NewMenu.Caption = "Mon Menu"
End Sub

'Pour Supprimer un menu

Sub DeleteMenu()
On Error Resume Next
CommandBars(1).Controls("Mon Menu").Delete
End Sub

jpleroisse

lespritpur · Answer

Pour la c&#233;ation de menu, c'est nikel crome merci!

Et si l'&#233;go&#239;sme c'&#233;tait de ne penser qu'aux autres? Il faut peut &#234;tre se faire plaisir de temps en temps ou tout au moins s'accorder un temps de reflexion sur l'existence!

Supprimer un menu dans ma barre de menu

2 réponses

Discussions similaires