Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Lorsque vous imprimez un fichier Excel, vous devrez peut-être insérer les numéros de page dans les pages pour rendre le fichier imprimé proprement et lisiblement. Dans cet article, je vais vous présenter quelques astuces pour insérer les numéros de page dans la cellule, l'en-tête ou le pied de page pour vous.

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

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

Insérer le numéro de page dans la cellule avec le code VBA

Supprimer tous les numéros de page à la fois dans Excel


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

Avec Kutools for Excel's Insérer des informations de classeur utilitaire, vous pouvez insérer rapidement 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 et les fils dans une cellule, en-tête ou pied de page selon vos besoins. Télécharger et gratuitement trail Kutools for Excel maintenant!

doc insérer les numéros de page 11-11

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


flèche bleue droite bulle Insérer le numéro de page dans l'en-tête / pied de page dans 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 En-tête et pied de page fonction, s'il vous plaît faire comme suit:

1. Accédez à la feuille de calcul dans laquelle vous souhaitez insérer les numéros de page dans l'en-tête ou le pied de page.

2. Puis clique insérer > En-tête et pied de pageet votre feuille de travail sera en Mise en page voir, voir capture d'écran:

doc insérer les numéros de page 1

3. Cliquez sur l'en-tête ou le pied de page où vous souhaitez insérer le numéro de page, puis sur Modèle onglet avec Outils d'en-tête et de bas de page est affiché dans le ruban, puis cliquez sur Modèle > Numéro de page, voir capture d'écran:

doc insérer les numéros de page 2

4. Et vous pouvez voir l'espace réservé &[Page] apparaît dans la section sélectionnée, puis cliquez n'importe où en dehors de la zone d'en-tête ou de bas de page pour afficher les numéros de page. Voir la capture d'écran:

doc insérer les numéros de page 3

5. Maintenant, vous pouvez revenir à la vue normale en cliquant Affichage > Ordinaireet lorsque vous imprimez cette feuille de calcul, vous verrez 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é.

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

doc insérer les numéros de page 4


flèche bleue droite bulle Insérer le 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, procédez comme suit:

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

doc insérer les numéros de page 5

2. Dans le Mise en page boîte de dialogue, s'il vous plaît cliquez En-tête / pied de page onglet, puis cliquez sur En-tête personnalisé or Pied de page personnalisé aller pour définir l'en-tête ou le pied de page que vous voulez, voir capture d'écran:

doc insérer les numéros de page 6

3. Et dans le En-tête or Pied de page boîte de dialogue, veuillez définir l'emplacement où les numéros de page sont insérés en cliquant à l'intérieur du Section gauche:, Section centrale:ou Section droite: boîte comme vous le souhaitez, puis cliquez sur Insérer un numéro de page icône et espace réservé &[Page] apparaît. Voir la capture d'écran:

doc insérer les numéros de page 7

Remarque: Entrez ceci & [Page] de & [Pages] dans la boîte de champ d'en-tête ou de pied de page si vous aimez les numéros de page affichés comme 1 de 45, 2 de 45 ...

4. Puis clique OK > OK pour fermer les boîtes de dialogue, lorsque vous imprimez ce classeur, dans l'aperçu avant impression, vous pouvez voir 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.


flèche bleue droite bulle Insérer le numéro de page dans la cellule avec le code VBA

Il est facile pour vous 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'existe aucun moyen direct de le faire. Le code VBA suivant peut 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 le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

3. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

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. Puis appuyez F5 clé pour exécuter ce code, et le numéro de page de cette cellule est affiché dans la cellule sélectionnée, voir capture d'écran:

doc insérer les numéros de page 8


flèche bleue droite bulle Supprimer tous les numéros de page à la 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 et accédez à Mise en page onglet sur le ruban, puis cliquez Bouton de lancement de boîte de dialogue icône dans le Mise en page groupe, voir capture d'écran:

doc insérer les numéros de page 9

2. Dans le Mise en page boîte de dialogue, cliquez sur En-tête / pied de page onglet, puis choisissez (Aucun) du En-tête or Pied de page liste déroulante, voir capture d'écran:

doc insérer les numéros de page 10

3. Puis clique OK bouton, tous les numéros de page sont supprimés du classeur à la fois.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Onyx LAI · 5 months ago
    May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
  • To post as a guest, your comment is unpublished.
    Onyx · 5 months ago
    May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
  • To post as a guest, your comment is unpublished.
    Wep Channel · 7 months ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    Made Made · 8 months ago
    Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
  • To post as a guest, your comment is unpublished.
    Jim · 1 years ago
    I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?