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
40
 
 
    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