Changement de couleur de bouton

Bonjour,

J'espère que la communauté va bien...

Je suis bloqué sur un besoin de changement de couleur de bouton...

Je cherche à changer le texte et la couleur d'un bouton à partir de la valeur d'une cellule (voir fichier joint).

Le texte change bien, mais la couleur ne bouge pas...

Si quelqu'un avait une idée lumineuse... Je lui en serais gré.

PS: L'objectif ultime serait en plus de faire clignoter le bouton lorsqu'il devient rouge, mais là, je demande peut-être trop à Excel ?

Merci de vos retours et bonne soirée.

Bonjour,

Tu as utilisé un bouton "Contrôles de formulaire" ... Est-ce que tu as essayé avec un bouton "Contrôles ActiveX" ... le code serait, par contre, différent de celui-ci ...

Un essai ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If ActiveSheet.Range("$A$5") = ActiveSheet.Range("$A$2") Then
        ActiveSheet.Shapes.Range(Array("Button 1")).Select
        With Selection.Font
            .ColorIndex = 50
        End With
        Cells(1, "A").Select
        ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = ActiveSheet.Range("$A$2")
    Else
        ActiveSheet.Shapes.Range(Array("Button 1")).Select
        With Selection.Font
            .ColorIndex = 3
        End With
        Cells(1, "A").Select
        ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = ActiveSheet.Range("$A$3")
    End If
End Sub

ric

Bonjour Calou68, ric, le forum,

Un autre essai...(il faut utiliser un bouton activeX).....

source: Theze

Cordialement,