Changer couleur d'une forme (shapes)

Marsh Posté le 13-03-2010 à 12:55:15

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

Marsh Posté le 13-03-2010 à 12:55:15

Marsh Posté le 13-03-2010 à 17:26:59

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

Marsh Posté le 13-03-2010 à 18:10:09

Bj

le premier code marche

merci

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *