Discussion :

[_flori_]

Bonjour à tous,

Mon soucis est le suivant:

J'ai deux userform

Dans le premier j'ai un bouton changer couleur du boutton
Dans mon deuxième j'ai tous mes bouttons et c'est la que le changement de couleur s'effectue.

Mon code est le suivant

Code :

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

UserForm3.CommandButton1.BackColor = RGB(0, 240, 0)

Le changement s'effectue bien, cependant juste de la couleur qui à été mentionné.

Mon soucis est:
J'aimerais pour ne pas écrire tous les possibilités de couleur dans mon code affiché la palette de couleur et selectionner la couleur choisie vers mon bouton

Pour l'affichage de la palette j'ai trouvé, j'utilise ce code

Code :

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

1
2
'Affichage Palette couleur
Application.Dialogs(xlDialogPatterns).Show

Mais j'arrive pas à faire la liaison entre la couleur choisie et l'envoyer sur mon bouton
du style:

Code :

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

UserForm3.CommandButton1.BackColor = (ici j'aimerais indiquer la couleur que j'ai choisi sur ma palette de couleur

J'espère avoir expliqué mon problème correctement

En vous remerciant

[Zekraoui_Jakani]

Vous pouvez exploiter la fonction "GetColorindex"

Code :

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

1
2
3
4
 Application.Dialogs(xlDialogPatterns).Show
 GetColorindex = Selection.Interior.ColorIndex
 Debug.Print GetColorindex
 Selection.Interior.ColorIndex = GetColorindex

Je ne l'ai jamais essayée sur des boutons de commande, mais c'est à investiguer!

[_flori_]

bonjour,

Merci de votre réponse, ce code marche très bien pour changer la couleur de cellule d'une feuille

Cependant j'aimerais qu'il change la couleur d'un commandboutton dans un userform

exemple
Je placerais le code que vous m'avez dis dans un commandbutton d'un userform1
et après avoir sélectionner la couleur sur la palette celle-ci irais changer le commadbutton qui ce trouverais dans un userform2

En vous remerciant