police dans en tete et pied de page

Le
andre
Bonjour,
dans this workbook j'ai declare ce code
With Sh.PageSetup
.LeftHeader = xxxxxxxxxx
.RightFooter = "Montant à régler " & Sheets("Base
Données").Range("C3").Value & " ¤"
.CenterFooter = Sheets("Base Données").Range("AI1").Value
.LeftFooter = Sheets("Base Données").Range("C2").Value
End With
je voudrais mettre une police differente a chaque instruction (left,
right )
la methode que j'ai appliquée est globale
et si j'applique a chaque ligne ce code :
.LeftHeader = ""&""Arial,Gras""&11" & Sheets("Base
Données").Range("AI1").Value ca bugue
merci de me renseigner

--
andre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5442041
Bonjour.
Aie le réflexe "enregistreur".
Avec l'enregistreur de macro, j'ai obtenu :
.LeftHeader = "&""Britannic Bold,Normal""&10TonTexte ICI"
Cordialement.
Daniel
"andre"
Bonjour,
dans this workbook j'ai declare ce code
With Sh.PageSetup
.LeftHeader = xxxxxxxxxx
.RightFooter = "Montant à régler " & Sheets("Base
Données").Range("C3").Value & " ¤"
.CenterFooter = Sheets("Base Données").Range("AI1").Value
.LeftFooter = Sheets("Base Données").Range("C2").Value
End With
je voudrais mettre une police differente a chaque instruction (left, right
...)
la methode que j'ai appliquée est globale
et si j'applique a chaque ligne ce code :
.LeftHeader = ""&""Arial,Gras""&11" & Sheets("Base
Données").Range("AI1").Value ca bugue
merci de me renseigner

--
andre




andre
Le #5441961
andre vous demande
Bonjour.
Aie le réflexe "enregistreur".
Avec l'enregistreur de macro, j'ai obtenu :
.LeftHeader = TonTexte ICI"
Cordialement.
Daniel
"andre"
oui daniel bonjour

je l'ai pris l'enregistreur
mais ca bugue
car derriere : "&""Britannic Bold,Normal""&10 j'ai ceci :
Sheets("Base Données").Range("AI1").Value

--
andre

andre
Le #5441941
andre vous dit
toutes les lignes qui font appel a une feuille ou a une cellule
buguent
par contre les autres c'est Ok

--
andre
Daniel.C
Le #5441811
.LeftHeader = "&""Britannic Bold,Normal""&10" & Sheets("Feuil2").[A2]
passe comme une lettre à la poste.
Daniel
"andre"
andre vous dit
toutes les lignes qui font appel a une feuille ou a une cellule
buguent
par contre les autres c'est Ok

--
andre




Publicité
Poster une réponse
Anonyme