Macro pour PrintArea

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2007

• #2

Re : Macro pour PrintArea

Bonjour Hervé, bonjour le forum,

Essaie comme ça :

Code:

[SIZE=2][COLOR=#800080][COLOR=black]Dim tata As String
tata = "=SUM(R11C1:R259C1)+10"
ActiveSheet.PageSetup.PrintArea = Range("A11:A" & tata).Value[/COLOR][/COLOR][/SIZE]

non testé...

 

Vote positif 0 Vote négatif

H

herverob

XLDnaute Nouveau

• 31 Juillet 2007

• #3

Re : Macro pour PrintArea

ne marche pas, merci tout de meme.

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 31 Juillet 2007

• #4

Re : Macro pour PrintArea

Bonjour hervérob, Robert,

A mon avis ça devrait légèremnt mieux fonctionner ainsi, mais non testé également :

Code:

Dim tata As String
tata =worksheetfunction.SUM(range("A11:A259"))+10
ActiveSheet.PageSetup.PrintArea = Range("A11:A" & tata).Value

Cordialement

 

Vote positif 0 Vote négatif

H

herverob

XLDnaute Nouveau

• 31 Juillet 2007

• #5

Re : Macro pour PrintArea

non plus.
encore merci de tes efforts

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2007

• #6

Re : Macro pour PrintArea

Bonjour le fil, bonjour le forum,

Code:

Dim tata As String
tata = WorksheetFunction.Sum(Range("A11:A259")) + 10
ActiveSheet.PageSetup.PrintArea = Range("A11:A" & tata).Addres

testé... Ça marche !

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 31 Juillet 2007

• #7

Re : Macro pour PrintArea

Bien vu Robert,

Je n'avais même pas vu le .value! Or pour que ça fonctionne il faut bien entendu une référence de type : "A1:B2" ... donc utiliser .Address

Cordialement

 

Vote positif 0 Vote négatif

H

herverob

XLDnaute Nouveau

• 31 Juillet 2007

• #8

Re : Macro pour PrintArea

merci a vous, et a une prochaine sur se forum
Herve

 

Vote positif 0 Vote négatif