Incrementation à l'impression

Bonjour la communauté,

J'ai un fichier pour imprimer des fiches palettes.

J'ai une macro pour choisir le nombre d'impression (cellule B2), je souhaiterais à l'aide de cette cellule incrémenter la cellule A9 "Palette X sur X" pour chaque impression.

Exemple, si je met 2 en B2, il faudrait imprimer 2 feuilles avec pour la premiere Palette 1 sur 2 et pour la seconde feuille Palette 2 sur 2.

D'avance merci pour votre contribution.

Bonjour,

un essai:

pour plus de simplicité (pour moi...)j'ai modifié la ligne 9 de la feuille:

en B9 : COLIS

en D9 sera affiché le N° en cours

en E9: SUR

en F9 sera affiché le Nb de colis total

Sub IMPRESSION()
Dim nbcop As Integer, i As Integer
With Worksheets("Affiche")
nbcop = .Range("B2").Value
For i = 1 To nbcop
    .Range("D9").Value = i
    .Range("G9").Value = nbcop
    Worksheets("Affiche").PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
    'Worksheets("Affiche").PrintPreview F
Next
.Range("D9,G9").ClearContents
.Range("B2").Select
End With
End Sub

A+

Bonjour AlgoPlus,

Merci cela repond a ma demande.