Discussion :

[sirine_]

Bonjour à tous,

J'ai beaucoup essayé de trouver une solution mais j'ai pas reussi.
En effet, mon problème consiste dans la recherche de plusieurs critères. Alors, j'ai deux classeurs (bordereau.xls et referent.xls), j'ai deux chaines de caractères qui se trouve dans referent.xls et je les cherche est ce qu'ils existent dans la feuille deux du classeur bordereau.xls dans ce dernier il contient une chaine de caractère qui peut contenir les deux petites chaines déjà trouvé dans referent.xls.
J'espère que j'ai bien expliqué parce qu'elle une partie d'un projet et qui est lié. vous trouvez également en dessous la partie code pour mieux comprendre.
merci d'avance,

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
 
derl = Fe_Produits.Cells(.Rows.Count, 1).End(xlUp).Row
 
                        Set trouve2 = Range("P2", "P" & J).Cells.Find(what:=.Cells(Compteur_1, 16).Value)
 
                      If (Not trouve2 Is Nothing) Then
 
                       If .Cells(Compteur_1, 13).Value = "break-out" Then
 
                          capa1 = Cells(Compteur_1, 23).Value
                          capa2 = (Cells(Compteur_1, 14).Value) * 2
 
 
                              For compteur_3 = 9 To derl
                                Set trouve3 = Fe_Produits.Cells(compteur_3, 1).Find(what:=capa1 And capa2)
 
                                  If (Not trouve3 Is Nothing) Then
 
                                      Fe_Bordereau.Cells(K, 1) = Fe_Produits.Cells(compteur_3, 1)
 
 
                    End If
                    Next compteur_3
                    End If
                    End If

[Nico Chg]

Bonjour,

Malgré tes explications, je n'ai pas du tout compris ton problème ! Mais je te conseille de regarde la méthode .Find !

[sirine_]

Merci pour votre réponse Nico,

