barre des menus

[David]

Salut le forum

Je suis à la recherche d'exemples.

Je voudrais apprendre à mettre avec vba une barre des menus perso
Si vous connaissez un site où il y a des exemples je suis intéressé


merci d'avance

@+

David

 

[Le rital]

Bonjour le forum,

Voici un exemple

Cordialement

Le rital

--------------------------------------------------------------------------

Sub TestBoAvecMenus()

Dim Nouv_Menu As CommandBar

Set Nouv_Menu = _
Application.CommandBars.Add(Name:="MaBarre", _
Position:=msoBarFloating, temporary:=True)

Dim men1, men1opt1, Opt1, men2, men3

Set men1 = Nouv_Menu.Controls.Add(msoControlPopup, , , , True)
With men1
.Caption = "Menu&1"
End With

Set men1opt1 = men1.Controls.Add(msoControlPopup, , , , True)
With men1opt1
.Caption = "SousMenu1"
End With

Set Opt1 = men1opt1.Controls.Add(msoControlButton, , , , True)
With Opt1
.Caption = "Option1"
.OnAction = "Opt1"
End With

Set men2 = Nouv_Menu.Controls.Add(msoControlButton, , , , True)
With men2
.Style = msoButtonCaption
.Caption = "Menu&2"
.OnAction = "Opt2"
End With

Set men3 = Nouv_Menu.Controls.Add(msoControlButton, , , , True)
With men3
.Style = msoButtonCaption
.Caption = "Menu&3"
.OnAction = "Opt3"
End With
Nouv_Menu.Visible = True
End Sub
Sub Opt1()
MsgBox "Option 1 demandée"
End Sub
Sub Opt2()
MsgBox "Option 2 demandée"
End Sub
Sub Opt3()
MsgBox "Option 3 demandée"
End Sub

Sub delMaBarre()
Application.CommandBars("MaBarre").Delete
End Sub

 

[Dan]

Bonjour,

Tiens je te propose de suivre ces liens. Les post sont assez longs mais tu y trouveras tout pour faire ce que tu veux.

<http://www.excel-downloads.com/html/French/forum/messages/1_66169_66169.htm>

<http://www.excel-downloads.com/html/French/forum/messages/1_66947_66947.htm>

Bon travail

@+

Dan