compteur pour impression

[bodegue]

Bonjour,

Je cherche à incrémenter les cases en jaune de 1 à chaque impression.

Merci pour vos suggestions.

Cordialement bodegue.

 

[pascal21]

Re : compteur pour impression

Private Sub CommandButton1_Click()
Range("c2").Value = Range("c2").Value + 1
Range("j2").Value = Range("j2").Value + 1
Range("c16").Value = Range("c16").Value + 1
Range("j16").Value = Range("j16").Value + 1

End Sub

bonjour
tu mets ce bout de code sur ton bouton à la fin du code de l'impression ou au début, c'est selon

oupss pas assez rapide
bonjour jean marcel

 

[bodegue]

Re : compteur pour impression

Tout d'abord merci d'avoir répondu aussi rapidement.
En fait, une page correspond à 1 planche de 4 étiquettes qui ont chacune le même numéro (N° 1 en jaune sur le fichier).
Je voudrais que ce numéro s'incrémente de n+1 à chaque impression.
De plus il faudrait que je puisse entrer le nombre d'impression de planche que je veux faire.
Exemple impression de 100 planches d'étiquettes.C'est-à-dire 400étiquettes.
Je voudrais imprimer 100 planches qui auront à sur la 1ere planche le numéro 1 dans les 4 étiquettes, le numéro 2 sur la 2 planche dans les 4 étiquettes etc.
Merci.

 

[Cousinhub]

Re : compteur pour impression

Bonjour,

Un petit essai :

Sub impression()
Dim Increment As Range
Dim Nb
Dim I As Byte
Do
    Nb = InputBox("Nombre de planches à imprimer")
Loop Until IsNumeric(Nb) Or Nb = ""
If Nb = "" Then Exit Sub
Set Increment = Union(Range("C2"), Range("J2"), Range("C16"), Range("J16"))
Increment = 0
For I = 1 To Nb
    Increment = Increment + 1
    Sheets("support").PrintPreview
Next I
End Sub

Bonne journée (des tropiques.....)

 

[bodegue]

Re : compteur pour impression

C'est bon c'est exactement cela.
Merci.