XL 2019 Création étiquettes en vba

[JLR67]

Bonjour à Tous,
Dans le fichier joint, j'ai construis une macro (avec l'aide de tutos) pour créer des étiquettes. Il a le mérite de fonctionner, mais je souhaiterais que les données soient prises sur la feuille "BD" et non sur la feuille elle même ("Etiquette"). N'étant qu'un débutant dans le vba, merci de bien vouloir me donner un coup de main.
Merci à vous

 

[halecs93]

Bonjour à Tous,
Dans le fichier joint, j'ai construis une macro (avec l'aide de tutos) pour créer des étiquettes. Il a le mérite de fonctionner, mais je souhaiterais que les données soient prises sur la feuille "BD" et non sur la feuille elle même ("Etiquette"). N'étant qu'un débutant dans le vba, merci de bien vouloir me donner un coup de main.
Merci à vous

Une proposition

 

[JLR67]

Merci halecs93,
Ca répond tout à fait à ma demande, et ça fonctionne super.
bonne continuation et mille mercis
JLR

 

[Phil69970]

Bonjour à tous

Remarques à tous les 2 :
Avec un TS (Tableau structuré) comme tu as on doit écrire le code VBA pour un TS 🤔😳

@JLR67
Je te propose ce fichier avec le code écrit pour un TS 😉
J'ai limité à 6 colonnes max possible (modifiable bien sur) le nombre de tes colonnes
J'ai supprimé la MFC de mise en forme et je l'ai remplacé par du code VBA
J'ai renommé ton TS avec un nom plus parlant

Si tu déplaces le TS le code fonctionnera toujours ce qui n'est pas le cas avec le fichier du post #2 😉

Et on valide le post qui correspond à la réponse que tu as choisi et non pas ton propre post car par définition tu n'as rien trouvé et de plus cela permet à quelqu'un de voir tout de suite quelle réponse tu as choisi

 

[halecs93]

Merci halecs93,
Ca répond tout à fait à ma demande, et ça fonctionne super.
bonne continuation et mille mercis
JLR

De rien...mais si la solution proposée vous convient, c'est sur mon message que vous devez cliquer "solution" et pas sur votre réponse 😉

 

[JLR67]

Bonjour Phil69970 et halecs93,
Mes excuses pour la validation incorrecte, je ferais attention la prochaine fois.
Mais je me permets de modifier un peu ma demande. Si je filtre mon tableau, dans les 2 propositions ce n'est pas pris pas en compte.
Si j'utilise un TCD, la macro de halecs93 marche sauf que je me suis aperçu qu'à l'impression, il y a un nombre important de feuilles vides qui passe à l'imprimante. Je pense que cela est lié à la mise en forme conditionnelle.
Avez vous une solution si à la place du TS j'ai un TCD.
Merci pour vos réponses et pour l'attention que vous portez à ma demande.

 

[Phil69970]

Re

@JLR67

Mes excuses pour la validation incorrecte, je ferais attention la prochaine fois.

Rien ne t’empêche de modifier la validation tout de suite sans attendre la prochaine fois

Mais je me permets de modifier un peu ma demande. Si je filtre mon tableau, dans les 2 propositions ce n'est pas pris pas en compte.

De quel filtre parles tu ? Et une fois filtrer que fais tu ? ou plutôt que veux tu que la macro fasse ?
Un peu juste comme explication .... pour ne pas dire simpliste.

Et quand on pose une question on explique tout ce que l'on veut faire et avoir d'un seul coup sans feuilletonner

Bonne lecture

 

[job75]

Bonsoir à tous,

Pourquoi du VBA alors que le problème est bien simple par formules ?

En F2 à tirer vers le bas :

=INDEX(Tableau1;2*LIGNE()-3;1)&" "&INDEX(Tableau1;2*LIGNE()-3;2)&CAR(10)&INDEX(Tableau1;2*LIGNE()-3;3)

En G2 à tirer vers le bas :

=INDEX(Tableau1;2*LIGNE()-2;1)&" "&INDEX(Tableau1;2*LIGNE()-2;2)&CAR(10)&INDEX(Tableau1;2*LIGNE()-2;3)

A+

 

[job75]

Bien sûr pour récupérer les données de la feuille BD remplacer Tableau1 par Tableau13.

 

[JLR67]

De quel filtre parles tu ? Et une fois filtrer que fais tu ? ou plutôt que veux tu que la macro fasse ?
Un peu juste comme explication .... pour ne pas dire simpliste.

Et quand on pose une question on explique tout ce que l'on veut faire et avoir d'un seul coup sans feuilletonner

Je comprends bien votre agacement, mais n'étant pas un pro d'Excel, j'avance selon mes compétences. Mais bon cela n'excuse pas.
Avec votre aide et celle de halecs93, j'ai pu arriver à mes fins.
Avec mes remerciements

 

[JLR67]

Bien sûr pour récupérer les données de la feuille BD remplacer Tableau1 par Tableau13.

Merci job75,
Mais ceci ne répond pas tout à fait à ma demande, mais c'est vrai que c'est une solution.

 

[Phil69970]

@JLR67

Tu ne réponds à aucune de mes questions

De quel filtre parles tu ? Et une fois filtrer que fais tu ? ou plutôt que veux tu que la macro fasse ?

 

[job75]

Merci job75,
Mais ceci ne répond pas tout à fait à ma demande, mais c'est vrai que c'est une solution.

Bien sûr puisque vous voulez du VBA alors que VBA est totalement inutile !!!