Boucle et résultat raté!

Fermé
bruno1975 Messages postés 1 Date d'inscription jeudi 20 décembre 2012 Statut Membre Dernière intervention 20 décembre 2012 - 20 déc. 2012 à 12:16
Bonjour,

J'ai une macro qui me donne des résultats très loin de ce que j'attends.
J'ai 2 fichiers, un extract de 9 colonnes et 20 lignes. Ces 20 lignes sont présentes dans un autre fichier de 60 colonnes et 140000 lignes.
Je recherche à partir de la colone 1, les lignes qui auront une valeur identique pour les colonnes 3,7 et 9 mais une valeur différente en colonne 1.
Et coller le résultat à la suite de mon existant sur la feuille extract.


Dim K As Long, J As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Set FL1 = Sheets("Feuil2")
Set FL2 = Sheets("Feuil3")
Application.EnableEvents = False
Application.ScreenUpdating = False

For K = 2 To FL1.Range("A65536").End(xlUp).Row
For J = 2 To FL2.Range("A65536").End(xlUp).Row
If FL1.Cells(K, 1) <> FL2.Cells(J, 1) And FL1.Cells(K, 3) = FL2.Cells(J, 3) And FL1.Cells(K, 7) = FL2.Cells(J, 7) And FL1.Cells(K, 9) = FL2.Cells(J, 9) Then
FL2.Cells(J, 1).Resize(, 9).Copy FL1.Cells(65535, 1).End(xlUp)(2)
Exit For
End If
Next J
Next K
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

J'ai fait le traitement manuellement par des recherchev et j'arrive à 17 nouvelles lignes.
Via cette macro, j'ai 10 lignes et seulement 6 correspondantes à mes critères.... Les 4 autres sont les lignes identiques à mon extract alors que j'avais indiqué la condition FL1.Cells(K, 1) <> FL2.Cells(J, 1)
Bref, je patauge...

Merci pour votre aide!