julien91080
XLDnaute Occasionnel
Bonjour a la communauté,
J'ai un tableau de 7 colonnes et environ 80000 lignes (pouvant varié).
Je cherche une macro : Si cellule D2 <> "toto" ou "tata" alors suppression de la ligne. Le tout sur chaque ligne.
Pour le moment, j'utilise le code suivant:
Sub SupLigneOui()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 1 Step -1
If Left(Cells(i, 4), 14) <> "tata" Or Left(Cells(i, 4), 14) <> "toto" Then Rows(i).Delete
Next i
End Sub
Le problème est que du fait du nombre très important de ligne, la macro s'exécute en 10 minutes bloquant l'utilisation d'Excel en prime.
N'existe-t-il pas une autre macro pouvant aller plus vite?
Je précise également qu'il peut y avoir près de 200 autres mots que "tata" ou "toto" en colonne D.
Merci par avance pour votre aide.
Cordialement,
Julien
J'ai un tableau de 7 colonnes et environ 80000 lignes (pouvant varié).
Je cherche une macro : Si cellule D2 <> "toto" ou "tata" alors suppression de la ligne. Le tout sur chaque ligne.
Pour le moment, j'utilise le code suivant:
Sub SupLigneOui()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 1 Step -1
If Left(Cells(i, 4), 14) <> "tata" Or Left(Cells(i, 4), 14) <> "toto" Then Rows(i).Delete
Next i
End Sub
Le problème est que du fait du nombre très important de ligne, la macro s'exécute en 10 minutes bloquant l'utilisation d'Excel en prime.
N'existe-t-il pas une autre macro pouvant aller plus vite?
Je précise également qu'il peut y avoir près de 200 autres mots que "tata" ou "toto" en colonne D.
Merci par avance pour votre aide.
Cordialement,
Julien