XL 2019 Copier coller une cellule avec Sub Worksheet_Change(ByVal Target As Range)

[pat66]

Bonjour le forum,

J'ai besoin d'un coup de main car j'aimerai faire en sorte que dès que je modifie la cellule H24,
automatiquement le résultat de la cellule D50 se colle dans D24 avec le message "changement effectué"

Un grand merci

cdt

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address <> "$H$24" Then Exit Sub
  If Target.Value = "" Then Exit Sub
  Range("D24").Value = Range("D50").Value
  MsgBox ("changement effectué")
End Sub

A+ François

 

[pat66]

Bonjour Fanfan38,

un grand merci c'est exactement ce dont j'avais besoin

belle journée

Pat66