Laosurlamontagne
XLDnaute Occasionnel
Bonjour à tous,
Afin de "nettoyer" un fichier excel avec un nombre très important de ligne (37528), j'ai créé la macro suivante qui me garde que les lignes où le chiffre "-300" est présent:
La macro marche mais elle me fait un peu peur sur son temps d'exécution. J'ai deux questions à vous soumettre:
1- il y a t-il un moyen de l'accélérer en faisant plus simple?
2- Je voudrais que l'incrément "lig" s'affiche dans un Msgbox mais sans avoir à valider et je coince la dessus...
Sauriez-vous m'aider ?
Merci !
Afin de "nettoyer" un fichier excel avec un nombre très important de ligne (37528), j'ai créé la macro suivante qui me garde que les lignes où le chiffre "-300" est présent:
Code:
Sub extract()
Dim lig As Integer, Data As Worksheet
Set Data = ActiveSheet
Sheets.Add
ActiveSheet.Name = "export"
Data.Cells.Copy Sheets("export").Range("A1")
For lig = 8 To 37528
If Sheets("export").Range("H" & lig) <> -300 Then Rows(lig).Delete
Next lig
End Sub
La macro marche mais elle me fait un peu peur sur son temps d'exécution. J'ai deux questions à vous soumettre:
1- il y a t-il un moyen de l'accélérer en faisant plus simple?
2- Je voudrais que l'incrément "lig" s'affiche dans un Msgbox mais sans avoir à valider et je coince la dessus...
Sauriez-vous m'aider ?
Merci !