supprimer lignes vides d'un tableau

[jtitin]

Bonjour à tous

cette commande me supprime toutes les lignes vides du tableau

For i = 34 To 15 Step -1
If Range("a" & i) = "" Then Rows(i).Delete
Next i

je cherche à conserver une ligne vide sous la dernière ligne écrite du tableau

merci pour votre aide

 

[pierrejean]

Re : supprimer lignes vides d'un tableau

Bonjour jitin

A tester :

For i = 34 To 15 Step -1
If Range("A" & i) = "" and range("A" & i-1)="" Then Rows(i).Delete
Next i

 

[jtitin]

Re : supprimer lignes vides d'un tableau

Merci pierrejean

c'est tout bon