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é"
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
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