XL 2013 Création étiquette et nombre indiqué en colonne

acuponctus · 24 Mai 2024

Bonjour,

J'utilise un peu excel toutes les semaines mais de manière simple, et je cherche un moyen pour procéder à l'étiquetage de 2000 produit environ suivant cette consigne :
nom du produit | id du produit | ref produit | quantité en stock (entre 1 et 5)
la quantité en stock est le nombre d'étiquettes à imprimer.

Je ne sais pas comment m'y prendre, car à chaque fois que j'ai eu à utiliser excel et la fusion dans word, la question de la quantité ne se posait pas.

Y a t il une solution simple ?

Car en effet dupliquer à la main ces éléments pour générer le nombre de ligne de chaque produit est source d'erreur, et ne pas avoir suffisamment d'étiquettes.

Merci par avance pour votre aide.

youky(BJ) · 26 Mai 2024

Dans le doute j'ai fait aussi les étiquettes par ligne sur le même fichier
Donc on peut choisir son modèle d'étiquettes.
Il faut activer les macros
Bruno

Phil69970 · 24 Mai 2024

Bonjour @acuponctus et bienvenu sur XLD

acuponctus à dit:
Y a t il une solution simple ?

Peut être, mais j'ai pas vu ton fichier

youky(BJ) · 25 Mai 2024

Bonjour tous,
Un fichier exemple évite de tout se retaper sans bien savoir ou l'on va.
Voici ce que j'ai fait malgrés avoir bien hésité . . .
Bruno

youky(BJ) · 26 Mai 2024

Dans le doute j'ai fait aussi les étiquettes par ligne sur le même fichier
Donc on peut choisir son modèle d'étiquettes.
Il faut activer les macros
Bruno

acuponctus · 26 Mai 2024

Phil69970 à dit:
Bonjour @acuponctus et bienvenu sur XLD

Peut être, mais j'ai pas vu ton fichier

Bonjour,
En effet j'ai été un peu vite !
Voici un fichier exemple

acuponctus · 26 Mai 2024

youky(BJ) à dit:
Dans le doute j'ai fait aussi les étiquettes par ligne sur le même fichier
Donc on peut choisir son modèle d'étiquettes.
Il faut activer les macros
Bruno

Bonjour et merci beaucoup, je vois le principe et vais essayer d'adapter car j'avais oublié le code barre

youky(BJ) · 26 Mai 2024

Reviens ici si problème
Avec une BD ou l'on vois les entêtes qu'il faut rechercher.
Bruno

acuponctus · 5 Juin 2024

Bonjour,
Dans l'onglet "Etiquettes par ligne" je voudrais que la première ligne reste figée et ne soit pas modifiée afin de mettre le nom des colonnes en vue de faire du publipostage pour sortir mes étiquettes avec Word.
Sur la partie macro, si je change A1 en A2 pour commencer à la seconde ligne ca ne marche pas, comment adapter ?:

VB:

Sub EtiquettesLigne()
Feuil4.Select
Range("A1:E65000").ClearContents
Range("A1:E65000").Borders(xlInsideHorizontal).LineStyle = xlNone
With Feuil2
For lig = 2 To .[A65000].End(3).Row
If .Cells(lig, 1) <> "" Then
For n = 1 To .Cells(lig, 5)
k = k + 1
Cells(k, 1) = .Cells(lig, 2)
Cells(k, 2) = .Cells(lig, 3)
Cells(k, 3) = .Cells(lig, 4)
Cells(k, 4) = .Cells(lig, 5)
Cells(k, 5) = .Cells(lig, 6)
Next
End If
Next
End With
Range("A1:E" & k).Borders(xlInsideHorizontal).LineStyle = xlNone

End Sub

Merci

youky(BJ) · 6 Juin 2024

Bonjour,
Voici le code modifié
Bruno

VB:

Sub EtiquettesLigne()
Feuil4.Select
Range("A2:E65000").ClearContents'on garde ligne 1
Range("A2:E65000").Borders(xlInsideHorizontal).LineStyle = xlNone
With Feuil2
k=1'k est la ligne incrémentée plus bas k=k+1 donc 2 au 1er passage
For lig = 2 To .[A65000].End(3).Row
If .Cells(lig, 1) <> "" Then
For n = 1 To .Cells(lig, 5)
k = k + 1
Cells(k, 1) = .Cells(lig, 2)
Cells(k, 2) = .Cells(lig, 3)
Cells(k, 3) = .Cells(lig, 4)
Cells(k, 4) = .Cells(lig, 5)
Cells(k, 5) = .Cells(lig, 6)
Next
End If
Next
End With
Range("A1:E" & k).Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

acuponctus · 6 Juin 2024

Merci beaucoup, c'est tout à fait ce dont j'avais besoin.
Je peux maintenant générer mes étiquettes par lots intelligents grâce à ce travail !
Merci

XL 2013 Création étiquette et nombre indiqué en colonne

acuponctus

XLDnaute Nouveau

youky(BJ)

Phil69970

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

acuponctus

XLDnaute Nouveau

Pièces jointes

acuponctus

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

acuponctus

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

acuponctus

XLDnaute Nouveau

Discussions similaires