Mise en forme dans les entêtes et les pieds de page

Bonjour,

En VBA, il existe une série de codes permettant d'appliquer une mise en forme au texte dans une entête ou un pied de page.

"&G" pour gras

"&I" pour italique

"&10" pour la taille

"&""Arial""" pour la police

etc...

Exemple:

ActiveSheet.PageSetup.CenterHeader = "&G&I&14&""Arial""texte"

Ce code va écrire "text" en gras, italique, police Arial de taille 14

Ma question

Je veux "text1" en gras, italique, police Arial de taille 14 sur la première ligne et "text2" en normal et police Courier New de 10 sur la seconde dans mon entête de page. Cet opération est simple à éffectuer manuellement.

J'ai essayé avec du code VBA et je n'y parviens pas.

ActiveSheet.PageSetup.CenterHeader = "&G&I&14&""Arial""texte1" & vbCrLf & "&10&""Courier New""texte2"

"text1" prend le format de "text2", soit Courier New de taille 10

Quelqu'un peut m'aider ?

Philippe

Bonsoir,

essaye :

ActiveSheet.PageSetup.CenterHeader = "&G&I&14&""Arial""texte1" & Chr(10) & "&10&""Courier New""texte2"

Claude.

En fait, mon code est correcte. Je n'étais pas bien éveillé lors de mes essais.

Enfin... cela servira peut-être à d'autres dans ce forum.

Bonjour,

J'aimerais utiliser les données d'une ComboBox pour qu'elles se retrouvent dans le CenterHeader d'une feuille Excel : j'ai essayé cette combinaison ActiveSheet.PageSetup.CenterHeader = "&G&I&14&""Arial" user_form.ComboBox7.Value afin de mettre en forme le contenu de la ComboBox !

Cependant, cela ne fonctionne pas...

Si quelqu'un connait un code, ce serait très sympa