A
albert
Guest
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
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