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
Bonsoir.
Dans le module Feuil1 (Feuil1) :
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
      End If
   End Sub
 

Dranreb

XLDnaute Barbatruc
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 ?
 

Discussions similaires

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

Membres actuellement en ligne

Statistiques des forums

Discussions
313 275
Messages
2 096 759
Membres
106 744
dernier inscrit
sshkm16