supprimer les lignes vides

Caninge

XLDnaute Accro

• 9 Février 2008

• #2

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 9 Février 2008

• #3

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

 

Vote positif 0 Vote négatif

M

Michel_D

Guest

• 9 Février 2008

• #4

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 9 Février 2008

• #5

Re : supprimer les lignes vides

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

Code:

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

 

Vote positif 0 Vote négatif

V

Velhota

Guest

• 9 Février 2008

• #6

Re : supprimer les lignes vides

Michel_D à dit:

Bonjour,

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

Michel_D

Cliquez pour agrandir...

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

 

Dernière modification par un modérateur: 9 Février 2008

Vote positif 0 Vote négatif