Supprimer les lignes vides
Résolu/Fermé
nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
19 mai 2016 à 18:03
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 20 mai 2016 à 07:21
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 20 mai 2016 à 07:21
A voir également:
- Supprimer les lignes vides
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Supprimer les cookies - Guide
- Supprimer edge - Guide
- Supprimer bing - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
20 mai 2016 à 07:21
20 mai 2016 à 07:21
bonjour
Sub Supprimer_si_vide()
Dim Ligne As Long
On Error Resume Next
Ligne = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
