Suppression plus rapide des lignes

[Evelynetfrancois]

Bonjour tout le monde

Dans une macro j'utilise ces lignes qui masquent les lignes dont les cells de la colonne A sont vide

For Each Cell In Range("a7:a250")
If Cell = "" Then Rows(Cell.Row).Hidden = True

en faite , elles fonctionnent , mais y a t'il plus rapide comme traitement
merci d'avance pour vos idées
trés bonne journée à tous
E et F

 

[Pierrot93]

Re : Suppression plus rapide des lignes

Bonjour,

essaye peut être ainsi :

Range("a7:a250").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

bonne journée
@+

Edition : Bonjour Hasco🙂, Aarf pas mis le "on error..." moi...

 

[Guest]

Re : Suppression plus rapide des lignes

Bonjour,

On Error Resume Next 'SpecialCells renvoie une erreur si aucune cellule vide dans la plage
Range("A2:A250").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0

A+

[Edit] Bing! Pierrot🙂 🙂 🙂

 

[Evelynetfrancois]

Re : Suppression plus rapide des lignes

Merci pour tout
ça evite les boucles c'est super !!

Bonne journée à vous ET ENCORE MERCI !!
E et F