Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment insérer un numéro de page dans une cellule / en-tête / pied de page dans Excel ?

Author Xiaoyang Last modified

Lorsque vous imprimez un fichier Excel, vous pourriez avoir besoin d'insérer les numéros de page dans les pages pour rendre le fichier imprimé bien organisé et lisible. Dans cet article, je vais vous présenter quelques astuces rapides pour insérer les numéros de page dans une cellule, un en-tête ou un pied de page.

Insérer un numéro de page dans l'en-tête / pied de page d'une feuille de calcul

Insérer un numéro de page dans l'en-tête / pied de page sur plusieurs feuilles de calcul

Insérer un numéro de page dans une cellule avec du code VBA

Supprimer tous les numéros de page en une seule fois dans Excel


Insérer un numéro de page dans l'en-tête / pied de page d'une feuille de calcul

Normalement, nous pouvons insérer rapidement les numéros de page dans l'en-tête ou le pied de page en utilisant la fonction En-tête et Pied de page, veuillez procéder comme suit :

1. Allez dans la feuille de calcul où vous souhaitez insérer les numéros de page dans l'en-tête ou le pied de page.

2. Cliquez ensuite sur Insérer > En-tête et Pied de page, et votre feuille de calcul passera en mode Page Layout, voir capture d'écran :

a screenshot showing how to enable the Header & Footer in worksheet

3. Cliquez sur l'en-tête ou le pied de page où vous souhaitez insérer le numéro de page, puis un onglet Design avec des outils En-tête et Pied de page apparaîtra dans le Ruban, cliquez ensuite sur Design > Numéro de page, voir capture d'écran :

a screenshot of inserting page number into the header or footer

4. Vous verrez alors le placeholder &[Page] apparaître dans la section sélectionnée, puis cliquez n'importe où en dehors de la zone d'en-tête ou de pied de page pour afficher les numéros de page. Voir capture d'écran :

a screenshot showing the page number in the header or footer

5. Maintenant, vous pouvez revenir à la vue normale en cliquant sur Affichage > Normal, et lorsque vous imprimerez cette feuille de calcul, vous verrez que les numéros de page ont été insérés dans l'en-tête ou le pied de page que vous avez sélectionné.

Remarque : Si vous souhaitez que les numéros de page s'affichent au format 1 sur 15, 2 sur 15, il vous suffit de saisir directement &[Page] sur &[Pages] dans le champ d'en-tête ou de pied de page, voir capture d'écran :

a screenshot showing the page number as page of pages format in the header or footer


Insérer le nom de la feuille / le nom du fichier / la date de création / la date de modification ... dans l'en-tête / pied de page / cellule :

Avec l'utilitaire Insertion d'informations du classeur de Kutools for Excel, vous pouvez rapidement insérer le nom de la feuille, le nom du fichier, le chemin et le nom du fichier, la date de création, la date de modification, etc., dans une cellule, un en-tête ou un pied de page selon vos besoins. Téléchargez et essayez gratuitement Kutools for Excel maintenant !

a screenshot showing how to easily insert workbook information into cell, header, footer...

Kutools for Excel : plus de 300 compléments Excel pratiques, gratuits à essayer sans limitation pendant 30 jours. Téléchargez et essayez gratuitement dès maintenant !


Insérer un numéro de page dans l'en-tête / pied de page sur plusieurs feuilles de calcul

La méthode ci-dessus peut vous aider à insérer les numéros de page dans une feuille de calcul. Si vous souhaitez insérer les numéros de page dans toutes les feuilles de calcul du classeur pour que toutes les pages soient numérotées dans l'ordre séquentiel, procédez comme suit :

1. Sélectionnez tous les onglets de feuille, puis accédez à l'onglet Mise en page, et cliquez sur l'icône Lanceur de boîte de dialogue dans le groupe Mise en page, voir capture d'écran :

a screenshot of opening the Page Setup dialog box

