Changer couleur objet par macro

[800vfr76]

Bonjour a tous,

Je souhaiterai changer la couleur d'un des 2 objets groupés par macro mais je bloque pour affecter la couleur, la macro plante a la troisième ligne (macro ci-dessous).

Quelqu'un aurait-il une idée pour me sortir de la?

Je joint un fichier pour exemple.

Merci d'avance a vous.

Sub couleur()

 
    ActiveSheet.Shapes("Groupe 3").Select
    ActiveSheet.Shapes("Forme automatique 1").Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
  End Sub

 

[JCGL]

Re : Changer couleur objet par macro

Bonjour à tous,

Peux-tu essayer avec :

ActiveSheet.Shapes("Group 3").ShapeRange.Ungroup.Select
    ActiveSheet.Shapes("Forme automatique 1").Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
 ActiveSheet.Shapes("Rectangle 2").ShapeRange.Regroup.Select

Pas tester ;-)

Mais le principe est de dégrouper et de regrouper après traitement
A+

 

[800vfr76]

Re : Changer couleur objet par macro

Re,

Merci pour votre réponse, en dégroupant les objets j'avais réussi mais j'aurais souhaité le faire sans dégrouper les objets car dans l'exemple il n'y a que 2 objets mais dans mon vrai problème j'ai 6 objets groupés.

Je peux le faire manuellement, alors je pensais qu'il était possible aussi de le faire par macro.

Si pas possible je pense que je vais plutot ajouter un objet par dessus qui sera visible ou pas.

A moins que quelqu'un ai une autre solution.

Merci.