Bouton qui affecte une couleur ou remet celle initiale

Bonjour,

je cherche a crée un bouton qui me permet de mettre la couleur de fond rouge sur une cellule active et que ci la couleur et déjà rouge dans cette cellule la couleur passe au vert.

merci

Bonjour,

Avec un bouton de commande ActiveX

Private Sub CommandButton1_Click()
    If ActiveCell.Interior.ColorIndex = 3 Then
        ActiveCell.Interior.ColorIndex = 43
    Else
        ActiveCell.Interior.ColorIndex = 3
    End If
End Sub

A+

Merci Frangy, cela fonctionne a merveille. par contre j'ai remarquer que cela marcher que pour les 56 couleurs "primaire". j'ai modifier ton code pour que cela fonctionne avec toutes les couleurs.

Bonne année !

Sub Bouton_rouge()
        If Selection.Interior.Color = 16764057 Then
            Selection.Interior.Color = 12632256
        Else
            Selection.Interior.Color = 16764057
        End If
End Sub