Macro suppression de lignes et erreur 1004

[mcz29]

Bonjour,

Voici cette macro qui supprime des lignes vides.
Elle fonctionne très bien sauf qu'elle me met un message d'erreur à la fin.
Y-a-t'il un moyen d'éviter cela ?

merci

Sub supprLignesVides()
Dim lig
        
    Range("A" & Range("A65000").End(xlUp).Row).Select
    Do While lig <> 1
        lig = ActiveCell.Row
        If Range("A" & lig) = "" Then
            ActiveCell.EntireRow.Delete
        End If
        Range("a" & lig - 1).Select
    Loop
End Sub

 

[pierrejean]

Re : Macro suppression de lignes et erreur 1004

bonjour mcz29

Teste:

Sub supprLignesVides()
Dim lig
    lig = Range("A65000").End(xlUp).Row
    Do While lig > 1
        If Range("A" & lig) = "" Then
            Rows(lig).Delete
        End If
        lig = lig - 1
    Loop
    If Range("A1") = "" Then Rows(1).Delete
End Sub

Avec une alternative:

Sub autre()
For n = Range("A65536").End(xlUp).Row To 1 Step -1
  If Range("A" & n) = "" Then Rows(n).Delete
Next n
End Sub

 

[mcz29]

Re : Macro suppression de lignes et erreur 1004

bonjour pierrejean

çà fonctionne

merci