Microsoft 365 reporter des valeurs

[MICHAEL]

Bonjour,
( voir mon fichjer joint ) lorsque par exemple D1 = C8
je souhaiterais reporter les valeurs F5,G5,K5
dans les cases correspondantes à la ligne selectionnée et reste figees
lorsque je remplace la valeur en D1

 

[MICHAEL]

je ne sais pas ou ajouter votre code dans le precedent

 

[MICHAEL]

dois je rajouter un then a la fin du code?

 

[Dranreb]

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Cel As Range
   If Target.Address = "$D$1" Then
      Set Cel = [D6:D125].Find(Target.Value)
      If Cel Is Nothing Then Exit Sub
      Cel(1, 3).Value = [F5].Value
      Cel(1, 4).Value = [G5].Value
      Cel(1, 8).Value = [K5].Value
      [E5:K5].ClearContents
      End If
   End Sub

Il est évident qu'il faut effacer les cellules après les avoir copiées.

 

[MICHAEL]

du code initial

 

[MICHAEL]

Je vous l'ai dit: dans le module de l'objet Worksheet représentant la feuille Excel "Feuil1" dans la rubrique "Microsoft Excel Objets". Ce module s'appelle Feuil1, qui est ici le même nom que l'onglet.

Monsieur, je suis désolé mais je n'arrive pas a faire fonctionner ce code.
je vais regarder cela et vous remercie pour votre patience.
je vous souhaite une agréable soirée
cordialement
Michael