chercher cellule vide et supprimer la ligne

[albert]

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]

Salut Albert

Je te joins ton fichier modifié

Bon courage

Pascal

 

[LOLO]

Saluit Albert
Salut Le Forum

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

@++

LOLO

 

[Pascal76]

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]

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]

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]

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]

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]

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]

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]

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]

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://