Suppression Ligne VBA

[florenllf]

Bonjour,
J'ai besoin de supprimer des lignes dans Excel suivant deux conditions soit la cellule = N soit il y a #NA dedans.

Mon code fonctionne parfaitement (ici je ne montre que pour un cas) mais lorsque je m'attaque à de gros fichier (environ 45000 lignes) il met un temps ....... j'ai le temps d'aller au WC...regarder un match de tennis et je suis sur le lendemain il ne serait pas terminé...

Ya t'il un moyen de l'optimiser?

For d = 2 To i
If IsError(Cells(d, 9)) Then
Row = Cells(d, 9).Row
ActiveSheet.Rows(Row).Delete ' Shift:=xlUp
End If
Next d

Merci

 

[Robert]

Re : Suppression Ligne VBA

Bonjour Florenllf, bonjour le forum,

Essaie la boucle inversée :

For d = i To 2 Step -1
     If IsError(Cells(d, 9)) Then
          ActiveSheet.Rows(d).Delete ' Shift:=xlUp
     End If
Next d

 

[Pierrot93]

Re : Suppression Ligne VBA

Bonjour,

regarde peut être ceci :

Dim d As Long, i As Long
For d = i To 2 Step -1
    If IsError(Cells(d, 9)) Then Rows(d).Delete
Next d

A noter quand tu supprime des ligne il y a lieu de commencer par la fin, au cas ou 2 cellules consécutives répondent au test...

bon après midi
@+

Edition : bonjour Robert

 

[florenllf]

Re : Suppression Ligne VBA

Merci pour vos réponses.

Je vais les tester à savoir que je viens de comprendre une partie de la lenteur:
Mes lignes comprennent ca comme formule et je pense que c'est recalculé à chaque passage. (Je triche en faisant un copié/collé des valeurs sur elles-mêmes).

Range("I2:I" & i - 1).Formula = "=LOOKUP(D2,'2.liste IC'!A$2:A$102,'2.liste IC'!B$2:B$102)"
Range("J2:J" & i - 1).Formula = "=LOOKUP(C2,'3.entités pôles'!A$2:A$1558,'3.entités pôles'!B$2:B$1558)"

Mon code actuelle

For d = 2 To i
If IsError(Cells(d, 9)) Then
Row = Cells(d, 9).Row
ActiveSheet.Rows(Row).Delete ' Shift:=xlUp
d = d - 1
End If

Next d

For d = 2 To i
If Cells(d, 9).Value = "N" Then
Row = Cells(d, 9).Row
ActiveSheet.Rows(Row).Delete ' Shift:=xlUp
d = d - 1
End If
Next d

 

[Pierrot93]

Re : Suppression Ligne VBA

Bonjour,

pour éviter les recalculs, rajoute ceci :

Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic