Bonjour,

J'ai crée une macro qui crée une barre personnalisé avec des boutons, mais lorsque la barre est crée, elle n'affiche que l'image du bouton et pas le nom.

Est-ce que vous savez comment définir l'affichage de "Image + Nom" ?

Voici mon VBA modifié à partir du code du tuto de Fring :

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
Sub Workbook_Open()
'
' OPEN_BARRE Macro
' ouvre la Barre d'outils
 Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'Macros'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="outils_OPE", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 173
        .Caption = "01"
        .OnAction = "Sauvegardejanvier"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .Caption = "Cacher"
        .FaceId = 342
        .OnAction = "Cacher"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .Caption = "Afficher"
         .FaceId = 343
        .OnAction = "Afficher"
    End With
 
    CmdBar.Visible = True
End Sub
Merci d'avance à tous !


******************************************************************************************************
Finalement ce n'est plus nécessaire une personne m'a répondu sur un autre forum.

Voici la solution :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
With Bouton
        .Style = msoButtonIconAndCaptionBelow
        .Caption = "Cacher"
        .FaceId = 342
        .OnAction = "Cacher"
    End With