Autres Couleur de Shape

[Salmander]

Bonjour,
J'ai un petit souci de couleur de shape.
Je n'ai aucun problème pour la changer quand elle est sélectionné, mais je n'arrive pas à le faire autrement.

Sub ChColBtn()
 
    ActiveSheet.Shapes(Application.Caller).Select
 
    With Selection
        If .Interior.Color = 5296274 Then
            .Interior.Color = 12566463
        Else
            .Interior.Color = 5296274
        End If
    End With
 
    Range("A1").Select
 
End Sub

Je suis certain que c'est quelque chose de trivial et je remercie d'avance la bonne âme qui voudra bien me montrer l'étendue de mon ignorance.

 

[Hasco]

Bonjour,

Sans savoir ce que vous comptez faire de tout ça, votre macro test corrigée :

Sub test()

    With ActiveSheet.Shapes("BtnCo1l").DrawingObject
        If .Interior.Color = 5296274 Then
            .Interior.Color = 12566463
        Else
            .Interior.Color = 5296274
        End If
    End With

End Sub

Cordialement

 

[Salmander]

Merci beaucoup,
Voici une solution au lait cru qui me convient parfaitement.

 

[patricktoulon]

bonjour
en passant simplement par la propriété "fill" du shape

Sub test2()
With ActiveSheet.Shapes("BtnCo1l")
        If .Fill.ForeColor.RGB = 5296274 Then
            .Fill.ForeColor.RGB = 12566463
        Else
            .Fill.ForeColor.RGB = 5296274
        End If
    End With
End Sub

😉