Suppression de lignes

[jose_67]

Bonjour à tous, je voudrais supprimer les lignes vides de mon fichier. Il se trouve que quand j'ai plus d'une ligne vide qui se visent, mon code ne prend en compte qu'une ligne sur deux.
Il faudrait (il me semble) que je démarre par la ligne du bas et que je remonte dans ma sélection.
Mais je ne sais pas comment faire

Sub supligne()

Dim derlign As Long, plage As Range
Dim numligne As Long
derlign = Sheets("Table de travail").Range("A12000").End(xlUp).Row
Set plage = Sheets("Table de travail").Range("A7" & ":A" & derlign)
With Sheets("Table de travail")
For i = 5 To dernligne
numlign = c.Row
If Cells(i, 17) = "" Then
    Rows(i).Delete Shift:=xlShiftDown
             
          End If
          Next i
End With
End Sub

Merci pour votre aide
Cordialement José

 

[jeanpierre]

Re : Suppression de lignes

Bonjour jose 67, Bienvenue sur le forum,

C'est normal car lorsque tu as supprimé une ligne, la 2, par exemple, la 3 prend sa place et du coup se nomme 2, donc le code ne la vois pas.

Il te faut inverser, dans ta boucle, le 5 et dernligne, soit :

For i = dernligne to 5 step -1

et c'est bon.

Bon WE.

Jean-Pierre

 

[Staple1600]

Re : Suppression de lignes

Bonjour jose_67, jeanpierre, le fil, le forum


Tu peux simplifier ta macro ainsi

Sub a()
Range("Q7:Q" & [A12000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[jose_67]

Re : Suppression de lignes

Messieurs Merci,
En une seul ligne fort, très fort. Je suis stupéfait
Encore merci à vous

Cordialement José