Ne pas imprimer les lignes vides

Sur un de mes documents il y a des lignes vides dont le nombre peut varier. Comment ne pas les imprimer ?

Cette macro te permet de masquer les lignes vides avant impression puis de les afficher à nouveau. Une ligne est considérée comme vide si la cellules A de la colonne est vide.

sub suppr_Lv()
 Application.ScreenUpdating = False
 For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
  If IsEmpty(Cells(r, "A")) Then Rows(r).Hidden = True
 Next r
 ActiveSheet.PrintOut
 Rows().Hidden = False
 end sub

Auteur :

Mots clefs associés à cette page : , , ,