Userform pour créer un entête personalisé à la feuille de calcul.

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 !

Broch002

XLDnaute Occasionnel
Bonjour, le Forum.
Je cherche à créer une macro pour permettre à des utilisateurs profanes de pouvoir créer un entête personnalisé sur une feuille de calcul.
Le texte doit être renseigné via un userform et se situer dans la partie centrale en haut de la feuille à l'impression. La police et la taille des caractères devant être calibri corp et 36.
Cette fonction permettant aux utilisateurs de personnaliser leur feuille de Calcul simplement.
Je l'ai tenté via l'enregistreur de macro, mais cela ne fonctionne pas.
Je joins une feuille test, montrant le résultat.

Merci d'avance
 

Pièces jointes

Re : Userform pour créer un entête personalisé à la feuille de calcul.

Salut broch002,

Essaye avec ça sans userform, direct en appelant une macro :

Application.PrintCommunication = False
ActiveSheet.PageSetup.CenterHeader = "&""Calibri""&36 " & InputBox("titre?")
Application.PrintCommunication = True
 
Re : Userform pour créer un entête personalisé à la feuille de calcul.

Bonjour Borch, Bonjour Nairolf,

Visiblement "Application.PrintCommunication" n'existe qu'à partir d'Excel 2010, ne marchera donc pas en 2007, mais je te remercie de m'avoir fait découvrir une nouvelle commande 😉
 
Re : Userform pour créer un entête personalisé à la feuille de calcul.

Salut broch002,

Essaye avec ça sans userform, direct en appelant une macro :

Application.PrintCommunication = False
ActiveSheet.PageSetup.CenterHeader = "&""Calibri""&36 " & InputBox("titre?")
Application.PrintCommunication = True

Bonjour,

En ne prenant que:
ActiveSheet.PageSetup.CenterHeader = "&""Calibri""&36 " & InputBox("titre?")
inclus dans ma macro cela fonctionne parfaitement.
Merci pour votre collaboration.

Broch002
 
- 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

Retour