En tête et pied de page personnalisé (suite)

[degap05]

Bonjour,
Dans la macro de:

Robert
XLDnaute Barbatruc

Il est possible de personnaliser l'en tête et le pied de page d'une feuille, ici en B1 et B2.

Serait-il possible de paramétrer la police et la taille des caractères dans la macro ?

Merci.

 

[Efgé]

Re : En tête et pied de page personnalisé (suite)

Bonjour,
Voici la totalité (enfin je pense) des options d'en-tête et pied de page :
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Gras""&14ggggg"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With

Il suffit d'utiliser l'enregistreur de macro
Cordialement

 

[Paritec]

Re : En tête et pied de page personnalisé (suite)

Bonsoir Maurice efgé le forum
tu peux faire comme ci-dessous avec tes valeurs naturellement
a+
Papou 🙂

.CenterFooter = "&""Times New Roman,Italique""&18Titre : momo / Nom : lolo"

 

[degap05]

Re : En tête et pied de page personnalisé (suite)

Bonjour Efgé, Paritec,

Effectivement:

.CenterFooter = "&""Arial,Gras""&18" & Range("A56").Value
.CenterHeader = "&""Arial,Gras""&18" & Range("A1").Value

Merci.