Bonjour à tous,

J'ai créé avec votre aide une barre de menus perso avec des menus et des sous menus.

J'aimerai savoir si il est possible que les intitulés des menus soit d'une couleur différente des sous menus.

Pouvez-vous m'expliquer comment ?

Voici une partie de mon code avec un menu et un sous menu

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
'insertion dans le 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 = msoButtonIconAndCaption '<-- bouton avec texte
    .Caption = "Nouveaux" '<-- texte du bouton
    .FaceId = 173
    .OnAction = "Macro_A" '<-- procédure à exécuter
End With
Merci par avance