L
lelou54
Guest
Bonjour à tous ,
Voilà je bloque depuis un petit moment sur mon code....J'ai un tableau de la cellule C5 à N52, j'ai crée un bouton active X pour imprimer ce tableau sur une seule feuille et pour l'instant tout fonctionne.
Par contre j'ai voulu caché les lignes vides avant d'imprimer et là pas moyen. Je ne vois pas mon erreur.
Je vous met mon code pour le bouton en esperant qu'une personne pourra m'aider
Merci d'avance
Mon code bouton:
Voilà je bloque depuis un petit moment sur mon code....J'ai un tableau de la cellule C5 à N52, j'ai crée un bouton active X pour imprimer ce tableau sur une seule feuille et pour l'instant tout fonctionne.
Par contre j'ai voulu caché les lignes vides avant d'imprimer et là pas moyen. Je ne vois pas mon erreur.
Je vous met mon code pour le bouton en esperant qu'une personne pourra m'aider
Merci d'avance
Mon code bouton:
Code:
Private Sub CommandButton1_Click()
Dim dlig As Long, Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
dlig = Sht.Range("C" & Rows.Count).End(xlUp).Row
If dlig >= 5 Then
Sht.PageSetup.PrintArea = "$C$5:$N" & dlig
Sht.PageSetup.PaperSize = xlPaperA4
Sht.PageSetup.Orientation = xlLandscape
Sht.PageSetup.Zoom = False
Sht.PageSetup.CenterHorizontally = True
Sht.PageSetup.CenterVertically = True
Sht.PageSetup.FitToPagesWide = 1
Sht.PageSetup.FitToPagesTall = 1
Sht.PrintOut
End If
Next Sht
End Sub