masquer les lignes vides

Catégorie : Impression

Publié par veriland le 12-Aug-2013 21:30

Cette procédure permet de masquer les lignes vides d'un tableau au moment de l'impression, seul l'essentiel 
apparaîtra sur la page imprimée...on économise ainsi des feuilles...

 

Partie à placer dans un module...

 

Option Explicit

Sub Vide()
'Ti
'http://www.excel.veriti.net
'masquer les lignes vides avant impression
Dim Plage As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
Set Plage = .Range("A3:A300").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True
.PrintPreview 'pour voir sans imprimer
'.PrintOut ' pour imrimer directement
.Rows.Hidden = False
End With
End Sub