Comment utiliser un find dans une boucle ?

Version imprimable

Bonjour,
Pourriez-vous m'apporter votre aide. Je souhaiterais utiliser un find pour trouver une valeur dans une cellule Excel et la comparer à une autre. J'espère que je serai clair dans mon explication:
J'ai des valeurs dans 4 tableaux dans 4 onglets différents que je souhaite comparer à des valeurs de références documentées dans un 5ème tableau présent dans un 5ème onglets .
Je compare les valeurs de la première ligne des 4 premiers tableaux avec celles de la première ligne du tableau de référence.
Si elles sont identiques, je compare ensuite les valeurs de la 1ère colonne. Si elles sont également identiques je copie la valeur du tableau de reference dans les autres tableaux.

Pour le moment le code écrit teste 2 tableaux sur une même feuille avec des boucles imbriquées et cela fonctionne.
Ce que je souhaiterais :
Utiliser un find sur la première ligne afin de voir si on gagne du temps
Comment faire référence aux onglets dans les boucles
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub LaBoucle() Ligne1 = Range("A" & Rows.Count).End(xlUp).Row Colonne1 = Cells(3, Cells.Columns.Count).End(xlToLeft).Column Ligne2 = Range("G" & Rows.Count).End(xlUp).Row Colonne2 = Cells(12, Cells.Columns.Count).End(xlToLeft).Column For i = Ligne1 To 2 Step -1 For j = Ligne2 To 13 Step -1 For k = Colonne1 To 1 Step -1 For l = Colonne2 To 7 Step -1 If Cells(12, l) = Cells(3, k) And Cells(i, 1) = Cells(j, 7) Then Cells(i, k) = Cells(j, l) End If Next l Next k Next j Next i End Sub
Merci
MichaSarah

Bonjour,

Une façon de lister tes feuilles pour boucler est de mettre leurs noms dans un tableau (Array)
Code:

1 2 3 4 5 Dim arrFeuilles as Variant arrFeuilles = Array("Feuil1", "Feuil2", "Feuil3") 'Change les noms For I = 0 to UBound(arrFeuilles) 'UBound est la limite maximale du tableau Msgbox arrFeuilles(I).Name Next

22/03/2016, 16h53
Menhir

@ MichaSarah : Dans ton code, il manque les noms de feuilles (les objets Worksheet).

Même avant de penser à boucler les quatre feuilles, il faudrait déjà dans le code différencier ce qui vient de la feuille destination de ce qui vient de la feuille de référence.

Cela dit, je suis à peu près persuadé que ceci peut se faire sans VBA avec des RECHERCHEV() pour peu que tu passes par l'intermédiaire d'une concaténation de tes deux critères (ou avec un SOMME.SI.ENS si la valeur cherchée est numérique).

Bonjour Menhir et parmi,
Merci pour vos réponses.

Menhir,
En effêt il n'y a pas le nom des feuilles car avant d'utiliser la macro comme indiqué dans mon message, je testais la methode sur la même feuille

parmi,
J'ai essayé le code mais j'ai une erreur d'execution au niveau de la ligne du MsbBox : Erreur d'execution 424, objet requis. (J'ai essayé également en ajoutant une ligne pour declarer les feuilles)

Code:

1
2
3
4
5
6
7
8
9
Sub Test()
Dim arrFeuilles As Variant
'Dim Feuil1 As Worksheets, Feuil2 As Worksheets, Feuil3 As Worksheets
 
arrFeuilles = Array("Feuil1", "Feuil2", "Feuil3")  'Change les noms
For I = 0 To UBound(arrFeuilles)  'UBound est la limite maximale du tableau
   MsgBox arrFeuilles(I).Name
Next
End Sub

J'ai réécris mon code comme suit :

Code:

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
Sub CompareTableaux()
 
Dim LaFeuil1 As Worksheet, LaFeuil2 As Worksheet, LaFeuil3 As Worksheet, LaFeuil4 As Worksheet
 
'Feuille de reference******
Ligne1 = Feuil1.Range("A" & Rows.Count).End(xlUp).Row 
Colonne1Ligne = Feuil1.Cells(1, Cells.Columns.Count).End(xlToLeft).Column 
 
'Feuilles comparées ******
Ligne2 = Feuil2.Range("G" & Rows.Count).End(xlUp).Row 
Colonne2Ligne = Feuil2.Cells(12, Cells.Columns.Count).End(xlToLeft).Column 
 
Ligne3 = Feuil3.Range("G" & Rows.Count).End(xlUp).Row 
Colonne3Ligne = Feuil3.Cells(12, Cells.Columns.Count).End(xlToLeft).Column 
 
Ligne4 = Feuil4.Range("G" & Rows.Count).End(xlUp).Row 
Colonne4Ligne = Feuil4.Cells(12, Cells.Columns.Count).End(xlToLeft).Column
'**********************
 
    For I = Ligne1 To 2 Step -1
            For j = Ligne2 To 13 Step -1
                For k = Colonne1Ligne To 2 Step -1
                    For l = Colonne2Ligne To 8 Step -1
                        ValItem = Feuil1.Cells(1, k)
                        ValOnglet = Feuil1.Cells(2, k)
                        ValTemp = Feuil1.Cells(3, k)
 
                        If Sheets(ValOnglet).Cells(12, l) = Feuil1.Cells(1, k) And Feuil1.Cells(I, 1) = Sheets(ValOnglet).Cells(j, 7) Then
                        Feuil1.Cells(I, k) = Sheets(ValOnglet).Cells(j, l)
                        End If
                    Next l
 
                Next k
            Next j
    Next I
 
End Sub

La comparaison se déroule correctement mais je n'arrive pas à trouver la synthaxe pour des tableaux avec des nombres de colonnes et lignes différentes. Enfin je souhaiterais intégrer un find pour éviter de tester toutes les cellules de la première ligne des tableaux mais aller directement à la valeur à comparer.

Merci pour votre aide
MichaSarah

27/03/2016, 12h59
Marc-L

Bonjour,

pour la méthode Find c'est facile !
Activer l'Enregistreur de macros puis opérer manuellement : une base de code est livrée sur un plateau ‼
Ensuite nettoyer le code généré en s'inspirant de l'aide VBA interne et de son exemple …

Sinon avec deux sous de jugeote, rien qu'en lisant l'aide … Sans compter les nombreux exemples sur ce forum !

En cas de difficulté, poster le code entrepris en indiquant bien le problème …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
27/03/2016, 13h47
parmi

Oups...
J'ai oublié le mot Sheets, désolé...

Code:

MsgBox sheets(arrFeuilles(I)).Name
03/04/2016, 22h23
MichaSarah

Bonsoir Parmi,
Merci.

Salutations
MichaSarah