VBA en-tête format

Bonjour à tous,

J'aimerais mettre en forme la valeur de mon en tète à droite de cette manière :

Police = "Calibri" Style = "Gras" Taille = "36"

J'ai testé ce code mais rien ne va (toute la valeur de ma cellule n'est pas copié; la taille est immense)

Sub Date_En_tête()

With SH_reporting.PageSetup
VEntete = SH_Ref.Range("Ref_Cell_Dernière_Date_Donnees_Actions").Value
.RightHeader = "&""Gras""&21" & VEntete
End With

End Sub

Quelqu'un pourrait-il m'aider ?

EDIT Modo : mis code entre balises. Merci de faire attention pour vos prochaines demandes

Bonjour,

Pensez à utiliser les balises de codes disponibles dans le menu en cliquant sur l'icone </>.
J'ai corrigé dans votre post

Je n'ai pas bien saisi votre demande...

Vous avez une entête (variable Ventete) et vous voulez mettre une police et le gras sur la partie de droite ?
Si oui combien de caractères sont concernés ?

Crdlt

Merci pour votre correction.

Oui j'ai une variable Ventete qui est une date "17/11/2023" et je souhaite mettre cette date avec le format susmentionné

*au niveau de l'en-tête droit

Ok. La date est toujours placée à droite ?
Eventuellement vous pourriez me montrer un exemple de texte complet ?

Ventete est un "Range" donc il y a plusieurs cellules à faire, je suppose

NB : si vous voulez éditer un post, vous disposez du petit crayon en haut à droite de votre post pour le modifier

La date se trouve dans une cellule qui sera toujours la même.

Je cherche un code qui met toujours à droite en en-tête cette date au format que je souhaite.

Je ne comprends pas quand vous demandez un exemple de texte ...?

Essayez comme ceci

Sub Date_En_tête()
Dim ventete As Date

With SH_reporting.PageSetup
    ventete = SH_Ref.Range("Ref_Cell_Dernière_Date_Donnees_Actions").Value
    .RightHeader = "&""Calibri,Bold""&36 " & Format(ventete, "dd/mm/yyyy")
End With
End Sub

Si ok et terminé, pensez à

Crdlt

C'est parfait merci beaucoup