Clinton a un classeur contenant plus de 200 feuilles de travail qui sont remplies par diverses personnes dans son entreprise au cours du mois. À la fin du mois, il doit imprimer ces feuilles de calcul. Toutes les feuilles de calcul ne contiennent pas de données et Clinton veut uniquement imprimer les feuilles de calcul qui contiennent des données pour ne pas gaspiller de papier. Il se demande s’il y a, peut-être, une macro qu’il peut utiliser pour imprimer uniquement les feuilles de calcul qui ont une valeur dans la cellule G41.

La réponse est qu’une telle macro pourrait être écrite assez facilement. Il suffit de déterminer le nombre de feuilles de calcul, de vérifier la cellule G41 sur chacune d’elles, puis de n’imprimer que s’il y a quelque chose dans cette cellule.

La macro suivante effectue uniquement ces opérations.

Sub PrintMost()

Dim wks As Worksheet     For Each wks In ActiveWorkbook.Worksheets         If Not IsEmpty(wks.Range("G41")) Then             wks.PrintOut         End If     Next     Set wks = Nothing End Sub

La macro peut être facilement modifiée pour effectuer d’autres opérations, comme demander si une feuille de calcul donnée doit être imprimée ou demander combien de copies doivent être imprimées.

_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 (3502) 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-Printing_Only_Non-Blank_Worksheets [Impression uniquement de feuilles de travail non vierges].