Supression de lignes prend beaucoup de temps

Question

J'ai un petit code qui me permet de faire une comparaison entre 2 fichiers. S'il y a une concordance entre ces 2 fichiers, alors garder ces lignes et supprimer les autres. Mon fichier 1 contient 32 000 lignes et mon fichier 2 en contient 190. Si la cellule C1 du fichier 2 correspond pas à la cellule D1 du fichier 1, alors supprimer la ligne du fichier 1 etc... Mon code a l'air de bien marcher, le problème c'est qu'il prend beaucoup beaucoup de temps. Quelqu'un aurait il une astuce pour réduire le temps que cela prend? voici mon code Merci ption Explicit Sub CListesDo() Dim Class1 As Workbook Dim Class2 As Workbook Dim PlageClass2 As Range Dim CellClass2 As Range Dim PlageClass1 As Range Dim CellClass1 As Range Dim LastLineC1 As Long Dim LastLineC2 As Long ' Set Class2 = Workbooks.Open("C:\Documents and Settings\fichier2.xls", ReadOnly:=True) Set Class1 = Workbooks.Open("C:\Documents and Settings\fichier1..xls") 'Supprimer les colonnes inutiles Columns("W").Delete Columns("U").Delete Columns("L").Delete Columns("G").Delete Columns("E:B").Delete ' Set PlageClass1 = Class1.Worksheets(1).Range("A1").CurrentRegion.Offset(1, 0) LastLineC1 = PlageClass1.Rows(PlageClass1.Rows.Count).Row Set PlageClass2 = Class2.Worksheets(1).Range("A1").CurrentRegion.Offset(1, 0) LastLineC2 = PlageClass2.Rows(PlageClass2.Rows.Count).Row 'Comparaison Dim i ' fichier 1 Dim j ' fichier 2 ' For j = LastLineC2 To 1 Step -1 For i = LastLineC1 To 1 Step -1 If Cells(i, 4).Text &lt;&gt; Cells(j, 3).Text Then Rows(i).Delete End If Next Next End Sub...

Banzai64 · Accepted Answer

J'insère une colonne car ne connaissant pas ton tableau (n'ayant pas la limite en colonne) c'est le moyen le plus simple pour avoir une colonne libre Celle-ci est supprimée ensuite A l'intérieur j'écris une formule style =SI(NB.SI('&#91;Copie de fichier2.xls&#93;Feuil1'!$D$2:$D$125;D2)&gt;0;1;"") ensuite je ne veux que le résultat sans la formule donc .Value = .Value Mais attention avec le fichier que je t'avais envoyé il faut changer la formule dans la macro .Formula = "=IF(COUNTIF('&#91;" &amp; Class2.Name &amp; "&#93;Feuil1'!R2C3:R" &amp; LastLineC2 &amp; "C3,RC&#91;-1&#93;)&gt;0,1,"""")" Pour avoir la formule suivante =SI(NB.SI('&#91;Copie de fichier2.xls&#93;Feuil1'!$C$2:$C$124;D2)&gt;0;1;"") Je te joins une nouvelle version Toujours la suppression des colonnes A vérifier et si des soucis indique clairement ce qui ne va pas...

Banzai64 · Answer

Ton code m'intrigue If Cells(i, 4).Text &lt;&gt; Cells(j, 3).Text Then Tu compare la cellule "D" à la cellule "C" du même fichier C'est à dire le dernier ouvert (Fichier1) qui est le classeur actif Alors pour moi tu compares les 32000 cellules de la colonne D avec les 190 cellules de la colonne C du même fichier Il ne manque pas un truc du style If Cells(i, 4).Text &lt;&gt; Class2.Worksheets(1).Cells(j, 3).Text Then Mais je peux me tromper...

Banzai64 · Answer

Serait possible d'avoir deux fichiers représentatifs de tes données à comparer (Nombre de colonnes, ligne de début etc...) J'ai bien une idée mais pour la mettre en oeuvre il me faut ces renseignements Et enfin pour savoir si c'est plus rapide il faut savoir combien de temps tu mets avec ta macro pour éliminer les lignes (nombre de ligne au départ et nombre de ligne en fin) A suivre...

Banzai64 · Answer

Essai non concluant Je ne connais pas le résultat de ta macro A voir Penses à modifier le chemin et le nom des fichiers dans la macro...

dubois · Answer

Juste pour tester ! ici, j'ai importé la feuille du fichier2 dans le fichier1 Il s'agit d'un filtre élaboré (quasi instantané) Amicalement Claude...

Banzai64 · Answer

Des incohérences et maintenant Une fois les colonnes supprimées la nouvelle colonne D dans le fichier 1 c'était la colonne I Et rien de commun entre la colonne ( I avant suppression colonnes) (ou D après suppression colonnes) du fichier1 avec 1 élément de la colonne C du fichier2 Donc toutes les lignes seront effacées Si j'ai raté quelque chose, précises-le...