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.