Mettre une cellule en couleur

Bonjour

Dans mon fichier, j'ai un tableau avec des noms dans des cellules.

En cliquant sur le bouton "VALIDER LA GARDE", je souhaite que la cellule que j'avais sélectionné avant se colorise en violet clair et que le nom qui était inscrit dans cette cellule soit toujours visible. Bref, passer d'une cellule Noir sur Blanc à Noir sur violet clair juste en cliquant sur le bouton "VALIDER LA GARDE" (voir image ci jointe)

En vous remerciant tous par avance.

Cordialement

bonjour,

une façon de faire

Sub validergarde()

Selection.Interior.Color = RGB(255, 0, 255)

End Sub

Bonjour Johann77860, h2so4, le forum,

Si je peux me permettre ...

En cliquant la première fois, le fond de la cellule est coloré.

En cliquent une deuxième fois, le fond de la cellule redevient blanc.

Sub validergarde()

    If Selection.Interior.Color = RGB(255, 0, 255) Then
        Selection.Interior.Color = RGB(255, 255, 255)
    Else
        Selection.Interior.Color = RGB(255, 0, 255)
    End If

End Sub

bastr

Un tres grand merci à vous 2.