Zone d'impression variable

[ivan27]

Bonjour à tous,
Sur ma feuil3, Je souhaite définir une zone d'impression en VBA. (voir modèle).
Les tableaux A et B sont variables en hauteur.
Le tableaux B peut être plus long que le tableau A.
Je n'ai pas trouvé ce type d'exemple sur le forum.
Merci pour votre aide.
Ivan

 

[phlaurent55]

Re : Zone d'impression variable

Bonjour Ivan

pour le tableau A
ActiveSheet.PageSetup.PrintArea = "N9:R" & Range("R65535").End(xlUp).Row

pour le tableau B
ActiveSheet.PageSetup.PrintArea = "T9:X" & Range("X65535").End(xlUp).Row


à+
Philippe

 

[ivan27]

Re : Zone d'impression variable

Merci Philippe,

Je te remercie mais je me suis sans doute mal expliqué car tu ne réponds pas tout à fait à ma demande.
Ce que je souhaite, c'est une seule zone d'impression pour les deux tableaux. (traits pointillés dans mon modèle)


Ivan

 

[phlaurent55]

Re : Zone d'impression variable

Re,

avec ceci:

Sub Macro1()
If Range("N65535").End(xlUp).Row > Range("T65535").End(xlUp).Row Then
ActiveSheet.PageSetup.PrintArea = "N9:X" & Range("N65535").End(xlUp).Row
Else
ActiveSheet.PageSetup.PrintArea = "N9:X" & Range("T65535").End(xlUp).Row
End If
With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FitToPagesWide = 1
End With
ActiveSheet.PrintPreview ' à remplacer par ActiveSheet.PrintOut
End Sub

à+
Philippe

 

[ivan27]

Re : Zone d'impression variable

C'est parfait...
Merci beaucoup philippe et à bientôt

Ivan