VBA et format de texte en pied de page

  • Initiateur de la discussion Initiateur de la discussion Amilo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Amilo

XLDnaute Accro
Bonjour le forum,

J'utilise le code suivant pour indiquer automatiquement un texte et le nom de l'utilisateur en pied de page dans un fichier Excel,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "BlaBla" & Application.UserName
End Sub


Par contre, je souhaite mettre en forme ce texte et le nom de l'utilisateur (police et la taille) soit l'ensemble de mon pied de page de gauche :

J'ai pensé à un code du type ci-dessous mais sans réussite :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "BlaBla" & Application.UserName
.Font.Name = “Times New Roman”
.Seize = 12
End With
End Sub


Merci d'avance pour votre soutien

Cordialement
 
Dernière édition:
Re : VBA et format de texte en pied de page

Bonjour,
Non, comme ça c'est pas possible...
Code:
With ActiveSheet.PageSetup
    .LeftFooter = "&""Times New Roman""&G&12Blablabla " & Application.UserName
End With
...F1 pour connaitre les codes de mise en forme pour les en-têtes et les pieds de page

Edit : Salut Pierrot 🙂

A+
kjin
 
Re : VBA et format de texte en pied de page

Bonjour Pierrot93, Kjin,

j'ai testé les 2 solutions et ça fonctionne trés bien,

Merci Pierrot93 d'avoir intégrer l'option "texte en gras" dans le code, c'est tout bête et bon savoir,

Merci encore à vous 2,

Bonne journée à toutes et à tous

Cordialement
 
Re : VBA et format de texte en pied de page

Oups,

Désolé Kjin,

j'ai remarqué après coup que les 2 codes étaient quasiment identiques mais j'avoue que ce détail m'avait échappé,

Pas évident pour un débutant de faire la différence...

Merci d'avoir mis le doigt dessus...c'est une bonne façon d'apprendre et de comprendre toutes les possibilités.

Cordialement
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
163
Réponses
3
Affichages
673
Retour