Bonjour à tous,
J'utilise depuis un petit moment une macro me permettant d'imprimer une feuille Excel en incrémentant une cellule à chaque impression. J'aimerais compléter ma macro en imprimant également la feuille 2 de mon classeur, si possible en recto verso.
Cependant je n'arrive pas à trouver le bout de code à modifier pour résoudre mon problème. La cellule à incrémenter est uniquement sur la feuille 1.
Pouvez vous m'éclairez sur ce sujet, est-ce possible ? Si oui quelle est la fonction à modifier ? Par quoi ?
Je vous laisse ci dessous le bout de programme que j'utilise actuellement :
Merci d'avance pour vos réponses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Imprimer() Dim n As Variant 1 n = InputBox("Nombre de copies :", "Imprimer") If n = "" Then Exit Sub If Val(n) = 0 Then GoTo 1 Application.EnableEvents = False With ActiveSheet For n = 1 To Val(n) .[C5] = .[C5] + 1 Next .PrintOut End With Application.EnableEvents = True End Sub
Partager