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 vous remercie de l'aide que vous pourrez éventuellement m'apporter.

 

[Dranreb]

Bonsoir.
Dans le module Feuil1 (Feuil1) :

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
      End If
   End Sub

 

[MICHAEL]

Merci, mais je n'arrive pas à faire fonctionner ce code de manière répétitive

 

[Dranreb]

Je ne comprend pas ce que vous voulez dire.

 

[MICHAEL]

j'ai réussi une fois, j'ai essayé sur une autre ligne et cela ne fonctionne pas

 

[Dranreb]

J'ai pourtant entré "d" en D1 et ça à bien copié les 3 cellule de la ligne 5 dans la ligne 9 qui contient "D" en D9

 

[MICHAEL]

je crois avoir compris
une fois que j'ai rentrer ces valeurs et lorsque je change de ligne les valeurs en F5 G5 K5 doivent s'ignitialiser

 

[Dranreb]

Je ne comprend pas votre expression "changer de ligne". D'après vous avez expliqué ce n'est pas vous qui choisissez la ligne, il faut prendre la ligne qui contient en colonne D la même lettre que celle entrée en cellule D1, non ?

 

[MICHAEL]

c'est a dire que les valeurs E5 jusqu'à k5 doivent s'effacer apres avoir executer le code

 

[Dranreb]

Ben ajoutez [E5:K5].ClearContents derrière.

 

[MICHAEL]

ou quand je change de ligne

 

[Dranreb]

Désolé, je ne comprends pas ce que vous voulez.

 

[MICHAEL]

Désolé, je ne comprends pas ce que vous voulez.

je ne sais pas ou ajouter votre code dans le precedent

 

[Dranreb]

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.