Autres Couleur de Shape

Salmander · 7 Juillet 2021

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.

VB:

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 · 7 Juillet 2021

Bonjour,

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

VB:

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

Hasco · 7 Juillet 2021

Bonjour,

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

VB:

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 · 7 Juillet 2021

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

patricktoulon · 7 Juillet 2021

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

VB:

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

Autres Couleur de Shape

Salmander

XLDnaute Occasionnel

Pièces jointes

Hasco

Hasco

XLDnaute Barbatruc

Salmander

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires