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 : Sélectionner tout - Visualiser dans une fenêtre à part
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")