Determiner une plage d'impression

Bonjour Michel

ActiveSheet.PageSetup.PrintArea = plage1.address


Salutations!


"Michel Pilon" <michel.pilon@canadapost.ca> a écrit dans le message de
news:149b54a.0405201139.2ae7f896@posting.google.com...
Bonjour,

Je veux déterminer une plage d'impression. Sauf que la plage est
déterminée au run time.

'je détermine la plage

Dim plage1 As Range

Set plage1 = Range("A7",[A7].End(xlDown))

ActiveSheet.PageSetup.PrintArea = plage1

'la derniere commande ne fonctionne pas. Je ne sais pourquoi, mais la
variable plage1 à la droite du signe égal n'est pas reconnue.

Merci de votre aide.

bonjour Michel,

modifie pour :
ActiveSheet.PageSetup.PrintArea = plage1.Address

isabelle

Bonjour,

Je veux déterminer une plage d'impression. Sauf que la plage est
déterminée au run time.

'je détermine la plage

Dim plage1 As Range

Set plage1 = Range("A7",[A7].End(xlDown))

ActiveSheet.PageSetup.PrintArea = plage1

'la derniere commande ne fonctionne pas. Je ne sais pourquoi, mais la
variable plage1 à la droite du signe égal n'est pas reconnue.

Merci de votre aide.

t'as fini, mon ange, de copier sur...michel
jps

isabelle a écrit:

bonjour Michel,

modifie pour :
ActiveSheet.PageSetup.PrintArea = plage1.Address

isabelle

Bonjour,

Je veux déterminer une plage d'impression. Sauf que la plage est
déterminée au run time.

'je détermine la plage

Dim plage1 As Range

Set plage1 = Range("A7",[A7].End(xlDown))

ActiveSheet.PageSetup.PrintArea = plage1

'la derniere commande ne fonctionne pas. Je ne sais pourquoi, mais la
variable plage1 à la droite du signe égal n'est pas reconnue.

Merci de votre aide.

:-) chut malheureux, Denis pourrais sans apercevoir ;-)
isabelle

t'as fini, mon ange, de copier sur...michel
jps

isabelle a écrit:

bonjour Michel,

modifie pour :
ActiveSheet.PageSetup.PrintArea = plage1.Address

isabelle

Bonjour,

Je veux déterminer une plage d'impression. Sauf que la plage est
déterminée au run time.

'je détermine la plage

Dim plage1 As Range

Set plage1 = Range("A7",[A7].End(xlDown))

ActiveSheet.PageSetup.PrintArea = plage1

'la derniere commande ne fonctionne pas. Je ne sais pourquoi, mais la
variable plage1 à la droite du signe égal n'est pas reconnue.

Merci de votre aide.

:-))))
Dim jps As Angel

isabelle a écrit:

:-) chut malheureux, Denis pourrais sans apercevoir ;-)
isabelle

t'as fini, mon ange, de copier sur...michel
jps

isabelle a écrit:

bonjour Michel,

modifie pour :
ActiveSheet.PageSetup.PrintArea = plage1.Address

isabelle

Bonjour,

Je veux déterminer une plage d'impression. Sauf que la plage est
déterminée au run time.

'je détermine la plage

Dim plage1 As Range

Set plage1 = Range("A7",[A7].End(xlDown))

ActiveSheet.PageSetup.PrintArea = plage1

'la derniere commande ne fonctionne pas. Je ne sais pourquoi, mais la
variable plage1 à la droite du signe égal n'est pas reconnue.

Merci de votre aide.

:-))))
Dim jps As Angel
Eh ben ... tu ne doutes de rien :o)

@+
FxM taquin à ses heures

jaloux!
jps

FxM a écrit:

:-))))
Dim jps As Angel

Eh ben ... tu ne doutes de rien :o)

@+
FxM taquin à ses heures