Bonjour, le Forum,

Un petit mot sur la nouvelle présentation ! Super comme tout le reste !

je viens vers vous car j'ai des macro qui actionnent un pivottables et pivotfields. tout fonctionne bien jusqu'à ce que les macro m'affiche n'importe quoi. Notamment sur les boutons (Feuil1) Chalon - Portet sur garonne - cherbourg. en effet j'ai l'impression que le résultat se fige et devient "fou".... tout comme moi qui tente de trouver la solution depuis 2 jours....

Pouvez-vous me dire ce qui se passe et comment puis-je m'en sortir.

PS je voudrai vous pousser le fichier dans son ensemble, mais il fait 800 Ko en zip et si je le fais maigrir il n'y a plus rien de cohérent.... Comment puis-je vous le transmettre.

Vous en remerciant par avance.

Bien cordialement

Zorbrax !

Bonjour

Tu peux le mettre sur ci-joint ou sur free

Bonjour Chris, Bonjour le forum,

Comment dois-je m'y prendre pour mettre mon fichier sur "ci-joint" ou sur free ?

J'ai chercher sur le site mais je n'ai rien trouvé qui le permet !

Ma méconaisance réduit quelque peu mes possibilités...

Bien cordialement

Zorbrax

Bonjour

http://dl.free.fr/ : tu places ton fichier, et tu postes le lien ici

Merci Chris,

Je fais ça ce soir !

Bonjour le forum !

En attendant l'expertise, je vais tenter de vous expliquer avec quelques exemples ce que j'ai tenté de faire et ce que ça donne au final.

J'ai mis dans VBA dans des modules les commandes suivantes :

Module regions :

Sub STHREG_PACA()
'Synth 10116 Choix régions
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "Région PACA"
End Sub

Et ce répété 8 fois (régions différentes)

dans un module : region_Sud_Ouest

Sub STHRENT_14()
'Synth 10116 Choix entrepôt SUD OUEST
Sheets("Synth_Ent").Select
ActiveSheet.PivotTables("Synth_NTRPT").PivotFields("Nom_Ent"). _
    CurrentPage = "Bordeaux"
End Sub

Cela répété 13 fois (villes différentes)

et dans 7 autres modules, la même chose que dans le module Region_Sud_Ouest, soit au total 93 villes réparties dans les 8 régions.

Et pour finir dans un module Admin

Sub STHRENT_ADMIN1()
'Synth 10116 Choix entrepôt PACA
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Sup_30"). _
    CurrentPage = ">30"
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "(Tous)"
End Sub
Sub STHRENT_ADMIN2()
'Synth 10116 Choix entrepôt PACA
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Sup_30"). _
    CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "(Tous)"
End Sub

Ce qui se passe : il semble que dès lors que je sélectionne le bouton qui active un TCD qui pointe sur une ville qui n'a pas de données, le TCD affiche n'importe quoi et même si je filtre sur le TCD manuellement. de plus si je j'active une autre ville à l'aide d'un bouton différent je retrouve les data incohérente de la sélection précédente.

exemple si j'active Charleville Mézière qui ne contient pas de data, le TCD affiche les data de Villeneuve et si ensuite je sélection Bordeaux je continue de voir les data de Villeneuve.

espérant être clair dans mes explications.

Bien cordialement

Zorbrax !

Bonjour

De façon générale si tu essaies d'afficher par VBA une valeur inexistante dans le TCD, si cela ne plante pas, cela garde la dernier élément activé car le changement n'est pas possible.

Pour éviter cela il faudrait tester avant que la valeur existe...

Par ailleurs tu as peut-être un nettoyage à faire dans le cube de données si des villes sans aucune données sont proposées...

Selon la version d'Excel, ce ménage est plus ou moins facile.

A partir de 2007 il suffit, dans les options du TCD, onglet données, Nombre déléments à retenir par champ : mettre Aucun puis valider et actualiser le TCD

Merci Chris,

J'utilise EXCEL 2003.. et oui l'évlution est lente dans les grosses structures !

Je ne trouve donc pas l'option que tu as décrite.

PS en déplacement actuellement je n'ai pu déposer le fichier. je le fais dès ce soir.

Merci encore pour toutes ces réponses et le temps passé sur mon Pb.

Zorbrax

Bonsoir Chris,

C'est encore moi j'ai maintenant l'adresse de dépôt.... mais à qui je l'envoie et par quelle adresse !

Bien cordialement

Zorbrax

Chris,

Il faut que je me reprenne ! ci dessous le lien ! et le fichier.

J'ai fais un onglet sur lequel j'ai tenté d'expliquer ce qui se passe et là où je souhaiter aller au début du projet... Je pense que j'en suis encore loin !

Bonne soirée.

Bien cordialement

Zorbrax

http://dl.free/jcoLevqx0

http://dl.free.fr/jcoLevqx0

Bonjour

C'est très bizarre : il manque des villes dans le TCD.

Si j'ajoute ou enlève une lettre à ces villes, dans l'onglet correspondances, elles réapparaissent dans le TCD mais d'autres disparaissent.

Même en reconstruisant un TCD neuf, le problème apparait. Je pense que ce fichier a un souci et qu'il faudrait le reconstruire dans un nouveau classeur onglet par onglet.

Pourtant il n'est pas très gros : je ne sais ce qui a pu le rendre instable.