Macro Recherchev

Bonjour

Plutôt que des images, Peux tu envoyer un bout de ton fichier (quelques dizaines de lignes) , sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller".

Cdlmnt

1. La strucure de ton fichier n'est pas la même que celle de tes images, si tu veux faire une macro, et avant d'aller plus loin, il faut définir exactement la structure qui sera utilisée.

2. Les numéros de lots sont ils uniques dans la colonne Lot ?

Bref, envoies un bout de fichier vraiment complet

Cdlmnt

Bonjour
regarde si la macro te va

Sub TestTransfert()
Application.ScreenUpdating = False
NomLig1 = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
NomLig2 = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
   Feuil3.Range("A5:E" & Rows.Count).ClearContents
Feuil1.Select
L2 = 5
   For L = 2 To NomLig1
   Lot = Range("B" & L).Value
      For L1 = 2 To NomLig2
         If Feuil2.Range("A" & L1).Value = Lot Then
            Feuil3.Range("A" & L2).Value = Range("A" & L).Value
            Feuil3.Range("B" & L2).Value = Range("B" & L).Value
            Feuil3.Range("C" & L2).Value = Range("C" & L).Value
            Feuil3.Range("D" & L2).Value = Feuil2.Range("B" & L1).Value
            Feuil3.Range("E" & L2).Value = Range("C" & L).Value2 - Feuil2.Range("B" & L1).Value2
            L2 = L2 + 1
         End If
      Next
   Next
Feuil3.Select
End Sub

Amettre dans un Module
A+
Maurice

Tu peux t'en sortir sans macro en utilisant la fonction recherchevma (= recherchev multiples arguments) que j'ai développée.

voir lien ci-joint
https://www.cjoint.com/c/FEpwaqoXdh8

RECHERCHEVMA
Cette fonction renvoie la valeur correspondante à une colonne d’une table en fonction des valeurs cherchées.

La syntaxe de cette fonction est :
RECHERCHEVMA (table ; no_index_col; valeur_cherchée _1 ; valeur_cherchée _2 ; … ; valeur_cherchée _n)

• table: Plage de cellules qui contient les données. Vous pouvez utiliser une référence à une plage (par exemple, A2:D8) ou un nom de plage. C’est sur les valeurs des colonnes 1 à n de table respectives à chaque argument de valeur_cherchée, que portent les différentes valeurs cherchées. Ces valeurs peuvent être du texte, des nombres ou des valeurs logiques.

• no_index_col: Numéro de la colonne de l’argument table dont la valeur correspondante doit être renvoyée. Si l’argument no_index_col est égal à 1, la fonction renvoie la valeur de la première colonne de l’argument table ; si l’argument no_index_col est égal à 2, la valeur de la deuxième colonne de l’argument table est renvoyée, et ainsi de suite.

• valeur_cherchée_i: La valeur à chercher dans la colonne i de la table selon la position i de l’argument valeur_cherchée. Le nombre d’arguments pour valeur_cherchée peut varier de 1 à n. Si une des valeurs cherchées n’est pas trouvée dans l’argument table, la fonction RECHERCHEVMA renvoie la valeur d’erreur #N/A.

Bonjour
voila un modèle avec une pro Barre
http://www.cjoint.com/c/FEql4HQmW5q
bon a toi de voir si ca te va
A+
Maurice