suppression de plusieurs lignes d'un fichier lourd

Salut fopy,

Eh, ce code n'est pas correctement indenté. C'est mal  

Ce n'est pas la peine de mettre le ReadOnly à faux. C'est sa valeur par défaut.
Sauf que justement, ton classeur 2 peut être ouvert en lecture seule, lui  


Le With de la ligne 14 ne sert à rien : il n'y a pas de point devant tes Range aux lignes 15 à 19.
Range("W:W") ça passe très bien. Mais Columns("W") ou Columns(23) sont plus jolis.

Si tu dois supprimer des lignes, il faut partir du bas et remonter. Tu le fais très bien pour les colonnes que tu supprimes de droite à gauche.
J'explique ça ici : http://www.presence-pc.com/forum/ppc/Programmation/tuto...

Voici de quoi bien le comprendre :

Range("A1").Value = "A"
Range("A2").Value = "Z"
Range("A3").Value = "E"
Range("A4").Value = "R"
Range("A5").Value = "T"
Range("A6").Value = "Y"
 
For Each cell In Range("A1:A6")
    If cell.Value <> "" Then cell.EntireRow.Delete
Next

Je ne comprends pas pourquoi tu utilises des offset() à la ligne 27.  

Et on n'a pas encore parlé de performance !  

Sault Zeb,
Voici mon nouveau code modifié suivant tes indications

Option Explicit
Sub CmistesDMO()
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\Fichier2.xls", ReadOnly:=True)
Set Class1 = Workbooks.Open("C:\Documents\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 <> Cells(j, 3).Text Then Rows(i).Delete
 End If
Next
Next
End Sub

Ah, c'est mieux.

Manque toujours l'indentation qui m'est si chère (jamais content le vieux.)
Et ce qui est bien plus grave, ni tes colonnes (lignes 15 à 19), ni tes cellules et ta ligne (ligne 31) ne sont préfixées par la feuille concernée. Dans le cas de la ligne 31, c'est même un gros bug !

C'est pourquoi je préfère faire des For Each comme dans ton premier exemple.

Autre chose, supprimer au fur et à mesure tes lignes est très consommateur de ressource.
On peut le faire en une seule fois.

Dans ton dernier code, on ne compare que les valeurs de la colonne 4 à celles de la colonne 3. Est-ce fait exprès ?

' // J'aime !
Option Explicit
 
Sub CmistesDMO()
 
	Dim Class1 As Workbook
	Dim Class2 As Workbook
 
	Dim FeuilleClass1 As Worksheet
        Dim FeuilleClass2 As Worksheet
 
	Dim PlageClass2 As Range
	Dim PlageClass1 As Range
 
	Dim CellClass1 As Range
	Dim CellClass2 As Range
 
	Dim a_supprimer As Range
 
	Set Class1 = Workbooks.Open("C:\Documents\Fichier1.xls")
	Set Class2 = Workbooks.Open("C:\Documents\Fichier2.xls", ReadOnly:=True)
 
	Set FeuilleClass1 = Class1.Worksheets(1)
	Set FeuilleClass2 = Class2.Worksheets(1)
 
	' // Supprimer l'ensemble des colonnes inutiles
	' // C'est juste pour te montrer ;-)
	' // Regarde quand-même comment ça marche !
	Union( _
		FeuilleClass1.Columns("W"), _
		FeuilleClass1.Columns("U"), _
		FeuilleClass1.Columns("L"), _
		FeuilleClass1.Columns("G"), _
		FeuilleClass1.Columns("E:B")).Delete
 
	Set PlageClass1 = FeuilleClass1.Range("A1").CurrentRegion.Offset(1, 0).Columns(4)
	Set PlageClass2 = FeuilleClass2.Range("A1").CurrentRegion.Offset(1, 0).Columns(3)
 
	'Comparaison
	For Each CellClass1 In PlageClass1
		For Each CellClass2 In PlageClass2
			If CellClass2.Cells(i, 4).Value <> CellClass2.Value Then 
				' // On accumule les lignes à supprimer
				Set a_supprimer = Union(a_supprimer, CellClass1.EntireRow)
			End If
		Next
		' // Pour savoir où on en est
		Application.StatusBar = "Progression : " & (CellClass1.Row * 100 / PlageClass1.Count) & "%"
	Next
 
	Application.StatusBar = False
	' / Et on supprime pour de bon
	a_supprimer.Delete
 
	Class2.Close
End Sub

Bon, à la ligne 44, il y a un problème, VBA ne sait pas faire l'union avec un truc vide.
Il faut donc distinguer ce cas.

' // On accumule les lignes à supprimer
If a_supprimer Is Nothing Then
    Set a_supprimer = CellClass1.EntireRow
Else
    Set a_supprimer = Union(a_supprimer, CellClass1.EntireRow)
End If

Le gain ne sera pas forcément énorme, mais c'est déjà ça.

  it doesn't work