agrandir la taille des entêtes

[Madjon6]

Bonjour,

Je souhaite agrandir la taille des entêtes dans un fichier excel.

Voici le code me permettant de mettre l'entête auquel je souhaite ajouter une taille :

Dim C As Range, a As String
a = InputBox("Saisir une date") 'Création de l'InputBox
Sheets("Q1").PageSetup.CenterHeader = Chr(10) & "Synthèse" & Chr(13) & "Prévisions" & Chr(13) & "as of : " & Format(a, "mmm dd yyyy") _
'colle la date de l'InputBox précédé de " FORECAST as of : " dans l'En-Tête au Centre

Pourriez vous m'aider svp ?

Merci à vous

 

[Odesta]

Re : agrandir la taille des entêtes

Bonjour

Sheets("Q1").PageSetup.HeaderMargin = Application.InchesToPoints(1.0) (en pouce !!)

Cordialement

 

[Madjon6]

Re : agrandir la taille des entêtes

Merci pour votre réponse.

Ca me dit qu'il manque une instruction. Si je voulais une taille à 18 quelle serait le code à inclure svp ?

 

[Pierrot93]

Re : agrandir la taille des entêtes

Bonjour Madjon, Odesta

si l'on parle bien de la taille de la police :

Sheets("Q1").PageSetup.CenterHeader = "&18Synthèse" & Chr(13) & "Prévisions" & Chr(13) & "as of : " & Format(a, "mmm dd yyyy")

bonne soirée
@+

 

[Odesta]

Re : agrandir la taille des entêtes

Ahh, une taille de caractère, pardon...
Je regarde

 

[Odesta]

Re : agrandir la taille des entêtes

Voila :
Sheets("Q1").PageSetup.CenterHeader = "&18" & Chr(10) & "Synthèse"....

EDIT : Hello et pardon Pierrot, pas vue ta réponse.


Cdt
Olivier

 

[Madjon6]

Re : agrandir la taille des entêtes

Parfait merci beaucoup

Bon week end à vous