Bonjour à tous,
J'ai cherché beaucoup sur net mais toujours je trouve pas ce que je veux.J'espère que vous pouvez m'aider cette fois ci.
Alors pour expliquer un peu mon problème,en effet, j'ai deux fichiers:
- fichier: référentiel
-fichier: bordereau: qui contient deux onglets(bordereau et produit"
Le fichier "produit" contient un tableau qui rassemble tous les produits, je veux faire une recherche de 2 ou trois critères (que je les extraires du fichier "référentiel") et selon ces critères (exemple longueur et jarr) je veux parcourir tout les tableaux dans l'onglet"produit" si je trouve les deux critères recherchés dans l'un deux cellules je fais la copy dans l'onglet "bordereau d u fichier "bordereau".
J'espère que j'ai bien expliqué mes souhaits pour finaliser mon code.
Merci à vous tous,
Vous trouvez également au dessous mon code pour que vous puissiez comprendre mieux ce que je veux.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 DerLg =Fe_cablage .Cells(.Rows.Count, 1).End(xlUp).Row 'Fe_cablage est un onglet dans le fichier référentiel der = Fe_référencés.Cells(.Rows.Count, 1).End(xlUp).Row ' Fe_référencés est un onglet dans le fichier bordereau with Fe_cablage For Compteur_1 = DerLg To I Step -1 longueur = .Cells(Compteur_1, 23).Value type1 = .Cells(Compteur_1, 13).Value If (type1 = "jarretière SMF") Then jarr = "monomode" Else jarr = "multimode" End If Set trouve2 = Fe_référencés.Range("C1", "C" & der).Cells.Find("jarretière") If (Not trouve2 Is Nothing) Then Set trouve22 = Fe_référencés.Range("C1", "C" & der).Cells.Find(longueur) x1 = trouve22.Address If (Not trouve22 Is Nothing) Then Set trouve3 = Fe_référencés.Range("C1", "C" & der).Cells.Find(jarr) x2 = trouve3.Address If (Not trouve3 Is Nothing) Then Fe_Bordereau.Cells(K, 1) = Fe_référencés.Cells(trouve3.Row, trouve3.Column) K = K + 1 End If End If End If Next Compteur_1 End With
Partager