lignes blanches à supprimer Résolu/Fermé

Question

Bonjour, 

j'ai un tableau (qui peut comporter 1 ligne comme plus 10 000)
et colonne A à N
certaine colonnes sont remplis de A à N entièrement et d'autres non

et ces  tableaux (plus ou moins grands) comportent des lignes blanches totalement vides.

au lieu de me les taper une par une pour les supprimer, j'aimerais trouver une macro qui me balaie les lignes blanches et me les supprime

du moment ou il y a une information entre la colone A à N, la ligne reste et si la ligne est totalement vide, elle vire.

j'espère bien me faire comprendre.

merci à ceux qui pourront m'aider
Configuration: Windows XP / Internet Explorer 7.0

crapoulou · Answer

Bonjour,

Tu as signalé avoir trouvé la solution.
Écris-là ici afin que d'éventuels utilisateurs ayant le même souci bénéficient de la solution ;-).

Merci.

jfqld · Answer

Sub EnleverLignesVides()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub

Lignes blanches à supprimer

2 réponses

Discussions similaires