MACRO VBA Copier des valeurs de plusieurs colonnes d'une feu

Bonjour,

j'ai un fichier avec deux feuilles : "traitement" et "réserves".

Je précise que les données sont écrites après la dernière ligne non nulle dans le tableau de la feuille "traitement" grâce à un formulaire (pas présent dans le fichier joint) :

• dans la colonne A : le numéro de lot
• dans la colonne B : le type de lot
• dans la colonne C : le nombre de produits
• dans la colonne D : le produit correspondant

En fonction d'une valeur écrite dans le tableau de la feuille "traitement", je souhaiterais que :

• la macro aille la chercher dans le tableau de la feuille "réserves" (ex:bois dans la colonne A de la feuille "réserves")
• sélectionne et copie les valeurs correspondantes dans les colonnes suivantes (ex: colonne B à H de la ligne "bois"),
• et me les colle dans le tableau de la feuille "traitement" (ex: colonne E à K juste à côté de "bois").

J'ai essayé un code mais il n'a pas l'air de marcher. Pourriez-vous m'aider?

Voici le code initial

Dim I As Integer, produits As Range

With Selection

For I = 3 To .Range("D" & Rows.Count).End(xlUp).Row

Set produits = Sheets("Réserves").Range("A:H").Find(What:=Range(" A" & I), LookAt:=xlWhole).Activate

If Not produits Is Nothing Then .Range("E:K" & I) = produits.Offset(1, 3)

Set produits = Nothing

Next I

End With

Merci encore

Bonjour,

avec formule ça fonctionne aussi.

Cordialement.

Merci bigdaddy!

Je ne connaissais pas cette formule. Très intéressante.