Action lors d'un changement de valeur de cell

[Onurb_toulouse]

Bonjour,

je souhaite effectuer une action
> copier A2 vers D2
Lorsque la valeur de A1 change (par ex)

Merci d'avance

Onrub

 

[PascalXLD]

Re : Action lors d'un changement de valeur de cell

Bonjour

une evenementielle toute simple

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then Range("D2") = Range("A2")

End Sub