Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel police dans en tete et pied de page

police dans en tete et pied de page

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Aie le réflexe "enregistreur".
Avec l'enregistreur de macro, j'ai obtenu :
.LeftHeader = "&""Britannic Bold,Normal""&10TonTexte ICI"
Cordialement.
Daniel
"andre" a écrit dans le message de news:

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




Avatar
andre
andre vous demande
Bonjour.
Aie le réflexe "enregistreur".
Avec l'enregistreur de macro, j'ai obtenu :
.LeftHeader = TonTexte ICI"
Cordialement.
Daniel
"andre" a écrit dans le message de news:

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

Avatar
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
Avatar
Daniel.C
.LeftHeader = "&""Britannic Bold,Normal""&10" & Sheets("Feuil2").[A2]
passe comme une lettre à la poste.
Daniel
"andre" a écrit dans le message de news:

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