Microsoft 365 Changement Police entête VBA

[Moreno076]

Bonjour à tous,

Je souhaiterais pouvoir rajouter une police à la macro ci-dessous mais je n'y arrive pas

Sub ChgFormatDate()
ActiveSheet.PageSetup.CenterHeader = "Suivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
End Sub

Je voudrais cette police. Que faut-il rajouter? Merci

 

[sylvanu]

Bonjour Moreno,
Avec l'enregistreur de macro, et la macro un peu simplifiée et bidouillée, on arrive à ce code qaui semble donner de bons résultats. A tester.

Sub TestEntete()
    With ActiveSheet.PageSetup
        .CenterHeader = "&""Arial,Gras""&26&K06-024ESSAI"
    End With
End Sub

 

[Moreno076]

Bonjour Sylvanu.

Sub ChgFormatDate()
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Gras""&26&K06-024Suivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
End With
End Sub

J'ai modifié en fonction de mon besoin et ça fonctionne merci bien par contre je cherche à modifier la couleur je pensais que c 'était le K06-024 à modifier mais non je voudrais le vert comme sur l image j'ai cherché à quoi cela correspond mais je ne trouve pas merci à toi

 

[sylvanu]

Re,
J'ai fait quelques test :
En rouge, ça fait :CenterHeader = "&""Arial,Gras""&26&KFF0000ESSAI" or Rouge c'est FF0000
En Bleu, ça fait : CenterHeader = "&""Arial,Gras""&26&K0000FFESSAI" or Bleu c'est 0000FF

Comme votre vert doit être du genre RGB(117,146,60), ça devrait faire :
CenterHeader = "&""Arial,Gras""&26&K75923CESSAI"

Le K06-024 doit être le N° de couleur dans la palette.
A tester.

 

[Moreno076]

Apparemment

mais comment tu fais pour transformer? Merci

 

[jmfmarques]

Bonjour
Tout (et beaucoup plus) est dit là :

Mise en forme et codes VBA pour les en-têtes et pieds de page

Référence de langage VBA pour Office

docs.microsoft.com

 

[Moreno076]

Re,
J'ai fait quelques test :
En rouge, ça fait :CenterHeader = "&""Arial,Gras""&26&KFF0000ESSAI" or Rouge c'est FF0000
En Bleu, ça fait : CenterHeader = "&""Arial,Gras""&26&K0000FFESSAI" or Bleu c'est 0000FF

Comme votre vert doit être du genre RGB(117,146,60), ça devrait faire :
CenterHeader = "&""Arial,Gras""&26&K75923CESSAI"

Le K06-024 doit être le N° de couleur dans la palette.
A tester.

C'est parfait la couleur sur le post est en fait pas celle que je voulais mais en apercçu fichier c est bon. Super merci