Lignes blanches à supprimer
Résolu
jfqld
Messages postés
9870
Statut
Membre
-
crapoulou Messages postés 42844 Statut Modérateur, Contributeur sécurité -
crapoulou Messages postés 42844 Statut Modérateur, Contributeur sécurité -
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
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
A voir également:
- Lignes blanches à supprimer
- Supprimer rond bleu whatsapp - Guide
- Fichier impossible à supprimer - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Supprimer compte instagram - Guide
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
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
crapoulou
Messages postés
42844
Statut
Modérateur, Contributeur sécurité
8 014
Ok, merci ;-).
