Incrémentation lors de l'impression
Bonjour,
Je dois faire des étiquettes pour quantifier mes colis. Pour ce faire, je voudrais que les cases jaunes soient incrémentées lors de l'impression. Les cases jaunes correspondent à des numéros de colis et il ne doit pas y avoir de numéros identiques. Exemple : j'ai 100 colis. Sur une page j'ai quatre étiquettes. Donc j'aurais colis 1/100, colis 2/100, colis 3/100 et colis 4/100 etc. jusqu'à colis 100/100.
Merci à tous pour vos suggestions.
-- Lun Mai 10, 2010 9:31 am --
Bonjour,
SI je reprends ton exemple de 100 colis, tu auras 100 étiquettes par feuille ?
Si oui, comment les 100 étiquettes sont-elles créées ?
Autre souci, tu as fusionné les lignes 6, 7 et 21, 22. A éviter cela cause toujours des soucis quand il faut programmer.
Amicalement
Bonjour
Regarde si cela te convient?
En M2 le numéro de départ en M4 le numero de Fin
Sub ImprimeNuméro()
Dim cpt
vald = Range("M2").Value
valF = Range("M4").Value
If vald = "" Or valF = "" Then
MsgBox " Vous devez renseigner les cellules M2, M4"
Exit Sub
Else
For cpt = vald - 1 To valF - 1 Step 4
Range("B6").Value = " " & 1 + cpt & " / " & valF
If cpt + 2 > valF Then
Range("H6") = ""
Else
Range("H6") = " " & 2 + cpt & " / " & valF
End If
If cpt + 3 > valF Then
Range("B21") = ""
Else
Range("B21") = " " & 3 + cpt & " / " & valF
End If
''''''''''''''
If cpt + 4 > valF Then
Range("H21") = ""
Else
Range("H21") = " " & 4 + cpt & " / " & valF
End If
ActiveWindow.SelectedSheets.PrintPreview 'Out
Next cpt
End If
End Subsi ça vas tu pourras changer PrintPreview par PrintOut
EDIT
Ajout du fichier
bonjour,
Merci beaucoup.
Bonjour
je remet le fichier sans info spécifique, ça peut servir à d'autre
Bjr
Je viens de m'inscrire juste pour vous remercier. J'avais justement un gros problème pour imprimer une série de ticket de tombola.
Merci