Bonjour,
je souhaite, avoir une barre d'outils avec des icones, et des menus
d=E9roulant.mais je n'arrive pas =E0 les combiner.
Je veux surtout que toutes ces barres s'affichent en haut, au
d=E9marage, c'est pour =E7a le Auto_open.
PS : j'ai plusieurs menus d=E9roulant, dois-je faire attention =E0
certaines petites attention ?
Je vous donne ci-apr=E8s, mon code qui est plac=E9 dans un module
distinct :
Merci d'avance
----- mes boutons : -------
Sub Auto_open()
Set vmabarre =3D CommandBars.Add(Name:=3D"barremacro",
Position:=3DmsoBarTop, Temporary:=3DFalse)
vmabarre.Visible =3D True
Set newbouton1 =3D
CommandBars("barremacro").Controls.Add(Type:=3DmsoControlButton)
With newbouton1
.Caption =3D "G=E9n=E9ral"
.FaceId =3D 59 'image
.BeginGroup =3D True
.OnAction =3D "GENERAL"
.Style =3D msoButtonIconAndCaptionBelow
.TooltipText =3D "G=E9n=E9ral"
End With
'pour avoir un traite de s=E9paration entre les boutons 1 et 2
BeginGroup =3D True
Set newbouton2 =3D
CommandBars("barremacro").Controls.Add(Type:=3DmsoControlButton)
With newbouton2
.Caption =3D "Balance"
.FaceId =3D 19 'image
.BeginGroup =3D True
.OnAction =3D "BALANCE"
.Style =3D msoButtonIconAndCaptionBelow
.TooltipText =3D "Balance"
End With
End Sub
-----------------------------
autre module : mes listes d=E9roulantes:
---------------------
Sub ZBudget()
On Error Resume Next
Application.CommandBars("BUDGET").Delete
Set myBar =3D CommandBars.Add(Name:=3D"BUDGET", Position:=3DmsoBarTop,
Temporary:=3DTrue)
Set newmenu =3D
Application.CommandBars("BUDGET").Controls.Add(Type:=3DmsoControlPopup,
Temporary:=3DTrue)
newmenu.Caption =3D "Budget"
Set menu30 =3D newmenu.CommandBar.Controls _
=2EAdd(Type:=3DmsoControlButton, ID:=3D1)
menu30.Caption =3D "Seuil de Signification"
menu30.FaceId =3D 266
menu30.OnAction =3D "FEUIL3A"
Set menu31 =3D newmenu.CommandBar.Controls _
=2EAdd(Type:=3DmsoControlButton, ID:=3D1)
menu31.Caption =3D "Budgets"
menu31.FaceId =3D 52
menu31.OnAction =3D "FEUIL3B"
Set menu32 =3D newmenu.CommandBar.Controls _
=2EAdd(Type:=3DmsoControlButton, ID:=3D1)
menu32.Caption =3D "D=E9claration CRCC"
menu32.FaceId =3D 25
menu32.OnAction =3D "FEUIL3C"
myBar.Visible =3D True
myBar.Protection =3D msoBarNoChangeVisible
End Sub
-------------------------
