Changer couleur d'une forme (shapes)

Changer couleur d'une forme (shapes) - VB/VBA/VBS - Programmation

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

Reply

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

Reply

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

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

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


 
ou encore :
 

Code :
  1. Sub test()
  2. ActiveSheet.Shapes(1).OLEFormat.Object.Interior.ColorIndex = 5
  3. 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
Reply

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

Bj
 
le premier code marche
 
merci

Reply

Sujets relatifs:

Leave a Replay

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