supprimer les lignes vides

[Velhota]

Bonjour

J'aimerais savoir comment faire pour supprimer les lignes vides en une seule fois ?

J'ai du texte une ligne sur deux.

Merci beaucoup

Bonne journée

 

[Caninge]

Re : supprimer les lignes vides

Bonjour Velhota,

j'ai trouvé ce sode sur le net:

A vérifier !

Sub SuppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

 

[fanfan38]

Re : supprimer les lignes vides

Bonjour
Tuas plusieurs solutions:
Creer un bouton sur ta feuille (affichage=>Barre d'outils => Boite à outils contrôle
Double clic sur le bouton et coller les lignes ci dessous:
For i = 1 To Range("a65500").End(xlUp).Row
If Len(Cells(i, 1).Value) = 0 Then Cells(i, 1).EntireRow.Delete
Next

2° cliquer sur le carré à gauche du A et au dessus du 1 pour sélectionner toutes les cellules, cliquer sur Données => Trier

A+ François

 

[Michel_D]

Re : supprimer les lignes vides

Bonjour,

Ou bien sélectionner une colonne > ctrl T (pour atteindre) > cellule > cellule vide puis supprimer ligne entières et hop...

Michel_D

 

[Cousinhub]

Re : supprimer les lignes vides

Bonjour,
le code de la méthode proposée par michel :

Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[Velhota]

Re : supprimer les lignes vides

Bonjour,

Ou bien sélectionner une colonne > ctrl T (pour atteindre) > cellule > cellule vide puis supprimer ligne entières et hop...

Michel_D

Bonjour à tous
Merci beaucoup pour vos messages.

Je viens de faire un essai avec la méthode de Michel et ça marche 🙂

Bon week-end à tous