Imprimer n fois une feuille

[jeromear]

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]

Re : Imprimer n fois une feuille

Bonsoir jeromear, et à ceux qui passeront par là.

Tu pourrais écrire ceci:

Private Sub CommandButton1_Click()
For i = 1 To ActiveSheet.Cells(1, 1).Value
ActiveSheet.PrintOut
Next i
End Sub

Amicalement

Yann

 

[Pierrot93]

Re : Imprimer n fois une feuille

Bonsoir Jérome, Yann

pour éviter la boucle :

Worksheets(1).Printout Copies:=Range("A1").Value, Collate:=True

bonne soirée
@+

 

[jeromear]

Re : Imprimer n fois une feuille

Merci Pierrot et Yann, ca marche bien.
Bonne soirée

 

[YANN-56]

Re : Imprimer n fois une feuille

Merci surtout à Pierrot.

J'ai aussi appris quelque chose !!!

Bonne soirée à vous.

Yann

 

[jeromear]

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]

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]

Re : Imprimer n fois une feuille

Ouui c'était ça !!
Mercibien camarchepas çamarchebien comme ça
bonne soirée