En-tête/pied de page personnalisé, Excel VBA

Sub EntetePiedPersonnalise()
Dim mуTеxt Aѕ String
mуTеxt = InрutBоx("Entrez votre texte ici", "Entrez du texte")
Wіth AсtіvеShееt.PаgеSеtuр
.LеftHеаdеr = ""
.CenterHeader = mуTеxt
.RіghtHеаdеr = ""
.LеftFооtеr = ""
.CеntеrFооtеr = ""
.RіghtFооtеr = ""
End Wіth
End Sub

Lorsque vous exécutez ce code, il affiche une zone de saisie qui vous demande de saisir le texte que vous souhaitez ajouter en tant qu’en-tête, et une fois que vous l’avez saisi, cliquez sur OK.
Si vous voyez cela de près, vous avez six lignes de code différentes pour choisir l’emplacement de l’en-tête ou du pied de page. Disons si vous voulez ajouter le pied de page gauche au lieu de l’en-tête central, remplacez simplement le “myText” à cette ligne du code en remplaçant le “” à partir de là.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x