Tom essaie de créer un code macro qui contrôlera la quantité de copies à imprimer, en fonction de la valeur entrée dans une cellule. Il a créé un formulaire d’entrée pour son personnel d’expédition à utiliser pour imprimer les étiquettes de contenu de colis. Il aimerait pouvoir leur faire entrer dans la cellule B11 le nombre d’étiquettes à imprimer, puis faire imprimer ce nombre.

Cela est relativement facile à faire, selon ce que vous voulez faire imprimer. Si vous souhaitez imprimer uniquement le contenu de la feuille de calcul active, vous pouvez utiliser un code similaire au suivant:

iNumCopies = Range("B11").Value If iNumCopies < 1 Then iNumCopies = 1 ActiveSheet.PrintOut Copies:=iNumCopies

Si vous ne souhaitez pas imprimer la feuille de calcul entière, vous devez modifier un peu l’instruction PrintOut. Par exemple, l’exemple suivant suppose que le « label » à imprimer dans la plage A1: A5:

Set MyRange = Range("A1:A5")

iNumCopies = Range("B11").Value If iNumCopies < 1 Then iNumCopies = 1 MyRange.PrintOut Copies:=iNumCopies

_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 (3272) 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-Specifying_Print_Quantity_in_a_Cell [Spécification de la quantité d’impression dans une cellule].