Imprimer la zone d'impression variable

[christian.bedere]

Bonjour le forum !

Désolé si mon intitulé est vague mais je m'explique .
J'ai une feuille avec un tableau dont le contenu des cellules est variable d'une fois à l'autre,(a1:g...) et je souhaiterai pouvoir sur un simple clic sélectionner la feuille de calcul entière et l'imprimer, sans avoir à chaque fois à le faire manuellement.
Je vous remercie
Christian

 

[christian.bedere]

Re : Imprimer la zone d'impression variable

Re-salut !

Je viens de trouver ...

Dim DerLig As Integer
Dim DerCol As Integer

DerLig = Range("a65536").End(xlUp).Row
DerCol = Range("h40").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(DerLig, DerCol)).Address
ActiveWindow.View = xlPageBreakPreview

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False

Merci à vous qd même