Bonjour,
après, avoir compris et réglé mon pb de longueur dans les commands bar
je cherche comment les mettre en couleurs:
voici mon code qui marche avec les boutons gris:

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
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
 
Sub init_bouton_aff()
 
Dim Cbar_a As CommandBar
Dim Cbut1, Cbut2 As CommandBarButton
 
Set Cbar_a = CommandBars.Add(Name:="Commandes", Position:=msoBarTop, temporary:=True)
 
Cbar_a.Visible = True
 
Set Cbut1 = Cbar_a.Controls.Add(Type:=msoControlButton)
 
With Cbut1
    .Style = msoButtonCaption
    .TooltipText = "Met à jour cette page"
    .Tag = "Mise à jour du Produit"
    .Caption = "enregistrer"
    .OnAction = "Maj_page_param"
    .BeginGroup = True
End With
 
Set Cbat2 = Cbar_a.Controls.Add(Type:=msoControlButton)
 
With Cbat2
    .Style = msoButtonCaption
    .TooltipText = "ajoute un nouveau événement"
    .Tag = "ajoute un nouveau événement"
    .Caption = "Ajouter une donnée"
    .OnAction = "C_AjoutLigne"
    .BeginGroup = True
End With
 
Set Cbat3 = Cbar_a.Controls.Add(Type:=msoControlButton)
 
With Cbat3
    .Style = msoButtonCaption
    .TooltipText = "détruit un événement"
    .Tag = "détruit un événement"
    .Caption = "retirer une donnée"
    .OnAction = "erase_ligne"
    .BeginGroup = True
End With
 
End Sub
avec ce code je voudrais mettre des couleurs différentes à chaque bouton pour bien les repérer et je ne trouve pas dans l'aide

Bon Génie peux tu m'aider ?