Comment insérer une valeur de cellule dans l'en-tête/pied de page dans Excel ?
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 des informations sur le fichier dans l'en-tête/pied de page avec Kutools pour Excel
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.
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 :
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.
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 :
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.
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 :
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.
3. Cliquez sur Ok. Ensuite, vous pouvez aller dans Affichage > Mise en page pour afficher l'en-tête.
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

Articles connexes :
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
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 !