chercher cellule vide et supprimer la ligne

albert · 15 Avril 2004

Bonjour à tous les forumiens et forumiennes,

Sur une feuille (téléchargée sur yahoo finance), il arrive que des lignes soient vides (exemple ligne 18)

Je cherche à supprimer toutes les lignes vides et j’écris le code suivant :
Sub SUPPVIDE()
Dim Cell As Range
For Each Cell In Range("H2:H65")
If Cell = "" Then Cell.Activate
ActiveCell.EntireRow.Delete

Next Cell
End Sub

Au départ, il y a les lignes 2 à 65, avec la ligne 18 à supprimer.
Lorsque j’exécute le code, j’obtiens des suppressions de lignes non vides : le nombre de lignes restitué devient aléatoire (2 à 33, 2 à 39 …)

Je ne comprends pas ce qui ce passe

Fichier joint : areparer.zip 8 Ko

Quelqu’un peut m’indiquer une solution ??

Merci d’avance

albert

Pascal76 · 15 Avril 2004

Salut Albert

Je te joins ton fichier modifié

Bon courage

Pascal

LOLO · 15 Avril 2004

Saluit Albert
Salut Le Forum

Albert, en PJ ton fichier avec une nlle Macro espèrant que cela te convienne

@++

LOLO

Pascal76 · 15 Avril 2004

Et bien LOLO

Dans la même minute on a fait fort comme cela Albert aura 2 solutions si d'autres n'arrivent pas entre temps

Bonne journée

Pascal

LOLO · 15 Avril 2004

Salut Pascal RE Albert

Effectivement en + 2 façons différentes d'aborder le PB

C pô mal du tout cette histoire

Bonne journée et bon courage

QQCH d'agréable c'est de pouvoir renvoyer l'ascenseur de tps en tps je suis pas aussi calé que vous les grands maîtres XLD (loin mais trés loin de là) mais quand on a un astuce ou une petite formule c'est bien sympa d'en faire profiter ceux qui galère comme moi

@++

LOLO

Minick · 15 Avril 2004

Salut,

Allez soyons fou une troisieme solution en 1 ligne de code

Range("H2:H" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

@+
Minick

albert · 15 Avril 2004

merci Pascal76, LOLO, Minick pour ces trois solutions (je les garde en souvenir toutes le 3)

je ne m’attendais pas à une telle rapidité

et

albert

albert · 15 Avril 2004

après tests sur

Range("H2:H" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

la macro fonctionne bien lorsqu'il y a de cellules vides dans la page.

Mais... s'il n'y a pas de cellule vide, la macro bogue.
(application sur plusieurs pages - ou exécution 2 fois de la macro)

Comment puis-je y remédier ??

j'ai essayé If ... Then , sans véritablement trouver

... encore un p'tit coup d'main

merci d'avance
albert

Minick · 15 Avril 2004

Salut,

J'y avais pas pensé à ca.

Ya surement plus clean mais tu peux faire comme ca:

On Error Resume Next
Range("H2:H" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

@+
Minick

albert · 15 Avril 2004

merci Minick,
c'est parfait, il n'y a plus de bogue

il faut que j'approfondisse cette notion de "On Error Resume Next"

cordialement

Tina90 · 17 Avril 2004

Re: cherchercellulevide Grand Merci Lolo

Bonjourn à tout le forum

j'étais trés embarrassée par des lignes vides car ns sommes plusieurs à utiliser les meme classeurs XL
Avec la macro de Lolo c'est super li ne reste plus qu'a faire le ménage....lol

Alors moi je dis : MERCI LOLO

A bientôt

PS: J'ai également suivi avec atention ton explication lolo sur les listes déroulantes et là au moins c'est trés clair & trés bien expliqué

RE-MERCi

Au revoir

LOLO30 · 19 Avril 2004

Re: cherchercellulevide Grand Merci Lolo

Bjour Tina,

Bjour le forum...

Pour info Tina j'ai ajouté précisons sur liste déroulante voir Post de Jean-Charles fil ci dessous

@+

LOLO

http://

chercher cellule vide et supprimer la ligne

albert

Guest

Pièces jointes

Pascal76

Guest

Pièces jointes

LOLO

Guest

Pièces jointes

Pascal76

Guest

LOLO

Guest

Minick

Guest

albert

Guest

albert

Guest

Minick

Guest

albert

Guest

Tina90

Guest

LOLO30

Guest

Discussions similaires