Couleur d'une cellule suivant sa valeur

Bonjour

J'ai créé une macro qui colorie le fond d'une cellule en fonction de sa valeur celle-ci fonctionne.

Mais là ou j'ai un problème c'est que lorsque j'efface cette valeur je voudrais que le fond de la cellule reprenne sa couleur initiale.

Je vous joint mon fichier pour que vous puissiez m'aider. Merci.

Bonjour PapouMAC,

Plutôt que de positionner ta macro dans 'Workbook_SheetChange' je te propose de la mositionner dans l'évènement 'Workshet_change' de ta feuille et de l'aménager de la façon suivante :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ligne As Integer
    Dim colonne As Integer
    Dim entete As String
    Dim nom As String

    ligne = Target.Row
    colonne = Target.Column
    entete = Target.Parent.Cells(1, colonne).Value
    nom = Cells(ligne, colonne).Value

    If entete = "Nom" Then
      If nom = "dupont" Then
        Target.Interior.Color = RGB(255, 153, 0)
        ElseIf nom = "durand" Then Target.Interior.Color = RGB(153, 204, 204)
        Else
            Target.Interior.Color = RGB(192, 192, 192)
        End If
    End If

End Sub

Bonjour PapouMAC, GVIALLES,

Mais si tu laisses le code dans le Workbook. Il faut modifier ainsi.

lig = ActiveCell.Row
ligne = ActiveCell.Row - 1
colonne = ActiveCell.Column
entete = Cells(1, colonne).Value
nom = Cells(ligne, colonne).Value
'Comme la supression modifie la position de la dernière ligne
'Il faut placer le rétablissement de couleur initiale en ligne actuelle si cette ligne est vide
If Cells(lig, colonne) = "" Then ActiveCell.Interior.Color = RGB(192, 192, 192)

Merci beaucoup à tout les deux. Vos macros fonctionnent parfaitement. Merci