Police Pied de page

Le 26/06/2017 à 10:56

Bonjour à tous

J'ai un soucis de type et taille de police sur cette macro

Comment pourrais je modifier en arial de taille 4 ?

Merci beaucoup de votre aide

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.LeftFooter = Range("AX1000").Value

ActiveSheet.PageSetup.CenterFooter = Range("AX1001").Value

ActiveSheet.PageSetup.RightFooter = Range("AX1002").Value

End Sub

Le 26/06/2017 à 17:13

Bonjour MJC55, bonjour le forum,

Voir si ceci peut te dépanner ...

https://answers.microsoft.com/fr-fr/msoffice/forum/msoffice_excel-mso_other/changer-la-police-en-pied-de-page-en-vba/afe5720c-1f72-4fb0-8a21-8e7fde4b63d5

Joseph

Bonjour MJC55, bonjour le forum,

Toute tricotée ...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Police As String
Dim Taille As String
Dim TexteLeft As String
Dim TexteCenter As String
Dim TexteRight As String

    '****VARIABLES À DÉFINIR SELON TES BESOINS****
Police = "Arial"
Taille = 4
TexteLeft = Range("AX1000").Value
TexteCenter = Range("AX1001").Value
TexteRight = Range("AX1002").Value

With ActiveSheet
    With .PageSetup
        .LeftFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteLeft
        .CenterFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteCenter
        .RightFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteRight
    End With
    .PrintPreview
End With

End Sub

Joseph

Le 26/06/2017 à 19:22

Bonjour Joseph

Problème soldé

Merci 1000 fois

Le 22/12/2017 à 11:55

En effet, j'ai bien réutilisé le programme ci dessous donné par M12

Le pied de page gauche devient alors démesuré (police de 409 !!)

Je ne comprends pas et c'est pourquoi je repose la question !

Merci de vos conseils

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Police As String