Eva imprime souvent des classeurs entiers à la fois. Quand elle le fait, elle imprime recto-verso pour économiser le papier. Toutefois, cela signifie parfois que la première page d’une feuille de calcul s’imprimera au verso de la dernière page de la feuille de calcul précédente. Eva se demande s’il existe un moyen de s’assurer qu’une feuille de calcul commence toujours à s’imprimer sur une nouvelle feuille de papier lors de l’impression recto verso de classeurs entiers.

Il existe une manière manuelle d’aborder cela et une méthode plus automatique. La méthode manuelle consiste à déterminer laquelle de vos feuilles de calcul nécessite un nombre impair de pages à imprimer, puis à forcer cette feuille de calcul à utiliser un nombre pair de pages. Une fois que vous avez identifié une telle feuille de calcul, tout ce que vous avez à faire est d’aller à la fin de cette feuille de calcul (juste en dessous de la dernière ligne) et d’insérer un saut de page. (Affichez l’onglet Mise en page du ruban et cliquez sur l’outil Sauts. Vous pouvez ensuite choisir Insérer un saut de page.)

La méthode automatique implique l’utilisation d’une macro pour imprimer votre classeur au lieu d’utiliser la commande Imprimer standard. La macro, par essence, imprime chaque feuille de calcul individuellement, l’une après l’autre. Ainsi, si vous avez 5 feuilles de calcul, la macro les imprime sous la forme de 5 travaux d’impression distincts.

Chacun commencera sur le devant d’une nouvelle page. Voici la macro:

Public Sub PrintAllSheets()

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets         wks.PrintOut     Next     Set wks = Nothing End Sub

Cette macro, comme indiqué, imprime toutes les feuilles de calcul dans le classeur. Si vous souhaitez imprimer un sous-ensemble des feuilles de calcul, vous pouvez modifier la macro pour imprimer uniquement les feuilles de calcul sélectionnées lorsque la macro est exécutée.

Sub PrintSomePages()

Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets         wks.PrintOut     Next     Set wks = Nothing End Sub

L’une ou l’autre de ces macros (ou les deux) pourrait facilement être ajoutée à votre barre d’outils d’accès rapide afin que vous puissiez imprimer exactement ce que vous voulez (tout ou partie)

d’un simple clic sur un bouton.

_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 (1984) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.