S
Safety85
Guest
Bonjour à tous,
Je vous ai mis ci dessous une macro (qu'une personne du forum m'a faite) pour imprimer 2 feuilles à chaque fois.
Mesfeuilles s'appelent toujours sous cette forme '01' et '01G', '02' et '02G', ...
Seulement, je suis sûr de la longueur de mes feuilles du type '01' par exemple. Mais en ce qui concerne les feuilles du type '01G', il peut y avoir de l'écriture jusqu'à la 20ième ligne ou jusqu'à la 40ième ligne.
Alors ma question est simple, est il possible (à l'aide d'une macro) d'imprimer seulement X lignes en fonction de la dernière ligne ayant des caractères?
En plus, l'impression doit se faire que sur les colonnes B à G
MERCI D'AVANCE
Safety85
Public Saisie As Boolean
Public Sub Imprimer()
On Error GoTo err
ActiveSheet.PrintOut
ActiveWorkbook.Worksheets(ActiveSheet.Name & "G").PrintOut
Exit Sub
err:
MsgBox "erreur"
End Sub
Je vous ai mis ci dessous une macro (qu'une personne du forum m'a faite) pour imprimer 2 feuilles à chaque fois.
Mesfeuilles s'appelent toujours sous cette forme '01' et '01G', '02' et '02G', ...
Seulement, je suis sûr de la longueur de mes feuilles du type '01' par exemple. Mais en ce qui concerne les feuilles du type '01G', il peut y avoir de l'écriture jusqu'à la 20ième ligne ou jusqu'à la 40ième ligne.
Alors ma question est simple, est il possible (à l'aide d'une macro) d'imprimer seulement X lignes en fonction de la dernière ligne ayant des caractères?
En plus, l'impression doit se faire que sur les colonnes B à G
MERCI D'AVANCE
Safety85
Public Saisie As Boolean
Public Sub Imprimer()
On Error GoTo err
ActiveSheet.PrintOut
ActiveWorkbook.Worksheets(ActiveSheet.Name & "G").PrintOut
Exit Sub
err:
MsgBox "erreur"
End Sub