Supprimer les lignes vides

Résolu

nonossov Messages postés 638 Statut Membre -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention - 20 mai 2016 à 07:21

Bonjour mes amis,
j'aimerai bien bénéficier de votre aide pour cette macro,
je voudrai avoir une macro pour suprimmer les lignes vides.

Merci infiniment

Afficher la suite

1 réponse

michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

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

Supprimer les lignes vides

1 réponse

Discussions similaires

Newsletters