Oui je sais qu'il est un peu difficile de comprendre.
En ce qui concerne la méthode Find, si tu vois dans mon code précédent déjà contient la méthode find mais ça marche pas.
Je réexplique, comme je dis, j'ai deux classeurs(CLES_1 et CLES_2). CLES_1 est composé des plusieurs colonnes et lignes. La première chose à faire c'est de prendre la rangé P ou se trouve les noms des câbles(j'ai vais consacrer ici que pour les noms des cables qui ont la mm couleur du fond) alors je commence par le dernier jusqu'à la couleur devient différent. Après cette étape il faut prendre les cables un par un (qui ont la mm couleur) et je fais la méthode find sur tous la rangé P ( de la ligne 2 jusqu'à la première ligne ou la couleur est différent).Si Find is nothing alors je veux vers la colonne 23 et 14 (voir le code pour bien comprendre) et je les stocke dans deux paramètres(capa1 et capa2) ces deux paramères sont mes critères à rechercher. dès que j'ai fini de tirer les deux critères je vais vers le 2e classeur CLES_2 ce dernier contient 2 feuilles (Fe_bordereau et Fe_produits), je prend donc le deux critères déjà trouvé et je veux les recherchés dans les lignes de la feuille Fe_produits si je trouve dans l'un deux ligne(.cells(1,1)) les deux critères (en fait c'est une chaine de caractère qui est composé d'autres caractères)je prend celui ci et je le copie dans la Fe_bordereau)

cette fois ci, je pense que j'ai bien expliqué j’espère!!!

Merci d'avance,

[Nico Chg]

Tu me parle de couleur ? il n'en était pas question dans la première explication !

bon, je vais essayer de récapituler pour voir si on est sur la même longueur d'onde.

Tu as deux classeurs : A et B. On se place dans le classeur A, à la ligne P, et on parcours les valeurs (ici des noms de câbles). A ce moment là, il y a une histoire de couleur que je n'ai pas tout à fait saisis, mais passons.

Pour chaque noms de câbles, tu recherche si ce nom existe déjà dans la ligne P. S'il n'existe pas, tu recherche une correspondance dans la colonne 14 et la colonne 23.

Une fois ces correspondances trouvées, je refait une recherche dans le classeur B. Et après, je suis perdu.

Et je suis désolé, mais j'ai autant de mal avec le code. Je vois un Next compteur, mais pas de For, plein de End if non indenté, bref, j'ai du mal

Peut être qu'avec quelques images ?

[sirine_]

Merci pour votre réponse
Désolée pour la mal explication
je vais essayer par cette méthode, je vous envoie tous le code.Si vous comprennez pas je vais faire des captures écrans.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
 
Sub Macro1()
 
Dim Cls_1 As Workbook
Dim Cls_2 As Workbook
Dim Fe_Produits As Worksheet
Dim Fe_Bordereau As Worksheet
Dim Fe_cablage As Worksheet
Dim Chemin As String
Dim Nom As String
Dim Nom2 As String
Dim Compteur_1 As Integer, Compteur_2 As Integer, compteur_3 As Integer, compteur_4 As Integer, compteur_5 As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer, x As Integer
Dim DerLg As Integer
Dim nb As Integer
Dim capa1 As String, capa2 As String
 
 '''''''''''''''''Nom du fichier'''''''
    Set Cls_1 = ThisWorkbook
 
    Nom = Cls_1.Name
 
    Nom = Left(Cls_1.Name, InStr(Cls_1.Name, ".xlsm") - 1)
 
    Cls_1.Worksheets("bordereau").Range("F4") = Split(Nom, "_")(2)
 
    Nom2 = Split(Nom, "_")(4)
 
    Cls_1.Worksheets("bordereau").Range("F7") = Mid(Nom2, 1, 2) & "/" & Mid(Nom2, 3, 2) & "/" & Mid(Nom2, 5, 2)
 
'''''''''''ouvrir le fichier referentiel''''''''''''''''''''''''''''
 
 
    Chemin = Cls_1.path
 
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
 
    'suppression des 3 premières lettres
    Nom = Right(Cls_1.Name, Len(Cls_1.Name) - 8)
 
    'variable objet "Workbook"
    Set Cls_2 = Application.Workbooks.Open(Chemin & "referentiel" & Nom)
 
 
 
 
    Set Fe_Produits = Cls_1.Worksheets("Liste Produits Stockés")
    Set Fe_Bordereau = Cls_1.Worksheets("bordereau")
    Set Fe_cablage = Cls_2.Worksheets("cablage")
    Set Fe_référencés = Cls_1.Worksheets("Liste Produits Référencés")
 
 
 
    With Fe_cablage
 
        DerLg = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        I = DerLg
        J = I - 1
        K = 25
 
 
 
   Do While .Cells(I, 1).Interior.ColorIndex = .Cells(J, 1).Interior.ColorIndex
   I = I - 1
   J = J - 1
   Loop
 
 
                For Compteur_1 = DerLg To I Step -1
 
                Set trouve = Range("A2", "A" & J).Cells.Find(what:=.Cells(Compteur_1, 1).Value)
 
                    If (trouve Is Nothing) Then
 
 
 
                      Fe_Bordereau.Cells(K, 1) = Fe_Produits.Cells(6, 1)
                                     K = K + 1
                      Fe_Bordereau.Cells(K, 1) = Fe_Produits.Cells(8, 1)
 
 
                    Else
 
 
                           Set trouve1 = Range("B2", "B" & J).Cells.Find(what:=.Cells(Compteur_1, 2).Value)
 
                          If (Not trouve1 Is Nothing) Then
 
 
                            If ((.Cells(Compteur_1, 13).Value = "break-out SMF") Or (.Cells(Compteur_1, 13).Value = "break-out MMF")) Then
 
                                Fe_Bordereau.Cells(K, 1) = Fe_Produits.Cells(7, 1)
 
 
                             Else
 
                            If ((.Cells(Compteur_1, 13).Value = "jarretière SMF") Or (.Cells(Compteur_1, 13).Value = "jarretière MMF")) Then
 
                                Fe_Bordereau.Cells(K, 1) = Fe_Produits.Cells(7, 1)
 
 
                             End If
 
                       End If
 
                        End If
 
                        End If
 
 
            If (Fe_Bordereau.Cells(K, 1) = "") Then
 
                   K = K - 1
                    End If
 
 
                   derl = Fe_Produits.Cells(.Rows.Count, 1).End(xlUp).Row
 
                        Set trouve2 = Range("P2", "P" & J).Cells.Find(what:=.Cells(Compteur_1, 16).Value)
 
                      If (Not trouve2 Is Nothing) Then
 
                       If .Cells(Compteur_1, 13).Value = "break-out" Then
 
                          capa1 = Cells(Compteur_1, 23).Value
                          capa2 = (Cells(Compteur_1, 14).Value) * 2
 
 
                              For compteur_3 = 9 To derl
                                Set trouve3 = Fe_Produits.Cells(compteur_3, 1).Find(what:=capa1 And capa2)
 
                                  If (Not trouve3 Is Nothing) Then
 
                                      Fe_Bordereau.Cells(K, 1) = Fe_Produits.Cells(compteur_3, 1)
 
 
                    End If
                    Next compteur_3
                    End If
                    End If
 
 
 
 
 
               K = K + 1
                    Next Compteur_1
 
 
 
 
    End With
 
 
 
    With Fe_Bordereau
 
 
  Derg = .Cells(.Rows.Count, 1).End(xlUp).Row
   compteur_4 = 25
    Do
 
    nb = 1
    For compteur_5 = compteur_4 + 1 To Derg
 
   If (.Cells(compteur_4, 1) = .Cells(compteur_5, 1)) Then
        nb = nb + 1
 
        Fe_Bordereau.Cells(compteur_4, 2) = nb
        Fe_Bordereau.Cells(compteur_5, 1) = ""
   End If
 
  Next compteur_5
        compteur_4 = compteur_4 + 1
 
   Loop Until (Fe_Bordereau.Cells(compteur_4, 1) = "")
 
  End With
 
 
 
End Sub