Bouton pour imprimer tableau en masquant les lignes vides

[lelou54]

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:

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

 

[BOISGONTIER]

Re : Bouton pour imprimer tableau en masquant les lignes vides

Bonsoir,

Les éditions (vba)
http://boisgontierjacques.free.fr/fichiers/jb-impressions.zip

JB

 

[lelou54]

Re : Bouton pour imprimer tableau en masquant les lignes vides

Bonjour Boisgontier, le forum

J'ai essayer ton code, mais je n'y arrive pas, il me masque uniquement les lignes du dessus du tableau...Mon tableau commence en C5.
J'ai essayé de rentrer plusieurs valeur à la place de C:C mais rien ne fonctionne...

je dois louper une étape.

Merci de ton aide

voici le code que je te tape :

Private Sub CommandButton1_Click()
On Error Resume Next
  Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
  lignefin = [C:N].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
  ActiveSheet.PageSetup.PrintArea = "$C$5:$N" & dlig
  ActiveSheet.PageSetup.PaperSize = xlPaperA4
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.Zoom = False
ActiveSheet.PageSetup.CenterHorizontally = True
ActiveSheet.PageSetup.CenterVertically = True
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
  ActiveSheet.PrintOut
  Range("C:C").EntireRow.Hidden = False
End Sub

 

[lelou54]

Re : Bouton pour imprimer tableau en masquant les lignes vides

Bonjour à tout le forum,

Je pense avoir trouvé mon erreur, c'est au niveau de la sélection de l'impression que je me suis trompé, j'arrive à avoir mon tableau sans les lignes vides. Sur l'impression j'ai qu'une seule ligne en plus ce qui n'est pas bien grave
Merci encore pour votre aide

🙂