comment changer la police ??

latanz

XLDnaute Nouveau
Bonjour à tous

J'ai que très peu de notion en vba, mais grâce u forum, j'ai réussi à insérer une formule dans mon pied de page, mais je n'arrive pas à modifier le format (j'aimerai avoir la police Tahoma et la taille 18)

Voici mon code :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("Feuil2")
.PageSetup.RightFooter = .Range("I45")

End With
End Sub
 

kiki29

XLDnaute Accro
Re : comment changer la police ??

Salut, tu pourras y parvenir sans probleme avec l'enregistreur de macros
 

ROGER2327

XLDnaute Barbatruc
Re : comment changer la police ??

Bonsoir
Code:
ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal""&18" & ActiveSheet.Range("I45").Value
Valable sous Excel 2003. J'espère que ça l'est aussi sous Excel 2007.​
ROGER2327
 
Dernière édition:

latanz

XLDnaute Nouveau
Re : comment changer la police ??

hello,

ca change de police, en effet, mais c'est une taille proche de 72 :) sais-tu comment faire pour la rapetisser ?

Merci !
 

latanz

XLDnaute Nouveau
Re : comment changer la police ??

j'ai enfin trouvé, j'ai mis un espace après le 18 et c'était bon !!

Merci beaucoup pour ton aide et bonne journée !!!
 

ROGER2327

XLDnaute Barbatruc
Re : comment changer la police ??

Re...
j'ai mis un espace après le 18 et c'était bon
Très bizarre ! Chez moi, le résultat est le même, que j'écrive
Code:
   ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal"[COLOR="Red"]"&18"[/COLOR] & ActiveSheet.Range("A1").Value
ou
Code:
   ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal"[COLOR="Red"]"&18 "[/COLOR] & ActiveSheet.Range("A1").Value
Un mystère...​
ROGER2327
 

Discussions similaires


Haut Bas