macro recherche qui bloque avec 40000 lignes

[dam]

bonsoir,
j'ai un fichier de 40000lignes et un autre de 3000 lignes, la macro doit comparer les deux fichiers et me sortir ce qui n'apparaissent pas dans le fichiers de 40000lignes.merci dam
la macro est en piece jointe [file name=macro_20060408190106.zip size=728]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macro_20060408190106.zip[/file]

 

[pat1545.]

Bonsoir dam,

les structures sont elles strictement identiques ? (meme nom de colonne, meme nombre de colonne etc...) ?


Merci

 

[dam]

bonjour pat et merci
je te confirme tout est identique
dam

 

[pat1545.]

Salut,

jamais essayé sur autant de lignes , mais avec un filtre élaboré, ça me semble possible, j'ai mis un exemple sur www.excelabo.net

Ce lien n'existe plus



Bye

 

[Hervé]

bonjour dam, pat


je n'ai pas testé le code que je te donne

Private Sub UserForm_Initialize()
Dim O As Worksheet 'déclare la varibale O (Origine)
Dim C As Worksheet 'déclare la variable C (Cible)
Dim ORang 'déclare la variable ORang
Dim CRang 'déclare la variable CRang
Dim CelO, CelC As Long 'déclare les variable CelO et CelC
Dim X As Long 'déclare la variable x

Set O = Sheets('liste') 'définit la variable O
Set C = Sheets('base peche') 'définit la variable C
ORang = O.Range('A2:A' & O.Range('A65536').End(xlUp).Row) 'définit la variable O Rang
CRang = C.Range('f17:j' & C.Range('f65536').End(xlUp).Row) 'définit la variable CRang
ListBox1.ColumnCount = 3

ListBox1.ColumnWidths = '80;180;80'
X = 0 'définit la variable x
For Each CelO In ORang 'boucle sur toutes les cellule de la plage ORang
       
        If Not CelO = '' Then 'condition : si la cellule n'est pas vide
               
                For CelC = 1 To UBound(CRang) 'boucle sur toutes les cellule de la plage CRang
                        'si les cellules sont identiques, va à la balise 'Suite'
                        If CelO = CRang(CelC, 1) Then GoTo suite
                Next CelC 'prochaine cellule de la plage CRang
                ListBox1.AddItem CelO 'ajoute la valeur de la cellule CelO à la ListBox1
                ListBox1.Column(1, X) = CRang(CelC - 1, 2) 'ajoute la valeur de la cellule adjacente à Celo
                ListBox1.Column(2, X) = CRang(CelC - 1, 5) 'ajoute la valeur de la cellule adjacente à Celo
                X = X + 1 'redéfinit la variable x
        End If 'fin de la condition

suite: 'balise
Next CelO 'prochaine cellule de la plage ORang

End Sub

en espérant ne pas m'etre trop planté :unsure:

ps : ca ne serait pas un code à l'ami robert ?
salut