Microsoft 365 Alterner entre 2 couleurs de Shape à chaque clic

[pat66]

Bonjour le forum,

je souhaiterai alterner entre 2 couleurs lorsque je clique sur les Ellipses en question, pourriez vous m'aider à rectifier mon erreur ?

J'essaie de rédiger ainsi, mais cela ne fonctionne pas :

Feuil62.Shapes("Ellipse 88111").Fill.ForeColor.RGB = Array(RGB(0, 32, 96), RGB(20, 160, 250))
Feuil17.Shapes("Ellipse 23560").Fill.ForeColor.RGB = Array(RGB(0, 32, 96), RGB(20, 160, 250))


un grand merci

 

[sylvanu]

Bonjour Pat,
Vous pouvez essayer :

With Feuil62.Shapes("Ellipse 88111")
    If .Fill.ForeColor.RGB = RGB(0, 32, 96) Then .Fill.ForeColor.RGB = RGB(20, 160, 250) Else .Fill.ForeColor.RGB = RGB(0, 32, 96)
End With
With Feuil17.Shapes("Ellipse 23560")
    If .Fill.ForeColor.RGB = RGB(0, 32, 96) Then .Fill.ForeColor.RGB = RGB(20, 160, 250) Else .Fill.ForeColor.RGB = RGB(0, 32, 96)
End With

 

[pat66]

Bonjour Sylvanu,

c'est parfait, j'étais vraiment dans la mauvaise direction

un grand merci

 

[sylvanu]

Un chouia plus court :

With Feuil62.Shapes("Ellipse 88111")
    .Fill.ForeColor.RGB = IIf(.Fill.ForeColor.RGB = RGB(0, 32, 96), RGB(20, 160, 250), RGB(0, 32, 96))
End With
With Feuil17.Shapes("Ellipse 23560")
    .Fill.ForeColor.RGB = IIf(.Fill.ForeColor.RGB = RGB(0, 32, 96), RGB(20, 160, 250), RGB(0, 32, 96))
End With