Pb selectionner zone d'impression

[CelluleVide]

Bonjour le forum,

Un pb pour selectionner ma zone d'impression:
La plage est variable donc pour la choisir je procede comme suit:

Sub Macro1()
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Zoom = True 'Pour afficher la selction

Jusque là tout est OK
Mais quand je veux faire de ma selection ma zone d'impression comme ça:

ActiveSheet.PageSetup.PrintArea = Selection ' ===> Là ça BUG!!!!!

Une ch'tite idée???

 

[Guest]

Re : Pb selectionner zone d'impression

Bonjour Cellulevide,

ActiveSheet.PageSetup.PrintArea = Selection.Address

Ou en une seule ligne:

ActiveSheet.PageSetup.PrintArea=Range("A1").CurrentRegion.Address

A bientôt

 

[CelluleVide]

Re : Pb selectionner zone d'impression

Bonjour Hasco,

Merci La deuxieme solution me convient.

ca faisait un bon moment que je cherchait en vain...

A+