Discussion :

[buhrne]

Salut la compagnie,

Voilà je me suis créer une barre personnelle qui s'affiche à l'exécution de mon classeur avec un code que j'ai trouvé dans un tuto. Simplement les boutons qui s'y affichent sont des icônes d'excel.
je voudrais savoir s'il est possible d'insérer à la place des FaceID une icône perso à la place et comment.

Voici le 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="ENTRAINEMENT", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 224
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "nouveau"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 837
        .OnAction = "Module1.plan"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 7168
        .OnAction = "Module1.parcours"
    End With
 
    CmdBar.Visible = True
End Sub

[ouskel'n'or]

Regarde ici, tu as "une" solution simple pour coller un .bmp de 16 * 16 pixels sur un bouton. (4ème code)
Bonne journée