Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion acuponctus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

acuponctus

XLDnaute Nouveau
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.
 
Trier par date Trier par votes
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
47
LegVal
L
M
  • Question Question
XL 2016 Analyse prix suivant hypothèse QTT à produire volume annuel et date de démarrage fabrication
Réponses
4
Affichages
69
mam721
M
J
  • Résolu(e)
XL 2016 partage du butin ;-)
Réponses
4
Affichages
180
jlr40
J
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
761
Mody200
M
A
  • Question Question
XL 2016 Colorer en vert le besoin effectif par rapport au stock
Réponses
2
Affichages
171
job75
S
  • Question Question
XL pour MAC Tableau de gestion de production et de stock
Réponses
14
Affichages
2 K
ScamPs
S
V
  • Question Question
XL 2021 Chronologie Globale
Réponses
1
Affichages
392
Gégé-45550
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
  • Question Question
Microsoft 365 Gestion de Stock
Réponses
2
Affichages
2 K
gael56000
M
  • Question Question
Autres Générer une étiquette pour imprimante thermique
Réponses
3
Affichages
507
fanch55
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
297
Dégé59
D
R
  • Résolu(e)
XL 2021 Transformer des données
Réponses
4
Affichages
449
Richard30
R
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
412
LuckyShuri
L
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
579
crocrocro
C
L
  • Question Question
XL 2016 Création d'une étiquette CB avec Excel
Réponses
5
Affichages
498
lincoln75
L
A
  • Résolu(e)
Autres Afficher le nombre de dates d'une colonne par rapport à une cellule
Réponses
4
Affichages
127
alain.pierrephie
A
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
558
Max
M
L
  • Question Question
Microsoft 365 Gestion de stock matieres premieres VS produits finaux
Réponses
5
Affichages
1 K
youky(BJ)
S
  • Question Question
XL 2016 Récupérer un nombre dans une cellule pour l'inclure dans une formule
Réponses
4
Affichages
409
shushen
S
S
  • Question Question
XL 2016 fichier Excel pour faire une liste de course en fonction des recettes sélectionnées
Réponses
2
Affichages
680
salih56
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…