Suppression de lignes vides Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 15 février 2020, 09:42

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
SUPPRESSION DE LIGNES VIDES.xlsx
(17.57 Kio) Téléchargé 12 fois
Avatar du membre
jpbt84
Membre dévoué
Membre dévoué
Messages : 561
Appréciations reçues : 7
Inscrit le : 18 juin 2016
Version d'Excel : Pro Plus 2019 FR

Message par jpbt84 » 15 février 2020, 09:55

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
Formateur bureautique, certifié ECDL Expert
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 4'047
Appréciations reçues : 212
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 15 février 2020, 09:55

Bonjour Philturf, bonjour le forum,

Merci pour ta question ?!...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 15 février 2020, 12:27

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

Philturf
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'316
Appréciations reçues : 263
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 15 février 2020, 17:09

Bonjour tout le monde, (°v°)°

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
SUPPRESSION DE LIGNES VIDES-1.xlsm
(16.55 Kio) Téléchargé 10 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 15 février 2020, 17:29

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message