mise en page avant impression macro

bonjour

j'utilise cette macro qui me sélectionne une parti de ma feuille de calcul puis qui va chercher une valeur sur une autre feuille en a1 pour la faire apparaitre dans l’entête lors de l’apercu avant impression jusque la tout va bien
mon problème
je ne connais pas la syntaxe pour lui indiquer la police la taille de la valeur qui viens de la seconde feuille ( en rouge dans ma macro)après quelque recherche j'ai trouve .font.size=28, font.name=

mon souci je ne trouve pas comment formuler cela pour que cela fonctionne

si quelque à un tuyau je suis preneur

merci

Code:

---

1 2 3 4 5 6 7

Sub IMP_an429tb()   Sheets("Saisi Go AN429tb").Select ActiveSheet.PageSetup.PrintArea = "$J$2:$Y$27" ActiveSheet.PageSetup.RightHeader = Sheets("Générale").[A1].Value ActiveWindow.SelectedSheets.PrintPreview End Sub

---

merci pour les infos d'avance

Salut, via l'enregistreur de macros tu aboutis à qqch comme

Code:

---

.CenterHeader = "&""Arial,Gras""&12&P"

---

qu'il faudra adapter à ton contexte.

A voir pour accélérer la mise en page

bonjour kiki 29

j'ai modifié ma macro et voici ce qu’elle donne ci dessous mon problème
maintenant j'ai bien la valeur 2011 qui apparait en haut a droit en arial gras 26
mais je suis obliger de mettre la valeur en dure hors moi cette valeur se trouve sur une autre feuille dans la cellule A
macro précédente
existe t'il un moyen pour faire fonctionner les 2 ensembles

Code:

---

1 2 3 4 5 6 7 8

Sub IMP_an429tb()   Sheets("Saisi Go AN429tb").Select ActiveSheet.PageSetup.PrintArea = "$J$2:$Y$27" ActiveSheet.PageSetup.RightHeader = "&""Arial,Gras""&26 2011"   ActiveWindow.SelectedSheets.PrintPreview End Sub

---

merci yannick

Il faut eviter d'utiliser les select,activesheet..

Code:

---

1 2 3 4

Sheets("Saisi Go AN429tb").PageSetup.PrintArea = "$J$2:$Y$27"   Sheets("Saisi Go AN429tb").PageSetup.RightHeader = "&""Arial,Gras""&26 " & Sheets("Générale").range("A1").Value

---

bonjour

merci bbil

cela fonctionne parfaitement

encore merci