Macro pour PrintArea

[herverob]

Bonjour,
j'ai cree une Macro pour parametrer un PrintArea
j'ai commence par:

Dim tata As String
tata = "=SUM(R11C1:R259C1)+10"
ActiveSheet.PageSetup.PrintArea = Range("A11", tata).Value

le Pb est que "tata" est un nombre, et la range doit etre "A11";A et le valeur de tata.

Quelqu'un pour m'aider ??

Merci
Herve

 

[Robert]

Re : Macro pour PrintArea

Bonjour Hervé, bonjour le forum,

Essaie comme ça :

[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é...

 

[herverob]

Re : Macro pour PrintArea

ne marche pas, merci tout de meme.

 

[Spitnolan08]

Re : Macro pour PrintArea

Bonjour hervérob, Robert,

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

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

Cordialement

 

[herverob]

Re : Macro pour PrintArea

non plus.
encore merci de tes efforts

 

[Robert]

Re : Macro pour PrintArea

Bonjour le fil, bonjour le forum,

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

testé... Ça marche !

 

[Spitnolan08]

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

 

[herverob]

Re : Macro pour PrintArea

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