Incrémentation d’un numéro à chaque impression

Bonsoir à tous,

Je souhaite imprimer et incrémenter des numéros de serie.

J'ai trouvé cette formule qui fonctionne très bien :

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
  For n = 1 To Val(n)
    .[A1] = .[A1] + 1 'numérotation
    .PrintOut
  Next
End With
Application.EnableEvents = True
End Sub

Si dans la cellule A1 j'ai un zéro = 0

et que je valide 10 numéros de série, je veux imprimer : le 0, 1, 2, 3, 4, 5, 6, 7, 8 et le 9 (ici le zéro doit compter donc 10 numéros de serie)

ici la formule ne fonctionne pas dans ce sens elle va imprimer le 1, 2, 3, 4, 5, 6, 7, 8, 9 et le 10

Merci pour votre aide

Bonsoir,

En inversant 2 lignes?

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
  .[A1]=0
  For n = 1 To Val(n)
    .PrintOut
    .[A1] = .[A1] + 1 'numérotation
  Next
End With
Application.EnableEvents = True
End Sub

Peut-être?

Bonsoir,

voici dans le fichier une autre proposition, j'ai remplacer le PrintOut par une information dans les cellules de la colonne B, j'ai également pris le parti de "continuer" la série si l'on demande une nouvelle série d'impression...

Le fichier :

@ bientôt

LouReeD

Bonsoir,

Merci beaucoup fonctionne parfaitement

Bonne soirée

Bonsoir,

Et la réponse est pour?