comment changer la police ??

[latanz]

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]

Re : comment changer la police ??

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

 

[ROGER2327]

Re : comment changer la police ??

Bonsoir

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

 

[latanz]

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 !

 

[ROGER2327]

Re : comment changer la police ??

Re...

Pas de problème chez moi. Je viens de faire des essais en remplaçant 18 par d'autres tailles de caractère. Pas de problème chez moi.​

ROGER2327

 

[latanz]

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]

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

   ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal"[COLOR="Red"]"&18"[/COLOR] & ActiveSheet.Range("A1").Value

ou

   ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal"[COLOR="Red"]"&18 "[/COLOR] & ActiveSheet.Range("A1").Value

Un mystère...​

ROGER2327

 

[latanz]

Re : comment changer la police ??

excuse moi, je me suis trompée, j'ai mis avant le 18 !!