Worksheet change Cell value

Salut,

Je veux inscrire la date du dernier changement de la valeur de la cellule de la première colonne dans la cellule de le deuxième colonne.

J ai essaye worksheet_change avec Target , mais j y arrive plus :((

Quelqun peut m aider s'il vous plais?

Merci d'avance

Bonsoir

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target.Column > 1 Then Exit Sub Target.Offset(0, 1).Value = Date 'ou Now End Sub

---

bonsoir NizarDev l'ami mercatog le forum

une autre facon de l'ecrire avec intersect

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Target.Offset(0, 1) = Date 'ou now End Sub

---

mercatog, laetitia,

Merci bcp pour votre aide ;)