Discussion :

[guismo30]

Bonjour à tous

je me permets de poster car j'aimerais créer un fichier décrit ci dessous, mais je n'ai aucune idée de comment faire.

Pour notre entrepot, j'ai créé un fichier excel dans lequel j'ai préparé un "label" (sheet "Final Lavel for Printing"), qui reprend le numéro de produit, le numéro de lot, le numéro de process order etc...

Dans le sheet "Data", l'utilsateur va choir le Process order, les autres champs vont se calculer automatiquement.

Dans les champs automatiquement calculés, il y a la partie "total quantity of pallet" qui reprends la quantité de palettes qui seront assignées à cette commande, dans le fichier en attache il y a 21 palettes.

Mon but est de multiplier le nombre de "labels" autant de fois qu'il y a de palette en les numérotant comme ceci: 1/21, 2/22, 3/22, 4/22 etc...

Quand les étiquttes auront été imprimées il faudrait que je puisse remettre a zero le fichier (tout effacer sauf le premier)

Pensez vous cela possible ?
je vous remercie

Guismo30

[guismo30]

personne n'a d'idée ?

[jurassic pork]

Hello,
si le seul but est d'imprimer des étiquettes, à essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Imprimer()
Dim FeuilleImpr As Worksheet
Dim n As Variant
Set FeuilleImpr = Worksheets("Final Label For Printing")
For n = 1 To CInt(FeuilleImpr.Range("N2"))
  FeuilleImpr.Range("L2") = n
  FeuilleImpr.PrintOut
Next
End Sub

Cela imprime l'étiquette sur l'imprimante par défaut, en incrémentant à chaque fois le numéro de palette.

Ami calmant, J.P