Lignes blanches à supprimer
Résolu/Fermé
jfqld
Messages postés
9070
Date d'inscription
jeudi 18 septembre 2008
Statut
Membre
Dernière intervention
28 mai 2018
-
22 juil. 2010 à 10:14
crapoulou Messages postés 28158 Date d'inscription mercredi 28 novembre 2007 Statut Modérateur, Contributeur sécurité Dernière intervention 16 avril 2024 - 22 juil. 2010 à 13:13
crapoulou Messages postés 28158 Date d'inscription mercredi 28 novembre 2007 Statut Modérateur, Contributeur sécurité Dernière intervention 16 avril 2024 - 22 juil. 2010 à 13:13
A voir également:
- Lignes blanches à supprimer
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Fichier impossible à supprimer - Guide
- Supprimer edge - Guide
- Aller à la ligne excel - Guide
2 réponses
jfqld
Messages postés
9070
Date d'inscription
jeudi 18 septembre 2008
Statut
Membre
Dernière intervention
28 mai 2018
123
22 juil. 2010 à 13:04
22 juil. 2010 à 13:04
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
28158
Date d'inscription
mercredi 28 novembre 2007
Statut
Modérateur, Contributeur sécurité
Dernière intervention
16 avril 2024
7 990
22 juil. 2010 à 11:35
22 juil. 2010 à 11:35
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.
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.
22 juil. 2010 à 13:13