Changer couleur d'une forme (shapes)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Changer couleur d'une forme (shapes)

86vomito33

Bonjour,

j'utilise Excel 2007 et je voudrais changer la couleur d'une forme (ellipse) de manière automatique.
Si la cellule A1 est supérieur à 75% alors la forme sera de couleur verte.

J'ai utiliser l'enregistreur de macro en changant la couleur de la forme mais je n'ai rien obtenu. J'ai essayé également avec shapes mais j'ai rien trouvé

Quelqu'un connait il le code pour changer la couleur d'une forme ?

merci de votre aide

Vomito

Publicité

galopin01

bonjour,
Non testé sur 2007 mais je pense que ça marche :

Code :

Sub test()
ActiveSheet.Shapes(1).DrawingObject.Interior.ColorIndex = 3
End Sub

ou encore :

Code :

Sub test()
ActiveSheet.Shapes(1).OLEFormat.Object.Interior.ColorIndex = 5
End Sub

On peut remplacer le N° d'index par le Nom de la shape entre " "
A+

Message édité par galopin01 le 13-03-2010 à 17:28:57

86vomito33

Bj

le premier code marche

merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Changer couleur d'une forme (shapes)

Sujets relatifs
Texte de la même couleur que le fond	Mise en forme sous dreamweaver
Afficher des statistiques sous forme de graphe	Word: VBA pour trouver et changer une couleur RGB en une autre
Erreur de compilation apres une mise en forme en classes	changer la couleur d'un text input quand on tape dedans?
[PHP] Trouver le sha1 d'un .pkcs12, depuis une forme binaire.	Changer l'img bg d'un onglet lorsqu'on clique dessus
Plus de sujets relatifs à : Changer couleur d'une forme (shapes)

Page générée en 0.038 secondes