Générateur d'étiquette sous condition

**Bes38200** · 31/07/2018, 17h25

Bonjour à tous,

J'ai longtemps cherché mais je n'ai pas vraiment trouvé ce que je voulais. D'habitude je trouve des petits bouts de code pour commencer, mais là, rien.

Le fichier contient des lignes de commandes. Il y a donc plein de commandes et un nombre aléatoire de lignes pour une même commande. J'aimerai générer autant d'étiquettes que de lignes, en choisissant un numéro de commande. Les étiquettes contiendront différents champs présents dans les colonnes.

J'imagine qu'il y a plusieurs solutions, dont utilisation d'un UserForm ou la création d'un tableau qu'on passerait en publipostage sous Word. Mais là encore, je n'ai aucune idée pour commencer.

Ci-joint le fichier.

Merci d'avance pour vos retours

**unparia** · 31/07/2018, 19h02

Bonjour

J'imagine qu'il y a plusieurs solutions, dont utilisation d'un UserForm ou la création d'un tableau qu'on passerait en publipostage sous Word. Mais là encore, je n'ai aucune idée pour commencer.

- Je ne vois pas trop ce qu'apporterait l'utilisation d'un userform
- utiliser Word en publipostage, oui
Mais il est toujours possible de composer tes étiquettes sur une feuille à imprimer (par lecture des données sur la feuille où elles figurent). Si ma mémoire est bonne, une solution de ce type a été donnée dans une discussion sur ce forum, il y a plus d'un an.
NB : je n'ai pas ouvert ton classeur (voir ma signature).

**Menhir** · 01/08/2018, 08h21

Envoyé par Bes38200

J'aimerai générer autant d'étiquettes que de lignes, en choisissant un numéro de commande.

Pour limiter les lignes à une commande donnée, tu peux placer un filtre sur tes données.
https://msdn.microsoft.com/fr-fr/vba...r-object-excel

dont utilisation d'un UserForm

Comme Unparia (

), je ne vois pas ce qu'apporterais un UserForm.
A la limite, tu pourrais utiliser une simple InputBox pour permettre à l'utilisateur de saisir la référence de l'affaire traitée.
Personnellement, je ferais beaucoup plus simple : tu demandes à l'utilisateur de sélectionner la cellule de tes données contenant la référence de l'affaire avant de lancer la macro. Comme ça, tu peux récupérer cette référence avec un simple Selection.Value en début de code. Pas de risque de faute de frappe ou d'orthographe, pas besoin de vérifier que l'affaire existe dans tes données. C'est simple et sûr.

NB : moi non plus je n'ai pas ouvert ton fichier. Voir ce lien : https://www.developpez.net/forums/d8...s-discussions/

**Bes38200** · 01/08/2018, 08h51

Bonjour,

Merci pour vos retours rapides. J'ai bien compris que mon fichier n'était pas le bienvenu sur un premier message.

Envoyé par unparia

Mais il est toujours possible de composer tes étiquettes sur une feuille à imprimer (par lecture des données sur la feuille où elles figurent). Si ma mémoire est bonne, une solution de ce type a été donnée dans une discussion sur ce forum, il y a plus d'un an.

Oui c'est exactement ce que je veux faire. Par contre j'ai longtemps cherché, je n'ai pas trouvé cette discussion.

Envoyé par Menhir

Pour limiter les lignes à une commande donnée, tu peux placer un filtre sur tes données.

Donc l'idée serait de filtrer puis de récupérer les données? Disons qu'aujourd'hui je sais à peu près comment, par le choix d'un numéro de commande, récupérer toutes les lignes. Par contre je ne sais pas comment faire correspondre mes colonnes du fichiers de données dans les étiquettes à créer. Et surtout de créer la boucle permettant de générer autant d'étiquette qu'il y a de lignes.

Envoyé par Menhir

A la limite, tu pourrais utiliser une simple InputBox pour permettre à l'utilisateur de saisir la référence de l'affaire traitée.
Personnellement, je ferais beaucoup plus simple : tu demandes à l'utilisateur de sélectionner la cellule de tes données contenant la référence de l'affaire avant de lancer la macro. Comme ça, tu peux récupérer cette référence avec un simple Selection.Value en début de code. Pas de risque de faute de frappe ou d'orthographe, pas besoin de vérifier que l'affaire existe dans tes données. C'est simple et sûr.

Cette solution n'est pas optimale dans le sens où le fichier de base fera entre 15000 et 20000 lignes. L'idée est de faire gagner du temps à l'utilisateur, je ne veux pas qu'il cherche puis sélectionne. Donc l'Inputbox me va bien.

Merci,

**Menhir** · 01/08/2018, 09h22

Envoyé par Bes38200

Cette solution n'est pas optimale dans le sens où le fichier de base fera entre 15000 et 20000 lignes. L'idée est de faire gagner du temps à l'utilisateur, je ne veux pas qu'il cherche puis sélectionne.

Ce qui renforce l'intérêt d'un filtre.

Une solution qui serait encore plus souple serait de mettre en place un filtre et de demander à l'utilisateur de le régler pour ne laisser visibles que les lignes qu'il souhaite sortir en étiquettes.
Ca permettrait, par exemple, de sortir simultanément les étiquettes de deux ou trois affaires ou bien de sélectionner, à l'intérieur d'une affaire, des lignes à éviter.

Au niveau code, ce serait d'autant plus simple pour toi : il suffirait de faire une boucle sur les cellules visibles, par exemple sur la collection :

Code :

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

For Each MaCellule In Range("A2", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible)

**Bes38200** · 01/08/2018, 13h47

J'ai bien compris le début de ta réponse et je suis en train de créer le filtre.
Par contre je ne comprends pas à quoi sert le morceau de code. Peux-tu m'éclairer stp?