A voir également:
- VBA Excel/En-tête/police
- Liste déroulante excel - Guide
- Police facebook - Guide
- Formule excel - Guide
- Mise en forme conditionnelle excel - Guide
- Si et excel - Guide
4 réponses
Darkito
Messages postés
1191
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2010
545
7 févr. 2008 à 17:10
7 févr. 2008 à 17:10
Bonjour,
je pense que c'est du à un problème de concaténation des chaines.
essaie en ajoutant des & pour concatener :
voire même tout simplement :
je pense que c'est du à un problème de concaténation des chaines.
essaie en ajoutant des & pour concatener :
"&"&"Tahoma"&"&10" & Sheets
voire même tout simplement :
"&Tahoma &10" & Sheets
Merci Darkito,
J'ai testé testé ta première solution et cela m'a donné ça: 07:14ahoma. Il doit prendre l'expression "&T" pour l'introduction l'heure. D'ailleurs petit point hors sujet si on cherche l'expression &T dans l'aide en ligne, il dit que c'est le nombre de page contenu dans le document.
La deuxième solution me donne 07:22ahoma, même problème.
Une autre idée? Moi je vais continuer a essayer.
J'ai testé testé ta première solution et cela m'a donné ça: 07:14ahoma. Il doit prendre l'expression "&T" pour l'introduction l'heure. D'ailleurs petit point hors sujet si on cherche l'expression &T dans l'aide en ligne, il dit que c'est le nombre de page contenu dans le document.
La deuxième solution me donne 07:22ahoma, même problème.
Une autre idée? Moi je vais continuer a essayer.
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 209
8 févr. 2008 à 07:48
8 févr. 2008 à 07:48
Bonjour,
marche très bien chez moi sur excel 2003...
eric
.LeftFooter = "&""Tahoma""&11" & "blabla" & Sheets("Feuil1").Cells(1, 1)
marche très bien chez moi sur excel 2003...
eric
Salut,
J'ai modifié mon code:
....
With Sheets(Nom_feuille_cherchee).PageSetup
.LeftHeader = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("B3")
.RightHeader = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("C3")
.LeftFooter = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("D3")
'.CenterFooter "&""Tahoma""&10" & "-&P/&N -"
.RightFooter = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("E3")
End With
Maintenant la police se met bien en tahoma, mais en grandeur 409... une idée?
Merci Eriiic, je vais essayer chez moi sur un excel plus récent, peut-être un bug de 2000...
Dave
J'ai modifié mon code:
....
With Sheets(Nom_feuille_cherchee).PageSetup
.LeftHeader = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("B3")
.RightHeader = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("C3")
.LeftFooter = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("D3")
'.CenterFooter "&""Tahoma""&10" & "-&P/&N -"
.RightFooter = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Range("E3")
End With
Maintenant la police se met bien en tahoma, mais en grandeur 409... une idée?
Merci Eriiic, je vais essayer chez moi sur un excel plus récent, peut-être un bug de 2000...
Dave