bonjour j'ai essayé deux macros pour supprimer des lignes vides dans un fichier excel.
Le problème est que le fichier est très volumineux avec beaucoup de lignes (+ de 15000) et donc la macro prend beaucoup de temps.
Macro 1 :
ou macro 2:
Avez vous une solution plus rapide ?
Cordialement
Le problème est que le fichier est très volumineux avec beaucoup de lignes (+ de 15000) et donc la macro prend beaucoup de temps.
Macro 1 :
Code:
Sub supprimelignesvides()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub
Code:
Sub SuppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Avez vous une solution plus rapide ?
Cordialement