Mise en forme entête et pied de page

Bonjour,

J'ai beau essayé mais je n'y arrive pas...

J'ai une macro qui me permet de renvoyer une cellule dans un entête et une autre cellule en pied de page. Jusque là pas de soucis. Par contre, je n'arrive pas à mettre une mise en forme dans l'entête et dans le pied de page différente de la cellule d'origine.

Le code que j'ai est :

Sub En_tête_et_pied_de_page()

Dim x As Byte

For x = 1 To Sheets.Count

With Sheets(x).PageSetup

'En tête de page

.CenterHeader = "&B&22&""Cambria"

.CenterHeader = Range("B1")

'Pied de page

.CenterFooter = "8&""Arial"

.CenterFooter = Range("B2")

End With

Next x

End Sub

Le texte que je veux se met bien dans l'entête et le pied de page. Quid de la mise en forme du texte ?

Format entête Cambria taille 22, Format pied de page Cambria taille 8.

Dois je créer une nouvelle macro pour cette mise en page ou est ce qu'éventuellement une solution existe pour avoir à la fois la cellule qui se retranscris en en entête pied de page et la mise en forme en même temps ?

Si vous avez une solution je suis preneur.

Bonjour, testez celle-ci

Sub En_tête_et_pied_de_page()
Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
'En tête de page
.CenterHeader = "&""Cambria""&22" & Sheets(x).Range("B1")
'Pied de page
.CenterFooter = "&""Arial""&8" & Sheets(x).Range("B2")
End With
Next x
End Sub

Bonjour,

Effectivement elle fonctionne. Un grand merci.