Changement partiel de couleur de police dans pied de page (macro)
Résolu
FMas09600
Messages postés
28
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
dans une macro d'insertion d'un pied de page, je souhaiterai changer la couleur de la police d'une partie du pied de page.
es ce possible et comment?
exemple
pied de page gauche:
www.Sociéte-es.com en style gras et en couleur "Ocre= code RVB 228 - 109 - 10"
Centre du lieu en noir et en style normal
10, rue xxxxx
Code Postal / ville en noir et en style gras
Pied de page droite:
Société B en style Gras et couleur noire
19, rue xxxxxxxx enstyle normal et en couleur noire
XXXXXXXXXX en style gras et couleurs noire.
dans le pied de page centre, j'ajoute un logo.JPG
actuellement, j'ai cette formule :
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$630"
With ActiveSheet.PageSetup
.LeftHeaderPicture.Filename = _
"C:\Users\xxxxxxxxxxxxxxxxxxxxxxxx.jpg"
.LeftHeader = "&G"
.Orientation = xlPortrait
.LeftFooter = "&G&8www.Société-es.com" & Chr(10) & "Direction Générale" & Chr(10) & "117, allée xxxxxxxxxxx"
.CenterFooterPicture.Filename = _
"C:\Users\xxxxxxxxx.jpg"
.RightFooter = "&G&8& Sociète B" & Chr(10) & "19 rue xxxxxxxxx" & Chr(10) & "xxxxxxxxxxxxx"
.CenterFooter = "&G"
MERCI pour votre aide
dans une macro d'insertion d'un pied de page, je souhaiterai changer la couleur de la police d'une partie du pied de page.
es ce possible et comment?
exemple
pied de page gauche:
www.Sociéte-es.com en style gras et en couleur "Ocre= code RVB 228 - 109 - 10"
Centre du lieu en noir et en style normal
10, rue xxxxx
Code Postal / ville en noir et en style gras
Pied de page droite:
Société B en style Gras et couleur noire
19, rue xxxxxxxx enstyle normal et en couleur noire
XXXXXXXXXX en style gras et couleurs noire.
dans le pied de page centre, j'ajoute un logo.JPG
actuellement, j'ai cette formule :
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$630"
With ActiveSheet.PageSetup
.LeftHeaderPicture.Filename = _
"C:\Users\xxxxxxxxxxxxxxxxxxxxxxxx.jpg"
.LeftHeader = "&G"
.Orientation = xlPortrait
.LeftFooter = "&G&8www.Société-es.com" & Chr(10) & "Direction Générale" & Chr(10) & "117, allée xxxxxxxxxxx"
.CenterFooterPicture.Filename = _
"C:\Users\xxxxxxxxx.jpg"
.RightFooter = "&G&8& Sociète B" & Chr(10) & "19 rue xxxxxxxxx" & Chr(10) & "xxxxxxxxxxxxx"
.CenterFooter = "&G"
MERCI pour votre aide
A voir également:
- Changement partiel de couleur de police dans pied de page (macro)
- Changer de dns - Guide
- Impossible de supprimer une page word - Guide
- Changement de police - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Calcul km marche à pied gratuit - Télécharger - Sport
1 réponse
Bonjour,
Voir ceci pour plus d'info:
https://fring.developpez.com/vba/excel/entetepiedpage/
ainsi qu'ici:
https://docs.microsoft.com/fr-fr/office/vba/excel/concepts/workbooks-and-worksheets/formatting-and-vba-codes-for-headers-and-footers
Voir ceci pour plus d'info:
https://fring.developpez.com/vba/excel/entetepiedpage/
ainsi qu'ici:
https://docs.microsoft.com/fr-fr/office/vba/excel/concepts/workbooks-and-worksheets/formatting-and-vba-codes-for-headers-and-footers
j'avais bien vu le site de developpez.com mais il n'y a rien sur la couleur "partielle" d'un pied de page.
pour le site docs.microsoft, j'ai bien le code mais je ne sais pas le mettre en application pour mon projet.
je continu, donc, à chercher.
Sub exemple_codes_mise_en_forme() 'https://fring.developpez.com/vba/excel/entetepiedpage/#L2.1.1 'http://dmcritchie.mvps.org/excel/colors.htm 'https://docs.microsoft.com/fr-fr/office/vba/excel/Concepts/Workbooks-and-Worksheets/formatting-and-vba-codes-for-headers-and-footers Application.ScreenUpdating = False Sheets("Feuil1").Range("A1").Font.Color = 3 With ActiveSheet.PageSetup .LeftHeader = Sheets(1).Range("A1") '<-- contenu de la cellule A1 (sans précision = style par défaut) 'en-tête de page .CenterHeader = "&K0000FF&G&12&""Arial""En tête" & "&K00FFFF&G&12&""Arial""essai" & "&KFF0000&G&12&""Arial""azerty" '<-- texte (style gras + taille 12 + style police)color BLEU .RightHeader = "P.WQ.156&Yind.A" '<-- texte + indice'pied de page .LeftFooter = "&I&D / &T" '<-- date / heure (style italique) 'pied de page .CenterFooter = "&K0000FF&G&A" & Chr(10) & "&G&F" & "&K00FF00&G&12&""Arial""essai" & "&KFF0000&G&12&""Arial""azerty" '<-- nom feuille (activation style gras) + saut de ligne + nom fichier (désactivation style gras)color BLEU .RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8) End With If ActiveSheet.Cells.Font.Name = "Calibri" Then ActiveSheet.Cells.Font.Color = -16776961 Application.ScreenUpdating = True End If End Subpour les couleurs voir ce site ajouter &K devant pour obtenir ceci:
http://dmcritchie.mvps.org/excel/colors.htm
&K00FF00 -Vert
&K0000FF -Bleu
&KFFFF00 -Jaune
&K00FFFF -Cyan
&KFF00FF -Magenta
&K000000 -Noir
&KFFFFFF -Blanc
&KFF0000 -Rouge
Voilà, a toi de jouer!
@+ Le Pivert