Macro quand une seule cellule change sous condition

Salmander à dit:

Bonjour,
Je souhaiterais activer une macro quand une cellule change, mais seulement quand un événement particulier est lancé.

Dans le cas de mon fichier, je souhaiterais copier la plage B6:C7 (nommée : Valeur) dans la plage E6:F7 (nommée : Copie),
mais uniquement quand D1 est « OK ».

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$1" Then Exit Sub
Application.EnableEvents = False
If UCase(Target.Value) = "OK" Then
  [copie] = [valeur]
Else
  [copie] = ""
End If
Application.EnableEvents = True
End Sub

Salmander à dit:

Dans mon cas, j’aurais besoin que Copie soit le reflet de Valeur tant que D1 est à « Ok » et que je modifie Valeur.

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Or Target.Address = [valeur].Address Then
  Application.EnableEvents = False
  If UCase([d1]) = "OK" Then
    [copie] = [valeur]
  Else
    [copie] = ""
  End If
  Application.EnableEvents = True
End If
End Sub