Lignes blanches à supprimer
Résolu
jfqld
Messages postés
8725
Date d'inscription
Statut
Membre
Dernière intervention
-
crapoulou Messages postés 28002 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
crapoulou Messages postés 28002 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
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
--
Je boirais du lait quand les vaches mangeront du raisin
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
--
Je boirais du lait quand les vaches mangeront du raisin
2 réponses
-
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
-
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.
