erwanhavre
XLDnaute Occasionnel
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
Merci beaucoup
Sub Macro1()
ActiveSheet.PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
End Sub
Sub Macro2()
Dim Exemplaires
Exemplaires = Sheets(1).Range("C10").Value
ActiveSheet.PrintOut Copies:=Exemplaires, Collate:=True, IgnorePrintAreas:=False
End Sub
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
D’où je déduis facilement que la modification est simple à faireCode:Sub Macro1() ActiveSheet.PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False End Sub
VB:Sub Macro2() Dim Exemplaires Exemplaires = Sheets(1).Range("C10").Value ActiveSheet.PrintOut Copies:=Exemplaires, Collate:=True, IgnorePrintAreas:=False End Sub