numérotation de feuilles imprimées

[chgo]

bonjour,
Je souhaiterai imprimer plusieurs fois la même feuille (exemple 20 fois), et je voudrai que chaque feuille contienne un numéro différent lors de l'impression.
1ere feuille : A1 affiche 1
2e feuille : A1 affiche 2
3e feuille : A1 affiche 3
etc...
merci pour votre aide

 

[jeanpierre]

Re : numérotation de feuilles imprimées

Bonsoir,

Ici, peut-être................. https://www.excel-downloads.com/threads/numerotation-de-feuilles-imprimees.83766/

 

[skoobi]

Re : numérotation de feuilles imprimées

Bonsoir chgo,
test ce code:

Sub essai()
For rep = 1 To 20
    Range("a1").Value = rep
    ActiveSheet.PrintOut
    DoEvents
Next
End Sub

Edit: salut jeanpierre!

 

[fred65200]

Re : numérotation de feuilles imprimées

bonsoir le fil,
j'ai lu trop vite et je suis à coté.
je place tout de même le code pour mettre le numéro d'impression en pied de page.

Sub NoImpr()
For i = 1 To 20
  With ActiveSheet
    .PageSetup.CenterFooter = "Impression n° " & i
    .PrintOut
  End With
Next i
End Sub

Cordialement

 

[chgo]

Re : numérotation de feuilles imprimées

salut Fred 65200,
ton code fonctionne bien, c'est bien ce que je cherchais.
Merci beaucoup
à+ Chgo