Nombre de pages à imprimer

[erwanhavre]

Bonjour à tous j'aimerais un bout de code qui me permetrai d'imprimer un nombre de feuilles en fonction de la valeur d'une cellule pour mon cas la valeur en c10

Merci beaucoup

 

[Staple1600]

Bonsoir à tous

erwanhavre
1) Tu as essayé l'enregistreur de macros?*
2) Tu as fais des recherches dans les archives du forum ?

* Moi oui 😉
Macro1= résultat de l'enregistreur de macros

Sub Macro1()
ActiveSheet.PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
End Sub

D’où je déduis facilement que la modification est simple à faire 😉

Sub Macro2()
Dim Exemplaires
Exemplaires = Sheets(1).Range("C10").Value
ActiveSheet.PrintOut Copies:=Exemplaires, Collate:=True, IgnorePrintAreas:=False
End Sub

EDITION: Sauf que j'ai mal lu la question 🙁
Comment sait-on quelle feuilles il faut imprimer ?
Si ton classeur contient 10 feuilles et qu'en C10, on a la valeur 3
Il faut imprimer les 3 premières ou les 3 dernières ?
ou bien sont-ce les feuilles 1, 7 et 9 ?
Comment savoir ?

 

[erwanhavre]

Bonsoir à tous

erwanhavre
1) Tu as essayé l'enregistreur de macros?*
2) Tu as fais des recherches dans les archives du forum ?

* Moi oui 😉
Macro1= résultat de l'enregistreur de macros

Sub Macro1()
ActiveSheet.PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
End Sub

D’où je déduis facilement que la modification est simple à faire 😉

Sub Macro2()
Dim Exemplaires
Exemplaires = Sheets(1).Range("C10").Value
ActiveSheet.PrintOut Copies:=Exemplaires, Collate:=True, IgnorePrintAreas:=False
End Sub

J'utilise souvent l'enregistreur de macro pour créer le bout de code mais là c'est vrai que je n'ai pas pensé à le faire comme ça je teste et je vous redis merci

 

[erwanhavre]

alors je viens d'essayer et je n'en n'ai qu'une qui sort alors qu'en c10 j'ai bien 2
la page à imprimer est celle à l'affichage, faut t'il préciser un nom ?
la mise en page est déjà faite

 

[erwanhavre]

fichier en pj