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.
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.