Discussion :

[NizarDev]

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

[mercatog]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

bonsoir NizarDev l'ami mercatog le forum

une autre facon de l'ecrire avec intersect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NizarDev]

mercatog, laetitia,

Merci bcp pour votre aide