Bonjour mdakini, re le forum
Je n'aurai pas le temps avant ce soir mais avant toute chose, ton code m'étonne d'après les fichiers que tu as mis en PJ.
alors vérifie déjà les colonnes que tu compares car d'après moiCode:
1
2
3
4
5
6
7 For Each cel1 In v1 For Each cel2 In v2 If cel1 & cel1.Offset(0, 13) = cel2 & cel2.Offset(0, 1) Then cel1.Offset(0, 36) = cel2.Offset(0, 2) End If Next cel2 Next cel1
cel1 & cel1.Offset(0, 13) = fichier1 => col D et col Q
cel2 & cel2.Offset(0, 1) = fichier MLI => col D et col E car voici tes déclarations
alors recontrole, une erreur est de ma faute, pas fait gaffeCode:
1
2
3
4
5
6
7
8 With wb1.Sheets("BOM") derLg1 = .Range("D" & .Rows.Count).End(xlUp).Row Set v1 = .Range("D2:D" & derLg1) End With With wb2.Sheets("MLI") derLg2 = .Range("D" & .Rows.Count).End(xlUp).Row Set v2 = .Range("D2:D" & derLg1)'déjà là, ça ne va pas derlg2 et pas 1 End With
excuses-moi mais plus avant ce soirCode:Set v2 = .Range("D2:D" & derLg2)