Discussion :

[MiXinG]

Bonjour à tous!
Je souhaite afficher dans un UserForm un bouton ayant la même mise en forme qu'une cellule d'un feuille Excel (par exemple A1).
Je souhaite aussi pouvoir modifier ces paramètres via le Userform.

Je commence doucement et je m'occupe de la couleur de fond. J'utilise donc:

Code :

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

CommandButton1.BackColor = Range("A1").Interior.Color

Cela fonctionne!

Ensuite pour permettre la modification de la couleur j'utilise la palette obtenue en executant:

Code :

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

Application.Dialogs(xlDialogPatterns).Show

J'obtiens donc une magnifique palette! Par contre je n'arrive pas à récupérer la couleur choisie. Cette ligne de commande renvoie un Booléen. J'ai cherché mais pas trouvé
Si quelqu'un peut m'aider, ça m'arrangerait pas mal!

Merci d'avance!

[MiXinG]

J"ai trouvé!
Alors en fait le changement de couleur a lieu sur la cellule selectionnée. il suffit donc de la selectionner juste avant de changer de couleur...
Désolé pour le pourrissage de forum.
j'espère que ça aidera quelqu'un!

[LeForestier]

Bonjour,
Effectivement tu ne sais pas retrouver la couleur envoyée par la boite dialogs.
Si, pour une prochaine fois, tu doit aire sélectionner une couleur et la récupérer dans ton UF, emploi le contrôle MS CommonDialog qui lui peu te renvoyer (entre autre) la couleur.
A+

[MiXinG]

Ok!
Merci beaucoup!
Je l'utiliserai sûrement!