XL 2010 Récupérer la couleur d'un shape

[David590]

Bonjour à tous,

J'aurai besoin de récupérer la couleur d'un shape dans une variable, j'y arrive avec "selection" comme ceci :
Var = Selection.ShapeRange.Fill.ForeColor.RGB

Mais ca ne fonctionne pas si j'essai de le nommer comme ca:
Var = shapes("monshape").ShapeRange.Fill.ForeColor.RGB

Comment puis-je faire pour le nommer sans devoir le sélectionner ?

 

[Dranreb]

Bonjour.
Suggestion: affichez l'explorateur d'objets pour trouver où se trouve cette propriété.
Apparemment Fill est directement une propriété FillFormat du Shape.

 

[TooFatBoy]

Hi,

J'aurai besoin de récupérer la couleur d'un shape dans une variable

S'il est rond, alors il est rouge...






C'est le shape rond rouge...
🤡

 

[sylvanu]

Bonjour David, Dranreb,
Il faut préciser la feuille. Par ex :

Couleur = ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB

Un tuto sur les shapes : Lien

 

[David590]

Super ça fonctionne parfaitement merci

J'étais persuadé d'avoir déjà essayé ça mais a mon avis j'ai ajouté un ActiveWorkbooks en trop ce qui fait que ca n'allait pas