Jackie a demandé s’il y avait un moyen d’inclure des zéros non significatifs dans les numéros de page placés dans un pied de page. Elle a besoin que ses numéros de page comportent toujours cinq caractères, avec des zéros non significatifs, si nécessaire, pour compléter la longueur. Ainsi, les numéros de page seraient 00001, 00002, etc.

Excel ne fournit pas une très bonne mise en forme pour ses numéros de page. Une solution (peut-être la plus viable) consiste à imprimer chaque page de votre feuille de calcul, une à la fois, en changeant le numéro de page au fur et à mesure. Cette macro adopte cette approche:

Sub FormattedPageNums()

Dim iPages As Integer     Dim J As Integer     Dim sFormat As String

sFormat = "00000"

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



With ActiveSheet         For J = 1 To iPages             .PageSetup.CenterFooter = Format(J, sFormat)

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

La macro détecte le nombre de pages dans l’ensemble de l’impression, puis parcourt chaque page de cette impression. Avant d’imprimer chaque page, individuellement, la propriété .CenterFooter est définie comme égale à une chaîne formatée qui représente le numéro de page avec des zéros non significatifs.

Vous pouvez modifier la macro, comme vous le souhaitez, pour placer différentes informations dans le pied de page. Vous pouvez également modifier la zone du pied de page qui est modifiée en utilisant .LeftFooter ou .RightFooter au lieu de .CenterFooter.

_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 (3055) 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-Leading_Zeros_in_Page_Numbers [Les zéros non significatifs dans les numéros de page].