agrandir la taille des entêtes

Madjon6 · 19 Mars 2010

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 · 19 Mars 2010

Re : agrandir la taille des entêtes

Bonjour

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

Cordialement

Madjon6 · 19 Mars 2010

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 · 19 Mars 2010

Re : agrandir la taille des entêtes

Bonjour Madjon, Odesta

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

Code:

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

bonne soirée
@+

Odesta · 19 Mars 2010

Re : agrandir la taille des entêtes

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

Odesta · 19 Mars 2010

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 · 19 Mars 2010

Re : agrandir la taille des entêtes

Parfait merci beaucoup

Bon week end à vous

agrandir la taille des entêtes

Madjon6

XLDnaute Occasionnel

Odesta

XLDnaute Impliqué

Madjon6

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Odesta

XLDnaute Impliqué

Odesta

XLDnaute Impliqué

Madjon6

XLDnaute Occasionnel

Discussions similaires