Madhabi souhaite imprimer quatre copies d’une feuille de calcul, mais la valeur de la cellule A7 change pour chaque copie. Les quatre valeurs sont « Original »,

«Dupliquer», «Fichier» et «Pilote». Toutes les autres données étant identiques, Madhabi se demande comment il peut modifier le texte de la cellule A7 lors de l’impression.

Une approche possible consiste à créer quatre feuilles de calcul différentes qui contiennent essentiellement les mêmes informations. Les feuilles de calcul 2 à 4 pourraient toutes faire référence aux cellules de la feuille de calcul 1, à l’exception de la cellule A7 qui pourrait être définie sur chaque feuille de calcul à une valeur différente (« Original »,

« Dupliquer », etc.).

Une meilleure approche, cependant, serait de créer une macro rapide que vous pourriez utiliser pour votre impression. La macro peut gérer la modification de la valeur de la cellule A7 juste avant l’impression de la feuille de calcul à chaque fois. Voici un exemple simple:

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

La macro place les quatre valeurs destinées à la cellule A7 dans un tableau. La macro parcourt ensuite chacun des quatre éléments du tableau, en plaçant la valeur dans la cellule A7, puis en imprimant la feuille de calcul. L’impression est effectuée sur n’importe quelle imprimante par défaut du système.

La macro pourrait facilement être affectée à une touche de raccourci ou à la barre d’outils d’accès rapide (comme décrit dans d’autres ExcelTips) afin que vous puissiez imprimer les quatre copies rapidement.

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