supprimer des lignes vides

[pascal21]

bonjour le forum
avec ce code j'efface les lignes dont la cellule b est vide

Range('b53:b2000').SpecialCells(xlCellTypeBlanks).EntireRow.Delete

mais j'aimerais que cette suppression de ligne s'arrête lorsque le code rencontre une cellule b non vide
exemple ligne 53 à 75 vides, mais ligne 76 cellule b76 non vide alors supprimer seulement les lignes 53 à 75
comment faire cela merci

 

[Staple1600]

Re : supprimer des lignes vides

Bonjour



Si b76 est non vide

avec ton code , b76 n'est pas supprimé mais juste décalé vers le haut.

 

[BOISGONTIER]

Re : supprimer des lignes vides

Bonjour,

   Range("A53", [A53].End(xlDown)).SpecialCells(xlCellTypeBlanks).EntireRow.delete

JB
Formation Excel VBA JB

 

[pascal21]

Re : supprimer des lignes vides

bonjour
merci je vais regarder ce que ça donne