Comment créer un barre de menu

  • Initiateur de la discussion Tamara
  • Date de début
T

Tamara

Guest
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
:eek:
 

MichelXld

XLDnaute Barbatruc
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(msoControlPopup, , , , 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').Delete
End Sub



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

Pièces jointes

  • ajoutMenuPersonnalise.zip
    9.3 KB · Affichages: 1 015

sigma

XLDnaute Occasionnel
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+
 

Discussions similaires

Réponses
10
Affichages
372
Réponses
4
Affichages
170

Statistiques des forums

Discussions
311 540
Messages
2 080 532
Membres
101 234
dernier inscrit
Layani89