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 DESIGN onglet avec Outils d'en-tête et de bas de page est affiché dans le ruban, puis cliquez sur DESIGN > 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 afficher > 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

Veuillez noter que : 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.


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture 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é de 50% et réduit le nombre de clics de souris pour vous chaque jour!
fond officetab

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 · 1 years 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 · 1 years 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 · 1 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    Made Made · 1 years 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 · 2 years ago
    I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
  • To post as a guest, your comment is unpublished.
    Antoinette Anderson · 3 years ago
    Hello

    I used the Insert page number into cell with VBA code above and it works a charm.
    My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across).
    I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35.
    Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :(

    Assistance would be hugely appreciated!

    Antoinette