Mise en forme en têtes et pìeds de page VBA

[julien974]

Bonjour,

J'ai crée une impression automatique. L'en tète (LeftHeader et CenterHeader) ont pour source des cellule spécifiques. Je souhaiterai changer la taille de la police pour ces deux cas(police taille 16 par exemple). Voici le code de l'en tête et pied de page.

With ActiveSheet.PageSetup
        .LeftHeader = Sheets("Hoja1").Range("A2").Value
        .CenterHeader = Sheets("Hoja1").Range("A1").Value
        .RightHeader = "&D"
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""

Merci de votre aide,

Juli3n974

 

[cibleo]

Re : Mise en forme en têtes et pìeds de page VBA

Bonjour le forum, Julien974,

Pour t'aider, vois ces liens ci-dessous :

https://www.excel-downloads.com/threads/procedure-evenementielle.99387/

https://www.excel-downloads.com/threads/apercu-avant-impression-tres-long-a-safficher.100756/

Amicalement Cibleo

 

[Dull]

Re : Mise en forme en têtes et pìeds de page VBA

Salut Julien, Cibleo, le Forum

Peut-être comme cela

With ActiveSheet.PageSetup
        .LeftHeader = Sheets("Hoja1").Range("A2").Value
        .CenterHeader = Sheets("Hoja1").Range("A1").Value
        .RightHeader = [B]"&""Arial,Gras""&16[/B]&D"
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
End With

Bonne Journée

EDITION: 974 veut-il dire ce que je crois?

RE EDITH: Salut Pierrejean 🙂 Voilà ce que c'est de ne pas bien lire l'intitulé du Problème. La soluce le Pierrejean est exact (L'enregistreurdemacrom'afaitfauxbond) 😱

Nou artrouv 😉

Bonne Journée

 

[pierrejean]

Re : Mise en forme en têtes et pìeds de page VBA

bonjour a tous

Pour la taille 16

  .LeftHeader = "&16" & Sheets("Hoja1").Range("A2").Value
  .CenterHeader = "&16" & Sheets("Hoja1").Range("A1").Value