XL 2010 Modifier la couleur d'un Label (ActiveX) situé sur la FEUILLE

[Magic_Doctor]

Bonsoir,

Tout est dans le titre. J'ai un peu tout essayé et je finis par me demander si c'est possible.
Il y a un Label nommé "MonLabel" sur la feuille. Depuis une macro, je veux modifier sa couleur.
Excel et les couleurs, c'est un peu le bordel avec les Hexa, Long et RGB. En général, j'utilise plutôt les Long.
J'ai tenté ceci, sans succès :

With ActiveSheet.Shapes("MonLabel")
    .BackColor = 125254 'vert clair'
End With

Me suis-je encore planté ou est-ce tout simplement impossible ?
Merci d'avance pour toute aide.

 

[patricktoulon]

Bonsoir
ce n'est pas par la collection "shapes qu'il faut passer pour atteindre les properties d'un controls activX sur feuille
mais par
1° la collection OleObjects

With ActiveSheet.OLEObjects("MonLabel").Object
    .BackColor = 125254 'vert clair'
End With

ou

2° la collection DrawingObjects

With ActiveSheet.DrawingObjects("MonLabel").Object
    .BackColor = 125254 'vert clair'
End With

les deux suffixés bien entendu de la propertie determinant sont type "object"


Mais!!!!
si tu tiens absolument a passer par la collection "shapes"
il te faut remonter jusqu'à l'object c'est rigolo

With ActiveSheet.Shapes("MonLabel").DrawingObject.Object
    .BackColor = 125254 'vert clair'
End With

 

[Magic_Doctor]

Bonsoir

Merci patricktoulon, ça marche au poil.