2. Dans la boîte de dialogue Mise en page, cliquez sur l'onglet En-tête/Pied de page, puis cliquez sur En-tête personnalisé ou Pied de page personnalisé pour définir l'en-tête ou le pied de page souhaité, voir capture d'écran :

a screenshot of clicking the Custom Header or Custom Footer button as you need

3. Et dans la boîte de dialogue En-tête ou Pied de page, définissez l'emplacement où les numéros de page doivent être insérés en cliquant dans la zone Section gauche :, Section centrale : ou Section droite : selon vos besoins, puis cliquez sur l'icône Insérer le numéro de page, et le placeholder &[Page] apparaît. Voir capture d'écran :

a screenshot of inserting page number to the location you need

Remarque : Saisissez &[Page] sur &[Pages] dans le champ d'en-tête ou de pied de page si vous souhaitez que les numéros de page s'affichent sous la forme 1 sur 45, 2 sur 45…

4. Cliquez ensuite sur OK > OK pour fermer les boîtes de dialogue. Lorsque vous imprimez ce classeur, dans l'aperçu avant impression, vous pouvez voir que tous les numéros de page sont insérés dans l'en-tête ou le pied de page dans l'ordre séquentiel.


Insérer un numéro de page dans une cellule avec du code VBA

Il est facile d'insérer les numéros de page dans l'en-tête ou le pied de page, mais si vous devez insérer les numéros de page dans une cellule de feuille de calcul, il n'y a pas de méthode directe pour le faire. Le code VBA suivant pourrait vous aider à résoudre ce problème.

1. Cliquez sur une cellule où vous souhaitez afficher le numéro de page de cette cellule.

2. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : Insérer le numéro de page actuel dans une cellule :

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter ce code, et le numéro de page de cette cellule s'affiche dans la cellule sélectionnée, voir capture d'écran :

a screenshot showing the page number in a cell after running the VBA code


Supprimer tous les numéros de page en une seule fois dans Excel

Pour supprimer tous les numéros de page, vous pouvez appliquer les étapes suivantes :

1. Sélectionnez tous les onglets de feuille, puis accédez à l'onglet Mise en page dans le ruban, puis cliquez sur l'icône Lanceur de boîte de dialogue dans le groupe Mise en page, voir capture d'écran :

a screenshot showing how to open the Page Setup dialog box

2. Dans la boîte de dialogue Mise en page, cliquez sur l'onglet En-tête/Pied de page, puis choisissez (aucun) dans la liste déroulante En-tête ou Pied de page, voir capture d'écran :

a screenshot of removing all page numbers at once from header or footer

3. Cliquez ensuite sur le bouton OK, et tous les numéros de page sont supprimés du classeur en une seule fois.


Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionnez l'analyse de données avec : Exécution intelligente | Générer du code | Créer des formules personnalisées | Analyser des données et générer des graphiques | Appeler les Fonctions améliorées de Kutools
Fonctionnalités populaires : Trouver, mettre en évidence ou marquer les doublons | Supprimer les lignes vides | Combinez les colonnes ou les cellules sans perte de données | Arrondir sans formule...
Super RECHERCHEV : Recherche multi-critères | Recherche multi-valeurs | 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 à sélection multiple...
Gestionnaire de colonnes : Ajouter un nombre spécifique de Colonnes | Déplacer des Colonnes | Alterner l’état de visibilité des Colonnes masquées | Comparer des plages & Colonnes...
Fonctionnalités phares : Mise au point de la grille | Affichage de conception | Barre de formule améliorée | Gestionnaire de Classeur & Feuille de calcul | Bibliothèque d’AutoTexte | Sélecteur de date | Merge Worksheets | Chiffrer/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 des ensembles d’outils :12 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 bien plus encore
Utilisez Kutools dans la langue de votre choix – disponible en Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres !

Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !

Tous les modules complémentaires Kutools. Une seule installation

La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un installateur, une licence — installation en quelques minutes (compatible MSI)
  • Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
  • Essai complet30 jours — sans inscription, ni carte bancaire
  • Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels