Accéder au contenu principal

Comment insérer une valeur de cellule dans l'en-tête/pied de page dans Excel ?

Author: Xiaoyang Last Modified: 2025-05-27

Nous pouvons facilement insérer un en-tête ou un pied de page contenant le chemin du fichier, le nom du fichier, la date actuelle ou d'autres informations grâce à la fonctionnalité d'Excel, mais parfois, nous souhaitons utiliser une valeur de cellule comme en-tête ou pied de page dans Excel. Comment pouvons-nous insérer le contenu d'une cellule dans l'en-tête ou le pied de page du classeur ?

Insérer une valeur de cellule dans l'en-tête ou le pied de page d'une feuille de calcul avec un code VBA

Insérer une valeur de cellule dans l'en-tête ou le pied de page de toutes les feuilles de calcul avec un code VBA

Insérer des informations sur le fichier dans l'en-tête/pied de page avec Kutools pour Excel good idea3


Insérer une valeur de cellule dans l'en-tête ou le pied de page d'une feuille de calcul avec un code VBA

Si vous souhaitez placer le contenu d'une cellule dans l'en-tête ou le pied de page de la feuille de calcul active, le code VBA suivant peut vous aider. Suivez ces étapes :

1. Activez votre feuille de calcul où vous souhaitez insérer un en-tête ou un pied de page avec une valeur de cellule, puis maintenez les touches ALT + F11 enfoncées, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : insérer une valeur de cellule spécifiée dans l'en-tête d'une feuille de calcul

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une cellule dont vous souhaitez insérer le contenu dans l'en-tête.Dialog for selecting a cell that you want to put its content into the header

4. Puis cliquez sur OK, cette valeur de cellule spécifiée a été insérée dans l'en-tête gauche de la feuille de calcul actuelle. Vous pouvez afficher l'en-tête en cliquant sur Fichier > Imprimer. Voir capture d'écran :
The cell value is inserted to header

Remarques :

1. Si vous souhaitez utiliser le contenu de la cellule comme pied de page de la feuille de calcul active, vous pouvez appliquer ce code :

Code VBA : insérer une valeur de cellule spécifiée dans le pied de page d'une feuille de calcul

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. Vous pouvez également appliquer les codes ci-dessus pour insérer une valeur de cellule dans l'en-tête/pied de page droit ou central, remplacez simplement GaucheEnTete / GauchePiedDePage par DroitEnTete / DroitPiedDePage ou CentreEnTete / CentrePiedDePage dans les codes.


Insérer une valeur de cellule dans l'en-tête ou le pied de page de toutes les feuilles de calcul avec un code VBA

Parfois, vous souhaitez insérer un en-tête ou un pied de page avec le contenu d'une cellule sélectionnée dans toutes les feuilles de calcul de votre classeur ouvert. Avec le code ci-dessus, vous devrez répéter cela plusieurs fois. Dans ce cas, le code VBA suivant peut ajouter le contenu de la cellule à l'en-tête ou au pied de page de tout le classeur en une seule fois.

1. Activez votre classeur où vous souhaitez insérer un en-tête ou un pied de page avec une valeur de cellule, puis maintenez les touches ALT + F11 enfoncées, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : insérer une valeur de cellule spécifiée dans le pied de page de toutes les feuilles de calcul

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une cellule dont vous souhaitez insérer le contenu dans le pied de page de tout le classeur.

Dialog for selecting a cell that you want to put its content into the footer

4. Puis cliquez sur OK, cette valeur de cellule sélectionnée a été ajoutée à tous les pieds de page gauches des feuilles de calcul. Vous pouvez afficher le pied de page en cliquant sur Fichier > Imprimer. Voir capture d'écran :

The cell value is inserted to footer

Remarques :

1. Si vous souhaitez utiliser le contenu de la cellule comme en-tête de tout le classeur, vous pouvez appliquer ce code :

Code VBA : insérer une valeur de cellule spécifiée dans l'en-tête de toutes les feuilles de calcul

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Remplacez DroitEnTete/PiedDePage ou CentreEnTete/PiedDePage par GaucheEnTete/PiedDePage dans les codes ci-dessus si vous souhaitez positionner différemment votre en-tête ou pied de page.


Insérer des informations sur le fichier dans l'en-tête/pied de page avec Kutools pour Excel

Si vous souhaitez insérer des informations sur le fichier dans l'en-tête ou le pied de page, telles que le nom de la feuille de calcul/classeur, le chemin du classeur, etc., vous pouvez utiliser l'utilitaire Insérer les informations du classeur de Kutools pour Excel si vous avez installé Kutools pour Excel.

Kutools pour Excel propose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, augmentant ainsi la créativité et l'efficacité. Intégré à des capacités d'IA, Kutools automatise les tâches avec précision, rendant la gestion des données facile et sans effort. Informations détaillées sur Kutools pour Excel...  Essai gratuit...

Après avoir installé gratuitement Kutools pour Excel, veuillez procéder comme suit :

1. Cliquez sur Kutools Plus > Classeur > Insérer les informations du classeur. Voir capture d'écran :
Insert Workbook Information option on the Kutools tab on the ribbon

2. Dans la boîte de dialogue Insérer les informations du classeur, cochez les informations que vous souhaitez insérer sous la section Informations, et cochez En-tête ou Pied de page selon vos préférences.

Astuce : vous pouvez insérer les informations à trois emplacements de l'en-tête ou du pied de page : centre, gauche ou droite.
Insert Workbook Information dialog

3. Cliquez sur Ok. Ensuite, vous pouvez aller dans Affichage > Mise en page pour afficher l'en-tête.
Header with file info inserted

Avec Insérer les informations du classeur, vous pouvez également insérer des informations sur le fichier dans une cellule ou une plage de cellules. Cliquez ici pour en savoir plus sur cet utilitaire.

Démo : Insérer des informations sur le classeur dans une cellule/en-tête/pied de page

Kutools pour Excel : Plus de 300 outils pratiques à portée de main ! Profitez de fonctionnalités IA définitivement gratuites ! Télécharger maintenant !

Astuce. Si vous souhaitez rapidement diviser un classeur en plusieurs classeurs/fichiers PDF ou fichiers CSV séparément, essayez d'utiliser Diviser le classeur de Kutools pour Excel comme illustré dans la capture d'écran suivante. Il est entièrement fonctionnel sans limitation pendant 30 jours, veuillez télécharger et essayer gratuitement maintenant.

doc split workbook

Articles connexes :

Comment insérer un nom de fichier ou un chemin dans une cellule / un en-tête ou un pied de page dans Excel ?

Comment insérer et supprimer un en-tête, un pied de page et une image d'en-tête dans Excel ?

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 ensembles d'outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   50+ types de graphiques (Diagramme de Gantt, ...)   |   40+ formules pratiques (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils d'insertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail

  • Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !