Suppression de lignes vides

Bonjour à tous,

Je n'ai pas trouvé la solution par moi même, je donc viens demander de l'aide pour résoudre mon problème car le cas semble

plus complexe que je ne croyais.

Le fichier est un copier/coller provenant d'un site.

Merci pour vos réponses.

Philturf

Bonjour,

Tu peux sélectionner tes données, supprimer la fusion de cellules et faire un tri sur une colonne contenant des données.

Cdt

Bonjour Philturf, bonjour le forum,

Merci pour ta question ?!...

Merci jpbt84 pour ta réponse que je viens de mettre en application.

Philturf

Bonjour tout le monde,

Un essai par macro.....CTRL+ e pour l'exécuter

Sub SupprimeLigneVide()

 Dim i As Long, dl As Long                       'déclaration des variables

 Application.ScreenUpdating = False      'évite le scintillement de l'écran

  With Sheets("Feuil1")                              'agit sur la feuille 1 uniquement.... à adapter
   dl = .UsedRange.Rows.Count               'définit le nombre de lignes
        .Cells.UnMerge                                  'supprime la fusion des cellules
    For i = dl To 1 Step -1                           'boucle de la dernière ligne à la première
     If Application.CountA(Range("A" & i & ":I" & i)) = 0 Then Rows(i).EntireRow.Delete  'supprime les lignes vides (de colonne A à colonne I)
    Next i                                                     'fin de la boucle
  End With
End Sub

Cordialement,

Bonjour xorsankukai

Je te dis MERCI, cette macro est formidable, en 2 clics mon problème et résolu.

Je te fais un message perso sur tes messages privés

Philturf

Rechercher des sujets similaires à "suppression lignes vides"