Bon je vais r=E9expliquer mon probl=E8me, j'ai mont=E9 une=20
feuille excel avec du texte et des calculs (feuille excel=20
ben standard ok) Je veux que, lorsque je lance une=20
impression , fichier,imprimer, et dans la case nombres de=20
copies, si je met 400 copies (j'ai toujours juste une=20
feuille excel a faire imprimer 400 fois) et bien je veux=20
voir sur chacune de mes feuilles un num=E9ro allant de 1 =E0=20
400. Y'a-t-il quelqu'un d'assez sp=E9cialiste pour m'aider.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Bonsoir, Tu peux t'inspirer de cette macro ! ======== Imprime un nombre définit de formulaires et incrémente le numéro du formulaire.
Sub ImprimFormulaire() Dim CellPara Range("A2") = Application.InputBox(prompt:="Taper le nombre de copies que vous désirez.", Type:=1) For CellPara = 1 To Range("A2") Range("E13").Value = Range("E13").Value + 1 ActiveSheet.PageSetup.PrintArea = "$A$5:$I$24" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Sub Modifie la zone d'impression "$A$5:$I$24" et les cellules A2(le Nb d'impression) et E13 (Le numero)comme tu le désires http://dj.joss.free.fr/imprim.htm
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"amelia" a écrit dans le message de news: 24a6601c45f8e$f8df3930$ Bon je vais réexpliquer mon problème, j'ai monté une feuille excel avec du texte et des calculs (feuille excel ben standard ok) Je veux que, lorsque je lance une impression , fichier,imprimer, et dans la case nombres de copies, si je met 400 copies (j'ai toujours juste une feuille excel a faire imprimer 400 fois) et bien je veux voir sur chacune de mes feuilles un numéro allant de 1 à 400. Y'a-t-il quelqu'un d'assez spécialiste pour m'aider.
merci a tous
Bonsoir,
Tu peux t'inspirer de cette macro !
======== Imprime un nombre définit de formulaires et incrémente le numéro du formulaire.
Sub ImprimFormulaire()
Dim CellPara
Range("A2") = Application.InputBox(prompt:="Taper le nombre de copies que vous désirez.", Type:=1)
For CellPara = 1 To Range("A2")
Range("E13").Value = Range("E13").Value + 1
ActiveSheet.PageSetup.PrintArea = "$A$5:$I$24"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
Modifie la zone d'impression "$A$5:$I$24"
et les cellules A2(le Nb d'impression) et E13 (Le numero)comme tu le désires
http://dj.joss.free.fr/imprim.htm
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"amelia" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
24a6601c45f8e$f8df3930$a401280a@phx.gbl...
Bon je vais réexpliquer mon problème, j'ai monté une
feuille excel avec du texte et des calculs (feuille excel
ben standard ok) Je veux que, lorsque je lance une
impression , fichier,imprimer, et dans la case nombres de
copies, si je met 400 copies (j'ai toujours juste une
feuille excel a faire imprimer 400 fois) et bien je veux
voir sur chacune de mes feuilles un numéro allant de 1 à
400. Y'a-t-il quelqu'un d'assez spécialiste pour m'aider.
Bonsoir, Tu peux t'inspirer de cette macro ! ======== Imprime un nombre définit de formulaires et incrémente le numéro du formulaire.
Sub ImprimFormulaire() Dim CellPara Range("A2") = Application.InputBox(prompt:="Taper le nombre de copies que vous désirez.", Type:=1) For CellPara = 1 To Range("A2") Range("E13").Value = Range("E13").Value + 1 ActiveSheet.PageSetup.PrintArea = "$A$5:$I$24" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Sub Modifie la zone d'impression "$A$5:$I$24" et les cellules A2(le Nb d'impression) et E13 (Le numero)comme tu le désires http://dj.joss.free.fr/imprim.htm
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"amelia" a écrit dans le message de news: 24a6601c45f8e$f8df3930$ Bon je vais réexpliquer mon problème, j'ai monté une feuille excel avec du texte et des calculs (feuille excel ben standard ok) Je veux que, lorsque je lance une impression , fichier,imprimer, et dans la case nombres de copies, si je met 400 copies (j'ai toujours juste une feuille excel a faire imprimer 400 fois) et bien je veux voir sur chacune de mes feuilles un numéro allant de 1 à 400. Y'a-t-il quelqu'un d'assez spécialiste pour m'aider.
merci a tous
amelia
merci beaucoup ça fonctionne
-----Message d'origine----- Bonsoir, Tu peux t'inspirer de cette macro ! ========= Imprime un nombre définit de formulaires et incrémente le numéro du formulaire.
Sub ImprimFormulaire() Dim CellPara Range("A2") = Application.InputBox(prompt:="Taper le nombre de copies que vous désirez.", Type:=1)
For CellPara = 1 To Range("A2") Range("E13").Value = Range("E13").Value + 1 ActiveSheet.PageSetup.PrintArea = "$A$5:$I$24" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Sub Modifie la zone d'impression "$A$5:$I$24" et les cellules A2(le Nb d'impression) et E13 (Le numero) comme tu le désires
http://dj.joss.free.fr/imprim.htm
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"amelia" a écrit dans le message de news:
24a6601c45f8e$f8df3930$ Bon je vais réexpliquer mon problème, j'ai monté une feuille excel avec du texte et des calculs (feuille excel ben standard ok) Je veux que, lorsque je lance une impression , fichier,imprimer, et dans la case nombres de copies, si je met 400 copies (j'ai toujours juste une feuille excel a faire imprimer 400 fois) et bien je veux voir sur chacune de mes feuilles un numéro allant de 1 à 400. Y'a-t-il quelqu'un d'assez spécialiste pour m'aider.
merci a tous
.
merci beaucoup ça fonctionne
-----Message d'origine-----
Bonsoir,
Tu peux t'inspirer de cette macro !
=========
Imprime un nombre définit de formulaires et incrémente le
numéro du formulaire.
Sub ImprimFormulaire()
Dim CellPara
Range("A2") = Application.InputBox(prompt:="Taper le
nombre de copies que vous désirez.", Type:=1)
For CellPara = 1 To Range("A2")
Range("E13").Value = Range("E13").Value + 1
ActiveSheet.PageSetup.PrintArea = "$A$5:$I$24"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
Modifie la zone d'impression "$A$5:$I$24"
et les cellules A2(le Nb d'impression) et E13 (Le numero)
comme tu le désires
http://dj.joss.free.fr/imprim.htm
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"amelia" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:
24a6601c45f8e$f8df3930$a401280a@phx.gbl...
Bon je vais réexpliquer mon problème, j'ai monté une
feuille excel avec du texte et des calculs (feuille excel
ben standard ok) Je veux que, lorsque je lance une
impression , fichier,imprimer, et dans la case nombres de
copies, si je met 400 copies (j'ai toujours juste une
feuille excel a faire imprimer 400 fois) et bien je veux
voir sur chacune de mes feuilles un numéro allant de 1 à
400. Y'a-t-il quelqu'un d'assez spécialiste pour m'aider.
-----Message d'origine----- Bonsoir, Tu peux t'inspirer de cette macro ! ========= Imprime un nombre définit de formulaires et incrémente le numéro du formulaire.
Sub ImprimFormulaire() Dim CellPara Range("A2") = Application.InputBox(prompt:="Taper le nombre de copies que vous désirez.", Type:=1)
For CellPara = 1 To Range("A2") Range("E13").Value = Range("E13").Value + 1 ActiveSheet.PageSetup.PrintArea = "$A$5:$I$24" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Sub Modifie la zone d'impression "$A$5:$I$24" et les cellules A2(le Nb d'impression) et E13 (Le numero) comme tu le désires
http://dj.joss.free.fr/imprim.htm
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"amelia" a écrit dans le message de news:
24a6601c45f8e$f8df3930$ Bon je vais réexpliquer mon problème, j'ai monté une feuille excel avec du texte et des calculs (feuille excel ben standard ok) Je veux que, lorsque je lance une impression , fichier,imprimer, et dans la case nombres de copies, si je met 400 copies (j'ai toujours juste une feuille excel a faire imprimer 400 fois) et bien je veux voir sur chacune de mes feuilles un numéro allant de 1 à 400. Y'a-t-il quelqu'un d'assez spécialiste pour m'aider.
