Colorier automatiquement une forme à partir de données RVB

Bonjours à toutes et à tous. Et merci de lire ce qui suit

Je ne suis pas expert "Excel" et là, je suis entrain de m'arracher les cheveux pour enregister une macro qui me serait bien utile pour colorier automatiquement une forme (dessin)

Voilà donc ma question :

Est-il possible de créer une macro qui se chargerait de mettre la couleur du forme automatiquement, en récupérant les informations RVB disponibles pour documenter "Format de la Fomrme Automatique" ?

Ex :

R = 255

V=155

B=50

La macro pourrait récupérer ces données et irait alimenter la boite de dialogue : "Format de la forme automatique".

Voilà l'adresse du fihier exemple :

https://www.excel-pratique.com/~files/doc/Macro_Couleur.xls

Par avance un grand merci pour votre aide

M

Bonjour,

Voilà ton fichier en retour avec la macro ci-dessous qui est placée dans un module.

Place tes chiffres dans les cellules F3, G3 et H3 et ensuite clique sur le bouton couleur.

la macro :

Sub colorie()
'Macro par Dan le 06/07/2007
Dim R, V, B
R = Range("F3")
V = Range("G3")
B = Range("H3")
ActiveSheet.Shapes("Oval 3").Fill.ForeColor.RGB = RGB(R, V, B)
End Sub

Le fichier --> https://www.excel-pratique.com/~files/doc/A0k9UMacro_Couleur.xls

A te lire

Dan

Je n'ai pas encore testé la solution mais déjà je m'empresse de te remercier car vraiment je pensais que ça n'aurais pas été possible !

Mais bon avec Excel... tout est possible n'est-ce pas ?

Un grand merci à toi !

M

Re,

Petite précision concernant la valeur des couleurs qui doit toujours être comprise entre 0 et 255.

Pour ce qui est du bouton, il est lié à une macro se trouvant en VBA dans la feuil1 qui fait appel à la macro COLORIE

Tu peux bien entendu lier ce bouton directement à la macro COLORIE par clique droite et là choisir "AFFECTER UN MACRO" puis choisir la macro COLORIE.

A te lire

Dan