Discussion :

[niboTD]

Bonjour, je souhaite ajouter une ligne à ma macro pour imprimer les colonnes A à E (mais pas la colonne F)
Je n'en ai pas d'autres.

Mais je veux que ça reconnaisse la dernière ligne écrite sur la colonne A.


Pour le moment j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$201"   'pour sélectionner les colonnes, mais ça n'automatise pas la dernière ligne à imprimer'

[Thautheme]

Bonjour Nibo, bonjour le forum,

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & Cells(Application.Rows.Count, "A").End(xlUp).row

[patricktoulon]

re
Bonjour thautheme
allons 201 lignes ou plus sur une page en format A4 tu es sur !!!??????
t'en aurais pas oublié un peu du code la !!?????

edit
autant pour moi je viens de tester ca respecte les pagebreak d'origine si on touche pas au marges etc.....
si tu a le malheur de centrer ou émarger ca plombe tout il faut tout paramétrer

[niboTD]

re
Bonjour thautheme
allons 201 lignes ou plus sur une page en format A4 tu es sur !!!??????
t'en aurais pas oublié un peu du code la !!?????

Oui je suis bien sur de mes 200 lignes, mais ce n'est pas pour une impression sur une page mais plusieurs si besoin.
Le proposition ci-dessus me convient