Bonsoir le forum.
Ci joint la macro que j'utilise afin d'imprimer les lignes qui ne sont pas vides.
Comment puis je faire pour lui dire qu'il doit imprimer sur une nouvelle feuille si au saut1 il y a maximum 66 lignes qui ont déjà été imprimés?
Merci
Ci joint la macro que j'utilise afin d'imprimer les lignes qui ne sont pas vides.
PHP:
Sub Masquer_ligne_avant_impression2()
Dim Ligne As Integer
Dim Colonne As Byte
For Ligne = 7 To 66
For Colonne = 1 To 21
If Cells(Ligne, Colonne) <> "" And Cells(Ligne, Colonne) <> "0" Then GoTo Saut1
Next Colonne
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut1:
Next Ligne
For Ligne =68 To 130
For Colonne = 1 To 21
If Cells(Ligne, Colonne) <> "" And Cells(Ligne, Colonne) <> "0" Then GoTo Saut2
Next Colonne
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut2:
Next Ligne
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("2:140").EntireRow.Hidden = False
End Sub
Comment puis je faire pour lui dire qu'il doit imprimer sur une nouvelle feuille si au saut1 il y a maximum 66 lignes qui ont déjà été imprimés?
Merci