comment changer la police ??

latanz · 08/06/2009, 16h27

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 · 09/06/2009, 00h19

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

ROGER2327 · 09/06/2009, 01h41

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

latanz · 09/06/2009, 09h21

hello,

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

Merci !

ROGER2327 · 09/06/2009, 10h56

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 · 09/06/2009, 11h39

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 · 09/06/2009, 19h55

Re...

Citation:

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""&18" & ActiveSheet.Range("A1").Value
ou
Code:
   ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal""&18 " & ActiveSheet.Range("A1").Value
Un mystère...

ROGER2327

latanz · 12/06/2009, 08h46

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

08/06/2009, 16h27	#1 (permalink)
latanz XLDnaute Nouveau Date d'inscription: juin 2009 Localisation: Sierre Messages: 30	comment changer la police ?? 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

09/06/2009, 00h19	#2 (permalink)
kiki29 XLDnaute Impliqué Date d'inscription: mai 2006 Localisation: Saint Thois Messages: 885	Re : comment changer la police ?? Salut, tu pourras y parvenir sans probleme avec l'enregistreur de macros

09/06/2009, 01h41	#3 (permalink)
ROGER2327 XLDnaute Barbatruc Date d'inscription: octobre 2008 Messages: 2 947	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 __________________ Excel 2003 (PC) L'émancipation des travailleurs sera l'œuvre des travailleurs eux-mêmes. Dernière modification par ROGER2327 ; 09/06/2009 à 01h44.

09/06/2009, 09h21	#4 (permalink)
latanz XLDnaute Nouveau Date d'inscription: juin 2009 Localisation: Sierre Messages: 30	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 !

09/06/2009, 11h39	#6 (permalink)
latanz XLDnaute Nouveau Date d'inscription: juin 2009 Localisation: Sierre Messages: 30	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 !!!

12/06/2009, 08h46	#8 (permalink)
latanz XLDnaute Nouveau Date d'inscription: juin 2009 Localisation: Sierre Messages: 30	Re : comment changer la police ?? excuse moi, je me suis trompée, j'ai mis avant le 18 !!

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email

Discussions similaires
Discussion	Auteur	Forum	Réponses	Dernier message
Changer la couleur de la police	papamat	Forum Excel	4	16/12/2008 09h42
changer police des onglets	archi	Forum Excel	0	25/07/2007 12h47
changer la couleur de police par macro	pascal21	Forum Excel	13	22/09/2006 14h58
Changer la police d'une chexkbox	Wachoo31	Forum Excel Downloads - Archives	2	16/07/2004 12h51
Changer police case à cocher	acaly	Forum Excel Downloads - Archives	1	01/05/2004 11h39