jeromear XLDnaute Junior 25 Mai 2010 #1 Bonjour le forum, Je cherche à faire une petite macro qui imprime une feuille un nombre n de fois. N étant le chiffre trouvé en "A1". Du style : Worksheets(1).Printout Copies:="A1", Collate:=True (évidement ce code ne marche pas ) Merci d'avance pour vos aides
Bonjour le forum, Je cherche à faire une petite macro qui imprime une feuille un nombre n de fois. N étant le chiffre trouvé en "A1". Du style : Worksheets(1).Printout Copies:="A1", Collate:=True (évidement ce code ne marche pas ) Merci d'avance pour vos aides
YANN-56 XLDnaute Barbatruc 25 Mai 2010 #2 Re : Imprimer n fois une feuille Bonsoir jeromear, et à ceux qui passeront par là. Tu pourrais écrire ceci: Code: Private Sub CommandButton1_Click() For i = 1 To ActiveSheet.Cells(1, 1).Value ActiveSheet.PrintOut Next i End Sub Amicalement Yann Vote positif 0 Vote négatif
Re : Imprimer n fois une feuille Bonsoir jeromear, et à ceux qui passeront par là. Tu pourrais écrire ceci: Code: Private Sub CommandButton1_Click() For i = 1 To ActiveSheet.Cells(1, 1).Value ActiveSheet.PrintOut Next i End Sub Amicalement Yann
Pierrot93 XLDnaute Barbatruc 25 Mai 2010 #3 Re : Imprimer n fois une feuille Bonsoir Jérome, Yann pour éviter la boucle : Code: Worksheets(1).Printout Copies:=Range("A1").Value, Collate:=True bonne soirée @+ Vote positif 0 Vote négatif
Re : Imprimer n fois une feuille Bonsoir Jérome, Yann pour éviter la boucle : Code: Worksheets(1).Printout Copies:=Range("A1").Value, Collate:=True bonne soirée @+
jeromear XLDnaute Junior 25 Mai 2010 #4 Re : Imprimer n fois une feuille Merci Pierrot et Yann, ca marche bien. Bonne soirée Vote positif 0 Vote négatif
YANN-56 XLDnaute Barbatruc 25 Mai 2010 #5 Re : Imprimer n fois une feuille Merci surtout à Pierrot. J'ai aussi appris quelque chose !!! Bonne soirée à vous. Yann Vote positif 0 Vote négatif
Re : Imprimer n fois une feuille Merci surtout à Pierrot. J'ai aussi appris quelque chose !!! Bonne soirée à vous. Yann
jeromear XLDnaute Junior 25 Mai 2010 #6 Re : Imprimer n fois une feuille re bonsoir Oups un petit soucis : si la valeur A1=0 (ne rien imprimer), ça ne marche pas! Vote positif 0 Vote négatif
Re : Imprimer n fois une feuille re bonsoir Oups un petit soucis : si la valeur A1=0 (ne rien imprimer), ça ne marche pas!
camarchepas XLDnaute Barbatruc 25 Mai 2010 #7 Re : Imprimer n fois une feuille Bonsoir, Ajoute juste un test : if val(Range("A1").Value) > 0 then Worksheets(1).Printout Copies:=Range("A1").Value, Collate:=True Vote positif 0 Vote négatif
Re : Imprimer n fois une feuille Bonsoir, Ajoute juste un test : if val(Range("A1").Value) > 0 then Worksheets(1).Printout Copies:=Range("A1").Value, Collate:=True
jeromear XLDnaute Junior 25 Mai 2010 #8 Re : Imprimer n fois une feuille Ouui c'était ça !! Mercibien camarchepas çamarchebien comme ça bonne soirée Vote positif 0 Vote négatif
Re : Imprimer n fois une feuille Ouui c'était ça !! Mercibien camarchepas çamarchebien comme ça bonne soirée