Comment créer un barre de menu

Bonjour à tous

Comment créer un barre de menu sous Excel avec VBA en y intégrant des images avec chaque option de menu?

Merci d'avance

[MichelXld]

bonsoir Tamara

j'espere que cet exemple pourra t'aider

un nouveau menu 'monMenu' s'affiche lors de l'ouverture du classeur
le menu est supprimé lors de la fermeture du classeur


Private Sub Workbook_Open()
Dim Nouveau As CommandBarControl
Dim Nouveau10 As CommandBarControl
Dim Nouveau11 As CommandBarControl, Nouveau12 As CommandBarControl
Dim Nouveau20 As CommandBarControl

On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControl Popup, , , , True)
With Nouveau
.Caption = 'monMenu'
End With

Set Nouveau10 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau10
.Caption = 'Menu1'
.Style = msoButtonIconAndCaption
End With

Set Nouveau11 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau11
.Caption = 'Sous menu 01'
.FaceId = 481
.Style = msoButtonIconAndCaption
.OnAction = 'maMacro1'
End With

Set Nouveau12 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau12
.Caption = 'Sous menu 02'
.FaceId = 483
.Style = msoButtonIconAndCaption
.OnAction = 'maMacro2'
End With

Set Nouveau20 = Nouveau.Controls.Add(msoControlButton, , , , True)
With Nouveau20
.Caption = 'Menu2'
.FaceId = 484
.Style = msoButtonIconAndCaption
.OnAction = 'maMacro3'
End With

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(1).Controls('monMenu').Del ete
End Sub



bonne soiree
MichelXld [file name=ajoutMenuPersonnalise.zip size=9508]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ajoutMenuPersonnalise.zip[/file]

Bonsoir MichelXld

Merci beaucoup pour ton aide c'est superbe.


Bonne soirée
Tamara

[sigma]

Tamara, MichelXld, le forum.

je rebondis sur le sujet pour avoir un peu plus de précision sur les images.
excel ne propose par défaut que le petit smiley jaune( enfin je crois), existe t'il une liste exhaustive ou un site particulier ou l'on puisse trouver d'autres images dans le style de ceux que tu proposes dans ton exemple, les FaceId=500,600...

merci à tous

A+

[sigma]

re,

en cherchant un peu j'ai trouvé sur internet, un petit fichier excel avec plein de FaceId, je dépose le lien ici car le fichier est trop lourd.

http://www.excelabo.net/xl/barres_an...#faceidboutons

si cela peut aider Tamara.

A+