Microsoft 365 reporter des valeurs

MICHAEL

XLDnaute Occasionnel
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
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel.xlsx
    35.9 KB · Affichages: 7

Dranreb

XLDnaute Barbatruc
VB:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
1
Affichages
318
  • Résolu(e)
XL pour MAC VBA Excel
Réponses
3
Affichages
291

Statistiques des forums

Discussions
313 281
Messages
2 096 784
Membres
106 748
dernier inscrit
Abdel93