Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Formater Font Footer

12 réponses
Avatar
Denys
Bonjour =E0 tous,

Je souhaiterais formater un pied de page gauche avec la police 8...
Voici o=F9 j'en suis:

With ActiveSheet.PageSetup
.LeftHeader =3D ""
.CenterHeader =3D ""
.RightHeader =3D ""
.LeftFooter =3D "& ""Arial,Regular""&8" & "Ce rapport
repr=E9sente etc..." & ""
end with

Rendu l=E0, =E7a ne fonctionne pas... Voyez-vous o=F9 est l'erreur ??

Merci

Denys

10 réponses

1 2
Avatar
Mgr T. Plubanni
peut-être ceci, denys...

à remplacer :

.LeftFooter = "& ""Arial,Regular""&8" &A"& "Ce rapport
représente etc..." & ""

à jeter :

.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""

HTH
Mgr T. P.

a écrit dans le message de news:
Bonjour à tous,

Je souhaiterais formater un pied de page gauche avec la police 8...
Voici où j'en suis:

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "& ""Arial,Regular""&8" & "Ce rapport
représente etc..." & ""
end with

Rendu là, ça ne fonctionne pas... Voyez-vous où est l'erreur ??

Merci

Denys
Avatar
Tatanka
Salut Denys,

Peut-être ceci :

Sub Essai()
ActiveSheet.PageSetup.LeftFooter = "&""Arial"" &08" & "Ça fonctionne?"
End Sub

Serge


"Denys" a écrit dans le message de news:

Bonjour à tous,

Je souhaiterais formater un pied de page gauche avec la police 8...
Voici où j'en suis:

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "& ""Arial,Regular""&8" & "Ce rapport
représente etc..." & ""
end with

Rendu là, ça ne fonctionne pas... Voyez-vous où est l'erreur ??

Merci

Denys
Avatar
Péhemme
Bonjour Denys,

Je ne comprends pas, ceci fonctionne chez moi (Vista/Office2003) :

With ActiveSheet.PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = "&""Arial,Regular""&8" & "Ce rapport représente
etc..." & "la suite"
End With
ActiveWindow.SelectedSheets.PrintPreview

Michel

"Denys" a écrit dans le message de
news:
Bonjour à tous,

Je souhaiterais formater un pied de page gauche avec la police 8...
Voici où j'en suis:

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "& ""Arial,Regular""&8" & "Ce rapport
représente etc..." & ""
end with

Rendu là, ça ne fonctionne pas... Voyez-vous où est l'erreur ??

Merci

Denys
Avatar
michdenis
Bonjour,

Si tu veux écrire cette ligne de code sur 2 lignes :


.LeftFooter = "&""Arial,Regular""&8" & "Ce rapport " & _
"représente etc..." & ""

'------------------------------------
With ActiveSheet
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = "&""Arial,Regular""&8" & "Ce rapport " & _
"représente etc..."
'. les autres caractéristiques à définir si nécessaire
End With
.PrintPreview
End With
'------------------------------------


MichD
--------------------------------------------
Avatar
Denys
Bonjour à tous, et merci....

Il semblerait que je doive raccourcir ma phrase.....

ou encore, est-il possible de la mettre sur deux lignes ?

merci

Denys
Avatar
Mgr T. Plubanni
peut-être vous faudrait-il lire toutes les réponses, mon fils, et en particulier celle de michel ;-) ce jour à 15h59 GMT
Mgr T. P.

"Denys" a écrit dans le message de news:

Bonjour à tous, et merci....

Il semblerait que je doive raccourcir ma phrase.....

ou encore, est-il possible de la mettre sur deux lignes ?

merci

Denys
Avatar
Tatanka
michdenis vient de te l'expliquer !
Important :
Avant de passer à la deuxième ligne,
tu dois mettre un espace suivi de _

Serge


"Denys" a écrit dans le message de news:

Bonjour à tous, et merci....

Il semblerait que je doive raccourcir ma phrase.....

ou encore, est-il possible de la mettre sur deux lignes ?

merci

Denys
Avatar
Denys
Non....ce n'est pas ce que j'ai voulu dire.....

La phrase qui doit apparaitre au bas de la page est très longue, et
excel ne l'acceptes pas...la voici...

.LeftFooter = "&""Arial,Regular""&9" & "This report "
& _
"presents a summary of the individual RRSPs opened
with information provided by you. " & _
"For further details on each RESP, please refer to
your individual RESP statement. If you have any questions, please
contact your branch" & ""

Excel ne veut pas la prendre... Par contre, si je pouvais en mettre la
moitié sur une ligne et l'autre sur la ligne suivante sur la feuille
excel, alors ça irait...

Me suivez-vous...??

Denys
Avatar
Tatanka
Me suivez-vous... ?
Pas sûr. Je prends une chance :
Écris ta phrase au complet en Z1 :

This report presents a summary of the individual RRSPs opened
with information provided by you. For further details on each RESP,
please refer to your individual RESP statement. If you have any questions,
please contact your branch.

et :
ActiveSheet.PageSetup.LeftFooter = [z1]

Serge



"Denys" a écrit dans le message de news:

Non....ce n'est pas ce que j'ai voulu dire.....

La phrase qui doit apparaitre au bas de la page est très longue, et
excel ne l'acceptes pas...la voici...

.LeftFooter = "&""Arial,Regular""&9" & "This report "
& _
"presents a summary of the individual RRSPs opened
with information provided by you. " & _
"For further details on each RESP, please refer to
your individual RESP statement. If you have any questions, please
contact your branch" & ""

Excel ne veut pas la prendre... Par contre, si je pouvais en mettre la
moitié sur une ligne et l'autre sur la ligne suivante sur la feuille
excel, alors ça irait...

Me suivez-vous...??

Denys
Avatar
Péhemme
Et comme ça (3 lignes à l'impression) :
.LeftFooter = "&""Arial,Regular""&8" & _
"presents a summary of the individual RRSPs opened with
information provided by you." & vbNewLine & _
"For further details on each RESP, please refer to your
individual RESP statement. If you have any questions," & vbNewLine & _
"please contact your branch" & ""

Michel


"Denys" a écrit dans le message de
news:
Non....ce n'est pas ce que j'ai voulu dire.....

La phrase qui doit apparaitre au bas de la page est très longue, et
excel ne l'acceptes pas...la voici...

.LeftFooter = "&""Arial,Regular""&9" & "This report "
& _
"presents a summary of the individual RRSPs opened
with information provided by you. " & _
"For further details on each RESP, please refer to
your individual RESP statement. If you have any questions, please
contact your branch" & ""

Excel ne veut pas la prendre... Par contre, si je pouvais en mettre la
moitié sur une ligne et l'autre sur la ligne suivante sur la feuille
excel, alors ça irait...

Me suivez-vous...??

Denys
1 2