Henry aimerait qu’une cellule contienne un nombre qui s’incrémente chaque fois qu’une copie de la feuille de calcul est imprimée. Ainsi, si la cellule contient le numéro 9 et qu’il imprime 13 copies de la feuille de calcul, chaque copie contiendra, dans cette cellule, les numéros 9, 10, 11 et jusqu’à 21.

Cela, comme vous pouvez le deviner, est mieux fait avec une macro. Tout ce qui doit être fait est d’imprimer la feuille de calcul autant de fois que vous le souhaitez, en incrémentant la valeur de la cellule après chaque impression. Dans ce cas, je vais supposer que la cellule à incrémenter est B7. La macro suivante gérera le processus:

Sub PrintNumberedCopies()

Dim iCopies As Integer     Dim J As Integer     Dim r As Range

' Specify the cell to modify     Set r = Range("B7")



' Get the number of copies.

iCopies = Val(InputBox("Number of copies to print:"))



If iCopies > 0 Then         ' Loop iCopies times, printing once per loop         For J = 1 to iCopies             ActiveSheet.PrintOut             r.Value = r.Value + 1         Next J     End If End Sub

Notez que la macro demande à l’utilisateur le nombre de copies à imprimer, puis elle procède à l’impression de chacune d’entre elles individuellement. Après chaque impression, il incrémente la valeur stockée dans la cellule B7. Si l’utilisateur entre quelque chose qui ne se traduit pas par un certain nombre de copies, rien n’est imprimé.

N’oubliez pas que si vous souhaitez que le numéro de valeur dans B7 soit toujours à jour, vous devrez enregistrer le classeur quelque temps après votre dernière impression. En outre, si vous imprimez en utilisant une méthode autre que cette macro, la valeur dans B7 ne reflètera pas le nombre de copies réelles 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 (12135) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.