Supression lignes vides: optimisation
Bonjour à tous,
Après avoir cherché sur le web, je ne trouve pas de réponse à ma question. Mes essais perso n'ont rien donné, j'en appelle à vos connaissances car de mon côté je ne suis pas loin du zéro...
Données du prob: supprimer des lignes vides sur une feuille excel de 14000 lignes voir 25000 pour certains.
La macro fonctionne bien mais il lui faut 45s pour effectuer le traitement.
En empêchant le rafraichissement, j'ai déjà gagné pas mal mais c'est encore long...
Voici le code utilisé:
Sub alignement_final()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A20000").End(xlUp).Row To 1 Step -1
If Cells(i, 1) = 0 Then Rows(i).Delete
If Cells(i, 1) = "FUNCTION" Then Rows(i).Delete
Next i
' Alignement texte
Columns("C:C").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:C").EntireColumn.AutoFit
End Sub Que faut-il modifier pour optimiser le traitement?
Je vous joins un extrait du fichier pour vous aider à comprendre mon pb.
Merci pour votre aide.
Lusitanio
Bonjour,
Une solution avec un filtre automatique.
J’ai rajouté une ligne d’en-tête pour pouvoir placer le filtre qui sélectionne les lignes vides et celles qui contiennent "FUNCTION".
A+
Bonjour,
Merci je vais essayer dès que possible.
Lusitanio