For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Len(Cells(i, 1).Value) <> 9 Then Cells(i, 1).EntireRow.Delete
Next
MsgBox ("suppression lignes terminée" )
 
 
Bonjour
j'ai fait une macro permettant de supprimer toutes les lignes d'une feuille excel suivant un critère  
(dans le cas present je teste la longueur du texte en colonne A, s'il est différent de 9 je supprime la ligne)
 
Ca fonctionne , mais c'est long    
normal le fichier contient de 10000 à plus de 50000 lignes
 
Quand j'étais jeune    j'avais fais une macro avec une grosse boucle de ce genre, et pour en accellerer son exécution, j'avais désactivé le réaffichage
 
mais je ne sais plus faire    
 
vous avez une idée ?

aplication.sreenupdating=false
ca doit etre ca

c'est ca, tout a fait
merci    
 
sans les fautes
Application.ScreenUpdating = False

saleté de clavier il fait pas ce qu'on lui demande

test pour 10000 lignes
 
avec Application.ScreenUpdating = False
10s de traitement
 
sans Application.ScreenUpdating = False
3mn de traitement
 
 
c'est bon a connaitre, cette fonction !