[XL-2003] supprimer les lignes vides [Résolu]

[zangaloni]

Bonjour,

y a t'il un moyen de supprimer les lignes vides dans un tableau ?

crdlt.

[jfontaine]

Bonjour,

Il existe plusieurs méthodes pour faire cela dont une consiste à trier ton tableau sur une colonne obligatoire.

[White Mibu]

Bonjour,

tu peux utiliser cette macro :

Code :

1
2
3
4
5
6
7
Sub VideDelete()
 
    For i = 1 To Range("A65536").End(xlUp).Row
        If Cells(i, 1).Value = "" Then Rows(i & ":" & i).Delete Shift:=xlUp
    Next
 
End Sub

ici c'est la colonne A qui est testé.

Pour adapter tu as :

Code :

Range("A65536").End(xlUp).Row

si ton tableau commence en B par exemple tu l'remplace par :

Code :

Range("B65536").End(xlUp).Row

Sinon,

Code :

Cells(i, 1).Value

teste la valeur dans la colonne A, à remplacer par :

Code :

Cells(i, 2).Value

Si la valeur que tu dois tester est en colonne B par exemple.
Si tu veux plus de détails n'hésite pas.

Cordialement

[zangaloni]

ça fonctionne parfaitement.

Mercii

[zangaloni]

J'ai un petit souci.
j'ai besoin de supprimer en plus des lignes vides des lignes qui contiennent un critère.
avec cette boucle ça prend énormément de temps.
y a t'il pas un autre moyen plus rapide ?

[Ormonth]

bonjour,

Utilises les filtres auto, tu sélectionnes vides sur la ou les colonnes voulues tu supprimes, puis ton critère et tu supprimes.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[White Mibu]

ça prend énormément de temps ?

as tu essayé :

Code :

1
2
3
4
5
6
7
Sub VideDelete()
 
    For i = 1 To Range("A65536").End(xlUp).Row
        If Cells(i, 1).Value = "" Or Cells(i, 1).Value = "Critère" Then Rows(i & ":" & i).Delete Shift:=xlUp
    Next
 
End Sub

En remplaçant critère par ce que tu veux supprimer bien sûr...

Cordialement

[Golonne]

Bonjour,
@Zangaloni

Le delete est assez coûteux en temps, tu peux améliorer en insérant au début de ta procédure :

Code :

Application.ScreenUpdating = False

et en fin de procédure :

Code :

Application.ScreenUpdating = True

Pour effacer les autres lignes qui contiennent ton CRITERE, à condition qu'il soit dans la même colonne :

Code :

If Cells(i, 1).Value = "" or Cells(i,1).Value = "CRITERE" Then Rows(i & ":" & i).Delete Shift:=xlUp

Si ce n'est pas dans la même colonne, adapte le code selon les conseils de White Mibu.

Remarque @White Mibu :

Si Zangaloni n'a jamais plus d'une ligne vide qui se suit, ta solution fonctionne. Cependant, comme tu boucles sur une ensemble qui se réduit au fur et à mesure, tu sautes une ligne dès que ton programme efface une ligne à cause de

Code :

Shift :=xlUp

La solution est de boucler à l'envers :

Code :

For i = nbligne To 1 Step -1

Ainsi tu es certain de parcourir toutes les lignes.

Mes 0.02 €

Cordialement,

[White Mibu]

Bonjour Golonne,

Si Zangaloni n'a jamais plus d'une ligne vide qui se suit, ta solution fonctionne. Cependant, comme tu boucles sur une ensemble qui se réduit au fur et à mesure, tu sautes une ligne dès que ton programme efface une ligne

c'est vrai, on peut pas penser à tout

Mais c'est un bon début, et heureusement il y a du monde pour améliorer les choses

[Michel_M]

Bonjour ) tous

question rapidité:pas besoin de boucle pour supprimer les lignes des cellules vides dans la colonne A
http://excel.developpez.com/faq/?pag...eCellLigneVide
je n'ai pas regardé pour la question du critère mais la solution par filtre proposée par Ormonth parait la + simple et rapide

[Golonne]

Envoyé par Michel_M

Bonjour ) tous

question rapidité:pas besoin de boucle pour supprimer les lignes des cellules vides dans la colonne A
http://excel.developpez.com/faq/?pag...eCellLigneVide
je n'ai pas regardé pour la question du critère mais la solution par filtre proposée par Ormonth parait la + simple et rapide

Je me coucherai moins bête ce soir !!! Merci Michel.

[zangaloni]

Merci à vous tous pour votre précieux aide