Sous menus

bonjour,

un exemple de création de menus qui n'est pas de mo pour te donner une idée
de création de menus et de sous menus.

Sub TestBoAvecMenus()
'papou, mpfe
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

code à adapter bien sur en fonction de ton besoin.

A+

Salut à tous



Je sais comment comment faire pr afficher des nvmenus propres et des nv
ss-menus

Mais je ne sias pas comment faire le lien entre un sous menu et l'exécution
d'une macro ds un module



ex : Set Barre11 = Barre1.Controls.Add(Type:=msoControlButton, before:=1)
Barre11.Caption = "Tableau d'amortissement d'un bien"
Barre11.On Action = "Module1.Travail1"



Ce qui précède permet d'afficher un ss menu intiulé "Tableau d'amortissement
d'un bien"

Ce que je voudrais ,c'est que qd ds Excel j'appuie dessus ( sur le ss
menu ), il exécute une macro qui s'appelle Amort et qui se trouve ds le
module 1



Je remercie d'avance celui qui me permettra d'avancer mes conn sur ce point
précis



Bon dimanche