supprimer lignes vides après entre lignes 2 et 270

[difovelo]

Bonsoir,
Je souhaite supprimer les lignes vides entre les lignes 2 et 270.
J'ai cette procédure:

Sub Supprimer_les_lignes_vides()
' supprimer la ligne si la cellule de la colonne A est vide
Dim i As Integer
For i = Range('a270').End(xlUp).Row To 2 Step -1
If Cells(i, 1) = '' Then
Rows(i).Delete
End If
Next i
End Sub

Mais le problème est qu'elle s'arrête après la dernière ligne non vide, au lieu d'aller juqu'à la ligne 270.

merci d'avance pour votre aide.

 

[pat1545.]

Salut,


voilà:

Sub Supprimer_les_lignes_vides()
' supprimer la ligne si la cellule de la colonne A est vide
Dim i As Integer
For i = 270 To 2 Step -1
If Cells(i, 1) = '' Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub

Patrick

 

[Hellboy]

Bonjour a vous deux

Tu peux aussi utiliser une commande toute faite comme celle-ci:

 Range('A2:A270').SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[difovelo]

Salut Patrick et Philippe.
Merci à tout les 2 pour votre aide, mon probleme est résolu!
Bonne soirée, A+