OVH Cloud OVH Cloud

Définition d'une zone d'impression dans 1 macro

2 réponses
Avatar
benmat
Bonjour à toutes et à tous,

Je souhaite définir la zone d'impression d'un document dont le nbre de
lignes varie d'un jour à l'autre, ceci au travers d'une macro. Cette zone
d'impression se présente actuellement sous la forme suivante :

ActiveSheet.PageSetUp.PrintArea = $G$1:$AD$605$
Par quoi puis-je remplacer 605 si je ne connais pas le nombre de lignes ?

Je travaille sous Excel2000.

Merci d'avance pour l'aide que vous pourriez m'apporter.
ANNIE

2 réponses

Avatar
Daniel
Bonjour.
ActiveSheet.PageSetup.PrintArea = "G1:AD" & Range("AD1").End(xlDown).Row
Cordialement.
Daniel
"benmat" a écrit dans le message de news:

Bonjour à toutes et à tous,

Je souhaite définir la zone d'impression d'un document dont le nbre de
lignes varie d'un jour à l'autre, ceci au travers d'une macro. Cette zone
d'impression se présente actuellement sous la forme suivante :

ActiveSheet.PageSetUp.PrintArea = $G$1:$AD$605$
Par quoi puis-je remplacer 605 si je ne connais pas le nombre de lignes ?

Je travaille sous Excel2000.

Merci d'avance pour l'aide que vous pourriez m'apporter.
ANNIE



Avatar
michdenis
Bonjour Benmat,

'--------------------
With Worksheets("Feuil1")
.PageSetup.PrintArea = "G1:AD" & .Range("AD65536").End(xlUp).Row
End With
'--------------------


Salutations!


"benmat" a écrit dans le message de news:
Bonjour à toutes et à tous,

Je souhaite définir la zone d'impression d'un document dont le nbre de
lignes varie d'un jour à l'autre, ceci au travers d'une macro. Cette zone
d'impression se présente actuellement sous la forme suivante :

ActiveSheet.PageSetUp.PrintArea = $G$1:$AD$605$
Par quoi puis-je remplacer 605 si je ne connais pas le nombre de lignes ?

Je travaille sous Excel2000.

Merci d'avance pour l'aide que vous pourriez m'apporter.
ANNIE