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