colorier et encadrer bouton nouvelle barre d'outils

[Blafi]

Bonjour (ou bonsoir plutot) à tous,

J'ai trouvé par l'intermédiaire de cet excellent forum, une macro qui me permet de mettre une couleur de fond aux cellules sélectionnées dans une feuille en utilisant une barre d'outils créée et ajoutée à l'ouverture du classeur et basée sur des couleurs prédéfinis dans une zone nommée "couleurs".

Que son auteur me pardonne mais je n'ai pas retrouvé son nom alors que j'aurais aimé lui poser à lui cette question :

La barre d'outils se crée bien avec le nom des cellules prédéfinies en zone "couleurs" mais je souhaiterai que les boutons prennent la couleur de fond de chacune des cellules 'couleurs" .

J'ai essayé d'ajouter dans la macro au niveau de la création des boutons de la barre d'outils, une ligne "bouton.backcolor=range("couleurs")(i).interior.colorindex" mais cela n'a aucun effet.....

Pourriez vous me dire comment faire ??

Je joins le fichier original à toute fin utile

Merci d'avance et à bientôt.

 

[Grand Chaman Excel]

Re : colorier et encadrer bouton nouvelle barre d'outils

Bonsoir Blafi,

À ma connaissance, ce n'est pas possible de le faire dans une barre d'outils, mais si jamais tu trouves comment faire, ça m'intéresse...
Une solution serait d'utiliser un "userform" au lieu d'une barre d'outil car tu peux changer la couleur des boutons dans un userform avec la commmande ".backcolor"

A+

 

[phlaurent55]

Re : colorier et encadrer bouton nouvelle barre d'outils

Bonjour Blafi, Grand Chaman,

Que son auteur me pardonne mais je n'ai pas retrouvé son nom alors que j'aurais aimé lui poser à lui cette question :

en voyant le fichier , c'est à coup sûr une réalisation de Jacques BOISGONTIER

plus d'info encore sur son site: Formation Excel VBA JB

à+
Philippe

 

[Blafi]

Re : colorier et encadrer bouton nouvelle barre d'outils

Bonjour,

Merci à tous les deux pour vos réponses....
Dommage que ce ne soit pas possible, mais Jacques BOISGONTIER (que je remercie encore) aurait-il une solution avec un userform ?...
Je vais essayer de lui poser la question sur son site...
Bon courage et à +

 

[phlaurent55]

Re : colorier et encadrer bouton nouvelle barre d'outils

Re,

j'ai bien compris ta demande , je crée un fichier exemple dès que j'aurai un peu de temps devant moi

à+
Philippe

 

[phlaurent55]

Re : colorier et encadrer bouton nouvelle barre d'outils

Re,

voir fichier joint

à+
Philippe

 

[phlaurent55]

Re : colorier et encadrer bouton nouvelle barre d'outils

Re,

une autre manière d'opérer sans userform
permet également de colorier des sélections multiples

à+
Philippe

 

[Efgé]

Re : colorier et encadrer bouton nouvelle barre d'outils

Bonjour Blafi, Bonjour Philippe, bonjour à tous, au fil, au forum,
Juste pour le fun
Si Blafi repasse par ici, une proposition à ajouter au dernier fichier de Philippe :

Private Sub CommandButton6_Click()
Selection.Interior.ColorIndex = Int((1 - 56) * Rnd + 56)
End Sub

Cordialement

 

[Blafi]

Re : colorier et encadrer bouton nouvelle barre d'outils

Re bonjour à tous,

Mes excuses pour vous avoir abandonné lachement mais j'ai du m'absenter et je regarde les réponses seulement ce soir...

Merci phlaurent55 et Efgé pour votre contribution très appréciable... ça marche au poil !

Ces solutions résolvent un pb que je voulais évoquer car dans ma version d'origine avec la boite d'outils (qui marche très bien en excel 2003) ça ne marche pas en excel 2007 dans lequel il n'y a pas de barres d'outils....

A ce sujet, quelqu'un aurait-il une solution équivalente pour excel 2007...

A bientôt pour vos propositions et encore merci.