Macro er mise en page

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

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,

Code trouvé grâce à l'enregistreur de macro (moyen trop souvent oublié ) :

ActiveSheet.PageSetup.RightHeader = "&28" & Sheets("Générale").[A1].Value

à la place de ta ligne

ActiveSheet.PageSetup.RightHeader = Sheets("Générale").[A1].Value

Cordialement.

Rechercher des sujets similaires à "macro mise page"