Sub BoutonImprimer()
'Rechercher derniére ligne tableau
DerniereLigne = Range('A65536').End(xlUp).Row
'impression des Totaux
ActiveSheet.PageSetup.PrintArea = 'A' & DerniereLigne - 18 & ':I' & DerniereLigne
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
[quote]
Qu'en pensez-vous ?
Les colonnes ne change pas de A à I.
Par contre, je cherche un bout de code pour imprimer tout le haut de mon tableau (jusqu'a la ligne avant les totaux) en tenant compte du nombre de ligne qu'il est possible d'imprimer sur une feuille A4. Quelqu'un aurait-il un exemple ?
Merci d'avance ! ;)