Excel comprend une fonction de feuille de calcul (ROMAN) qui vous permet de convertir des nombres arabes en chiffres romains. Vous vous demandez peut-être s’il existe une telle fonction qui vous permet d’imprimer des chiffres romains sous forme de numéros de page sur une impression.

Il n’y a pas de fonctionnalité intégrée qui vous permet de le faire, mais vous pouvez créer une macro qui fera l’affaire. Considérez la macro suivante:

Sub RomanPageNums()

Dim iPages As Integer     Dim J As Integer

' 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 = _               Application.WorksheetFunction.Roman(J)

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

Cette macro détermine d’abord le nombre de pages de votre impression et attribue la valeur à la variable iPages. Il parcourt ensuite chaque page, en modifiant le numéro de page dans la partie centrale du pied de page avant d’imprimer chaque page. Le numéro de page est défini en convertissant le numéro de page actuel (J) en chiffre romain à l’aide de la fonction de feuille de calcul ROMAN.

Si vous souhaitez que les chiffres romains apparaissent dans d’autres parties du pied de page, vous pouvez remplacer la propriété .CenterFooter par .LeftFooter ou .RightFooter. Vous pouvez également utiliser .LeftHeader, .CenterHeader ou .RightHeader, si vous le souhaitez.

Le code de la macro RomanPageNums fonctionne dans toutes les versions récentes d’Excel. Si vous utilisez Excel 2000 ou supérieur, vous pouvez également remplacer la ligne réelle qui définit le pied de page par le code suivant:

.PageSetup.CenterFooter = Application.Roman(J)

_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 (2518) 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:

lien: / excelribbon-Roman_Numerals_for_Page_Numbers [Chiffres romains pour les numéros de page].