OVH Cloud OVH Cloud

Numérotation automatique

1 réponse
Avatar
Blaireau
Bonjour, j'ai un petit diléme avec Excel,
j'ai une page à imprimer environ 100 fois, et j'aimerais que la numérotation
soit automatique de 1 à 100. comment dois je faire pour avoir ce résultat??
une solution simple est de copier coller 100 fois la page mais c'est trés
lourd à gérer!
merci d'avance

1 réponse

Avatar
papou
Bonjour
Tu ne donnes pas trop de détail !
Voici une méthode qui va imprimer la feuille spécifiée, le nombre de fois
demandé et inscrire le numéro d'impression dans le pied de page gauche, à
toi de voir si cela correspond à ce que tu voulais faire ?
C'est la macro zozo qu'il faut lancer.

Sub Imprime(Feuille$, Fois&)
For i = 1 To Fois
With Worksheets(Feuille)
.PageSetup.LeftFooter = "Impression " & i
.PrintOut
End With
Next i
End Sub

Sub zozo()
Imprime "Feuil1", 2
End Sub

Cordialement
Pascal