Sous menus dans barre de menus

Version imprimable

Bonjour à tous,

Selon l'exemple de fring, j'ai modifié une partie du code affichant les menus de la barre. Cependant, je bloque sur un point, je n'arrive pas à intégrer des sous menus dans un menus.

Par exemple: si je clique sur "engagements", j'aimerai que ces sous-menus apparaissent "Nouveaux, Info, Détail, Tableau".

Pouvez-vous m'aider s'il vous plait ?
Merci par avance

Voici le début du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set Ctxt = Cbar.Controls.Add(msoControlDropdown) With Ctxt .Style = msoComboLabel '<-- zone de liste avec label .Caption = "Liste de choix :" '<-- texte du label .TooltipText = "Faites votre choix" '<-- info-bulle .OnAction = "Macro3" '<-- procédure à exécuter .BeginGroup = True '<-- barre de séparation .Tag = "clist1" '<-- étiquette '<-- ajout de 5 Item .AddItem ("Engagements") .AddItem ("Factures") .AddItem ("Liquidation") .AddItem ("Tiers") .AddItem ("Tableaux analytiques")

J'aimerai faire la même chose que cela mais sans ajout de bouton, juste un intitulé. Mais je n'arrive pas à la faire pour chacun de ces items.
.AddItem ("Engagements")
---> "Nouveaux"
---> "Informationl"
---> "Détails"
---> "Tableau"
.AddItem ("Factures")
---> "Enregistrer"
---> "Payer"
.AddItem ("Liquidation")
.AddItem ("Tiers")
.AddItem ("Tableaux analytiques")
Etc... pour les autres
Code:

1 2 3 4 5 6 7 'insertion dans le sous-menu 2 d'un bouton prédéfini ouvrant l'application Word Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton, ID:=42) With Cbut .Style = msoButtonIconAndCaption '<-- bouton avec icône + texte .Caption = "Word" '<-- label du bouton End With

Re...

La seule manière est la suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub barre_menus_perso()
Dim Cbar As CommandBar, Cbut As CommandBarButton, Cpop1 As CommandBarPopup, Cpop2 As CommandBarPopup
 
'création de la barre de menus
Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
 
'insertion sur la barre d'un menu
Set Cpop1 = Cbar.Controls.Add(msoControlPopup)
Cpop1.Caption = "Liste de choix" '<-- texte du menu
 
'insertion dans le menu d'un sous-menu 1 "Engagements"
Set Cpop2 = Cpop1.Controls.Add(msoControlPopup)
Cpop2.Caption = "Engagements" '<-- texte du sous-menu
 
'insertion dans le sous-menu 1 d'un bouton actionnant la procédure "Nouveaux"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption '<-- bouton avec texte
    .Caption = "Nouveaux" '<-- texte du bouton
    .OnAction = "Macro_Nouveaux" '<-- procédure à exécuter
End With
 
'insertion dans le sous-menu 1 d'un bouton actionnant la procédure "Info"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption '<-- bouton avec texte
    .Caption = "Info" '<-- texte du bouton
    .OnAction = "Macro_Info" '<-- procédure à exécuter
End With
 
'insertion dans le sous-menu 1 d'un bouton actionnant la procédure "Détails"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption '<-- bouton avec texte
    .Caption = "Détails" '<-- texte du bouton
    .OnAction = "Macro_Détails" '<-- procédure à exécuter
End With
 
'insertion dans le sous-menu 1 d'un bouton actionnant la procédure "Tableau"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption '<-- bouton avec texte
    .Caption = "Tableau" '<-- texte du bouton
    .OnAction = "Macro_Tableau" '<-- procédure à exécuter
End With
 
'insertion dans le menu d'un sous-menu 2 "Factures"
Set Cpop2 = Cpop1.Controls.Add(msoControlPopup)
Cpop2.Caption = "Factures" '<-- texte du sous-menu
 
'insertion dans le sous-menu 2 d'un bouton actionnant la procédure "Enregistrer"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption '<-- bouton avec texte
    .Caption = "Enregistrer" '<-- texte du bouton
    .OnAction = "Macro_Enregistrer" '<-- procédure à exécuter
End With
 
'insertion dans le sous-menu 2 d'un bouton actionnant la procédure "Payer"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .Style = msoButtonCaption '<-- bouton avec texte
    .Caption = "Payer" '<-- texte du bouton
    .OnAction = "Macro_Payer" '<-- procédure à exécuter
End With
 
'insertion dans le menu d'un sous-menu 3 "Liquidation"
Set Cpop2 = Cpop1.Controls.Add(msoControlPopup)
Cpop2.Caption = "Liquidation" '<-- texte du sous-menu
 
'etc...
 
Cbar.Visible = True '<-- affichage de la barre de menus
 
End Sub

Bonjour à tous, Bonjour fring,

Merci beaucoup, c'est exactement ce que je voulais faire.
Il ne me reste plus qu'à trouver le bon code ID pour Excel et Outlook comme je l'ai déclaré dans un précédent post et je serai au point.

Pour le reste je pense pouvoir m'en sortir, sinon je reviendrai vous questionner, avec votre permission, bien entendu.

A bientôt :ccool:

Re,

Que faut-il ajouter à ce code pour réduire la hauteur de la barre ? Si cela est possible bien sûr.
Merci par avance
Code:

1 2 3 4 5 6 'création de la barre de menus Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True) Cbar.Protection = msoBarNoMove + msoBarNoCustomize '<-- protection de la barre de menus

01/11/2010, 18h12
NEC14

Bonjour à tous,

J'ai presque fini ma barre de menus il ne manque plus qu'à réduite la hauteur et à trouver le bon code Id pour Excel et Outlook.

Autre question : Est-il possible d'agrandir la police ?

Merci par avance
02/11/2010, 18h04
NEC14

Bonsoir,

J'ai procédé autrement et je n'utilise plus ce sous menus.

Merci par avance et bonne soirée