colorier autoshape

[fredo]

bonjour,
voila j'ai un petit souci, j'ai crée des autoshape quie je voudrais colorier. Pour cela , j'effectue une boucle for qui doit me colorier les shapes les une apres les autres.cependant j'ai un soucis de syntaxe, voici mon code:

Sheets("Gestion_IZ").Activate
For x = 36 To 61 Step 1
ActiveSheet.Shapes("AutoShape x").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Next x


mon probleme est que le code n'accepte pas mon ("autoshape x")..

quelle est la syntaxe reglementaire svp????

MERCI

 

[CBernardT]

Bonjour Fredo

Quelques modifs et je pense que cela doit marcher ?

Sub Colories()
Dim MyRange As Object
Dim X As Byte
Sheets("Gestion_IZ").Activate
For X = 36 To 61 Step 1
Set MyRange = ActiveSheet.Shapes.Range(Array(X))
MyRange.Select
MyRange.Fill.ForeColor.SchemeColor = 10
MyRange.Fill.Visible = msoTrue
MyRange.Fill.Solid
Next X
End Sub

Cordialement

CBernardT