Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment imprimer 10 fois 1 feuille en numérotant page de 1 à 10 ?

2 réponses
Avatar
gary
en fait , je voudrais imprimer plusieurs fois une même feuille de calcul (par
exemple 10 copies) et que mes 10 feuilles soient numérotées de 1 à 10.

Avez vous une solution simple ?

Merci

2 réponses

Avatar
Daniel
Bonjour.
Avec le numéro en A1 :

Sub testImp()
For i = 1 To 10
[A1] = i
ActiveSheet.PrintOut
Next i
End Sub

Cordialement.
Daniel
"gary" a écrit dans le message de news:

en fait , je voudrais imprimer plusieurs fois une même feuille de calcul
(par
exemple 10 copies) et que mes 10 feuilles soient numérotées de 1 à 10.

Avez vous une solution simple ?

Merci


Avatar
LSteph
Bonjour,
en poursuivant l'idée
histoire de le mettre en pied de page

'***
Sub testImp()
For i = 1 To 10
ActiveSheet.PageSetup.rightfooter=i
ActiveSheet.PrintOut
Next i
End Sub
'***

'lSteph

"Daniel" a écrit dans le message de news:
uMYiMXP%
Bonjour.
Avec le numéro en A1 :

Sub testImp()
For i = 1 To 10
[A1] = i
ActiveSheet.PrintOut
Next i
End Sub

Cordialement.
Daniel
"gary" a écrit dans le message de news:

en fait , je voudrais imprimer plusieurs fois une même feuille de calcul
(par
exemple 10 copies) et que mes 10 feuilles soient numérotées de 1 à 10.

Avez vous une solution simple ?

Merci