Changer la couleur si la valeur de la cellule change

Bonjour,

J'utulise le code ci-dess0us pour changer la couleur de ma cellule s'il y a modification. mais je rencontre 2 problemes :

1/supposons que la valeur de ma cellule est 3, si je change la valeur, la couleur change, c'est bon. Mais si je clique sur la cellule et je rentre la meme valeur de départ (3) sa change de couleur aussi. Or sa ne devrai pas puisque la valeur entré est la même.

2/Comment faire un bouton qui appele le sub (copié ci-dessous). J'ai essayé, sa marche pas

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

        If Target.Value <> "" Then
            Target.Interior.ColorIndex = 23
        End If

End Sub

Bonjour,

Pour le premier point

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur
    Application.EnableEvents = False
    Valeur = Target
    Application.Undo
        If Target.Value <> Valeur Then
            Target.Interior.ColorIndex = 23
        End If
    Target = Valeur
    Application.EnableEvents = True
End Sub

Pour le deuxième point, ça me parait plus compliqué.

Pour vérifier si une cellule a été modifiée, il faut pouvoir comparer la valeur avant et après modification.

Si tu n'utilises pas l'évènement Change qui détecte la modification au moment où elle se produit, il faut que tu aies enregistré l'ancienne valeur pour faire cette comparaison.

A+

Merci beaucoup , le point 1 est réglé...