Wendy veut inclure les numéros de page dans l’en-tête de sa feuille de calcul imprimée, mais avec une torsion – Page 21A à la page 1, Page 21B à la page 2, Page 21C à la page 3, etc. Elle se demande comment procéder pour créer une telle numérotation de page schème.

Il existe plusieurs façons de résoudre ce problème, toutes impliquant l’utilisation de macros. Si vous souhaitez réellement imprimer toutes les feuilles de calcul du classeur actuel et qu’aucune de ces feuilles de calcul ne dépasse une seule page (une fois imprimée), la macro suivante définira la section centrale de l’en-tête comme demandé:

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

Notez que la macro n’imprime rien; tout ce qu’il fait est de changer les informations d’en-tête. Si vous voulez vraiment imprimer uniquement la feuille de calcul actuelle et que cette feuille de calcul nécessitera plusieurs pages sur l’impression, alors ce qui suit devrait fonctionner correctement:

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

Cette macro calcule les pages en fonction de la position des sauts de page horizontaux (HPageBreaks) et verticaux (VPageBreaks) sur l’impression.

Vous pouvez également essayer de travailler simplement avec la collection Pages, de cette manière:

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

Vous devez noter que quelle que soit l’approche choisie, vous rencontrerez des problèmes si l’impression nécessite plus de 26 pages.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (12548) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.