impression

[bodegue]

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.

 

[job75]

Re : impression

Bonjour bodegue,

Pour incrémenter les étiquettes, il suffit d'une boucle, par exemple :

Sub Imprimer()
Dim n As Integer, txt As String, i As Integer
n = 100
txt = "/" & n
For i = 1 To n Step 4
  [B6] = i & txt
  [H6] = i + 1 & txt
  [B21] = i + 2 & txt
  [H21] = i + 3 & txt
  ActiveSheet.PrintOut
Next
End Sub

A+

 

[Robert]

Re : impression

Bonjour Bodegue, Job, bonjour le forum,

En pièce jointe ton fichier avec un bouton qui te permet de définir le nombre de plache d'étiquettes que tu veux puis le premier numéro de la liste. Ensuite ça imprime en incrémentant... Code commenté.

 

[Minick]

Re : impression

Salut a tous,

Robert, juste pour info, je pense que tu voulais parler de Instr

Instr(1, pn, "/")

 

[Robert]

Re : impression

Bonjour le fil, bonjour le forum,

Yes Minick !!! Je venais juste de la retrouver... Je l'oublie souvent celle-là. Merci beaucoup de ton aide. Du coup une version 2 plus clean pour Bodegue. Je précise aussi que j'ai créé une zone d'impression pour eviter l'impression du bouton Incrémenter.

 

[bodegue]

Re : impression

Bonjour,

Merci à tous.