XL 2016 VBA date

[cmalifarge]

Bonsoir,
Je dois compléter un fichier par une macro qui aurait pour fonction quand j'inscris "X" dans une cellule quelconque de la colonne A d'inscrire la date du jour dans la cellule correspondante de la colonne B. voir exemple dans le fichier joint.
Merci par avance de l'aide et du temps que vous pourriez m'accorder.
Bonne soirée (au coin du feu)

 

[ChTi160]

Bonsoir cmalifarge

Une approche perfectible

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
 If Target.Value = "x" Then Target.Offset(0, 1) = Date
End If
End Sub

Voir Fichier !
Bonne soirée
Jean marie

 

[cmalifarge]

ça fonctionne
Merci
Bonne soirée