Discussion :

[benjy555]

Bonjour

Je me permet de m'adresser sur ce forum afin de vous soumettre mon problème qui n'a malheureusement pas obtenu de réponses ailleurs. Et je suis malheureusement bloqué car mon niveau en macro a ses limites...

En pièce jointe vous trouverez un fichier exemple (qui est une proposition d'un aimable membre de forum mais qui n'est pas totalement abouti puisque la macro plante à un moment).

Il y a une base qui sert à monter un TCD (onglet PL frs)
Sur l'onglet ou se trouve le TCD (onglet etiquette colis) je souhaite qu'une macro affiche les valeurs du filtre "Colis" mais une après l'autre et que pour chaque affichage il y ait une impression (sans aperçu) qui se lance. A la suite de l'impression, la macro passe à la valeur suivante puis impression etc..

Il n'y aura pas systématiquement le même nombre de ligne dans la base de donnée mais le filtre et le TCD aura toujours la même structure

Le bout de macro qui servira à faire cela sera intégré à ma macro deja existante qui permet de faire d'autre choses simple mais le gros du truc c'est cette problématique..

Merci

Entrée en stock.xlsm

[Bob78280]

C'est à cause des données fantômes de ton TCD

Va dans les options du tableau croisé dynamique
dans l'onglet Données
La partie : Conserver les éléments supprimés de la source de données
=> Mets : AUCUN

Et là, magie, la macro va tourner toute seule

[benjy555]

C'est à cause des données fantômes de ton TCD

Va dans les options du tableau croisé dynamique
dans l'onglet Données
La partie : Conserver les éléments supprimés de la source de données
=> Mets : AUCUN

Et là, magie, la macro va tourner toute seule

Salut

Je ne connaissais pas cette notion.... je vais me renseigner sur le sujet
effectivement une page par valeur est bien sortie à l'impression MAIS la macro a quand même bloquée sur l'avant avant dernière ligne :

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Colis").PivotItems(k).Visible = True

[Bob78280]

quand dans ta source, tu as les données 1;2;3;4;5
Tu rafraichis ton TCD et dans ta liste, tu as 1;2;3;4;5
OK

Tu changes les données sources : 1;3;5;7;9
Tu rafraichis ton TCD et dans ta liste, tu as 1;3;5;7;9 en visualisation
Mais si tu listes les valeurs en VBA, tu as 1;2;3;4;5;7;9

Et si par macro, tu essayes d'afficher la donnée 2, comme elle n'existe plus => la macro plante.



Pour le dernier plantage, enlève le WITH et END WITH