Lorsque vous imprimez une feuille de calcul, vous pouvez demander à Excel d’inclure une variété d’éléments dans l’en-tête ou le pied de page de l’impression. L’un des éléments que vous pouvez inclure est le numéro de page de la page en cours d’impression. Ce numéro de page est assez banal – c’est la valeur arabe de la page en cours d’impression, comme dans 1, 2, 3, etc.

Certaines personnes peuvent aspirer à un moyen d’imprimer des lettres de page (A, B, C) au lieu de numéros de page (1, 2, 3). Il n’existe aucun moyen intrinsèque de le faire dans Excel. Vous pouvez cependant développer une macro qui déterminera la lettre à associer à une page, puis utiliser cette lettre dans le pied de page. La macro suivante fait exactement cela:

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = sArr(J)

' Print page(J)

.PrintOut From:=J, To:=J         Next J     End With End Sub

Tout d’abord, la macro calcule l’équivalent en lettres des numéros de pages et les met dans un tableau. Dans ce cas, jusqu’à 702 pages de lettres sont calculées, ce qui devrait être plus que suffisant pour n’importe quel travail d’impression. Les lettres sont de A à Z, puis de AA à AZ, de BA à BZ et tout le chemin jusqu’à ZA à ZZ.

Ensuite, iPages est défini sur le nombre de pages de la feuille de calcul. Enfin, chaque page est imprimée individuellement, la lettre de la page étant placée dans le pied de page central de la feuille de calcul. Si vous souhaitez que la lettre de page se trouve à un endroit différent, utilisez .LeftFooter ou .RightFooter au lieu de la propriété .CenterFooter. (Vous pouvez également utiliser .LeftHeader, .CenterHeader et .RightHeader, si vous le souhaitez.)

_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 (2126) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Changing_Page_Number_Format [Modification du format du numéro de page].