Lignes blanches à supprimer
Résolu
jfqld
Messages postés
9071
Date d'inscription
Statut
Membre
Dernière intervention
-
crapoulou Messages postés 28195 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
crapoulou Messages postés 28195 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
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
- Supprimer page word - Guide
- Fichier impossible à supprimer - 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
28195
Date d'inscription
Statut
Modérateur, Contributeur sécurité
Dernière intervention
8 013
Ok, merci ;-).