Changer texte et couleur Toggle Boutton - Excel VBA

Question

Bonjour à tous, j'espère que vous aller bien.

Afin de donner la possibilité d'afficher ou non les graphiques de ma page Excel, j'ai créer un Macro qui permet en cliquant sur un boutton de soit les enlever, soit les réafficher, seulement en cliquant sur le Boutton. Hors ce boutton est statique, il y a marquer "Afficher / Masquer les graphiques".

Ce que je voudrai, c'est un boutton qui change de couleur et de texte lorsque je clique dessus, par exemple le Boutton 'Afficher le graphique' sera avec un background Noir tandis que le 'Masquer' sera en rouge et aura le texte 'Maquer le graphique'.

Voici le code de mon macro :

Option Explicit

Sub hidechart()

    With ThisWorkbook.Worksheets("CA").Range("45:74,118:147, 192:220, 265:292")
        .EntireRow.Hidden = Not .EntireRow.Hidden
    End With

End Sub
OK

Merci beaucoup à vous !

Ordonc · Answer

Bonjour…

dans l’onglet CA ,un bouton bascule nommé Vu et dans la fen^tre des codes de la feuille :

Private Sub Vu_Click()
    Range("45:74,118:147, 192:220, 265:292").EntireRow.Hidden = Vu
    Vu.Caption = IIf(Vu, "cacher", "afficher")
    Vu.BackColor = IIf(Vu, vbRed, vbGreen)
End Sub