Discussion :

[seboune1]

Bonjour,

j'ai créé une barre de menu perso dans excel qui ne s'affichera que lors de l'ouverture d'un classeur (elle disparait à la fermeture de ce classeur).
J'ai ajouté des boutons à cette barre de menu.
J'aimerai associer une couleur de fond spécifique à chaque bouton (je connais le code hexadecimal des couleurs que je souhaite implanter sur chaque bouton).

Quel est le code VBA pour changer la couleur de fond de ce bouton ?

Merci d'avance de m'aider.

[ouskel'n'or]

Je ne connais qu'une manière de faire, c'est coller une image de la couleur voulue de la dimension du bouton. J'ai fait ça il y a longtemps pour le signe € avant que les claviers en dispose, je regarde si je retrouve le code.
Le principe : On insère l'image dans Excel, on copie cette image, on la colle dans le bouton et on supprime l'image de la feuille de calculs.
A+

NB - L'image doit faire 15 pixels * 15 pixels

[ouskel'n'or]

J'ai retrouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_AddinInstall()
    ActiveSheet.Pictures.Insert("C:\Mes images\Le bouton.bmp").Select
    Selection.Copy
    Application.CommandBars.Add(Name:="ConversionFrancsEuros").Visible = True
    Set MaBarre = CommandBars("ConversionFrancsEuros")
        MaBarre.Visible = True
    Set MonBouton = MaBarre.Controls.Add(Type:=msoControlButton)
        MonBouton.FaceId = 0
        MonBouton.Caption = "Convertit le contenu de la cellule en Euros"
        MonBouton.OnAction = "'Euro.xla'!TransformeEnEuros"
        MonBouton.PasteFace
End Sub

Tu testes et tu adaptes
A+

PS - L'image du bouton de 15 * 15 est réalisée avec paint et enregistré en bmp

[seboune1]

Je vais tester avec la copie d'image, mais c'est étonnant qu'on ne puisse le faire autrement... surtout pour avoir juste une couleur.

[ouskel'n'or]

J'ai oublié une ligne à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.delete

Je suis comme toi, étonné, mais je ne connais pas d'autre méthode... mais j'chais pas tout