Discussion :

[raphdes]

Bonjour a tous,

J'ai un petit soucis pour modifier un filtre "topX" d'un TCD via VBA. Je suis entrain de créer un report laissant le choix a l'utilisateur s'il préfère voir un top 10, top20 jusqu’à max top 30 et cela pour plusieurs TCD. Sachant que mon TCD hors filtre fait plus de 1000 lignes, j'ai insère mes TCDs a la suite vu que leur taille est capée.

Le problème est que la méthode standard pour changer les filtres sur TCD demande de supprimer les anciens filtres, ce qui n'est pas possible sur mon fichier vu que j'ai des données en dessous... Du coup j,ai essaye de me rabattre sur la méthode pivotfield.Autoshow(Type,*Range,*Count,*Field) mais j'ai une erreur 1004 "Application-defined or object-defined error".

Si quelqu'un sait d'ou peut provenir l'erreur ou connait une solution a mon problème autre que supprimer les données dessous et utiliser clearallfilter j'en serais très reconnaissant.

Je vous joins un screenshot de mon TCD (nomme "HWGTop")ainsi que ma ligne de code qui deconne

Code :

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

1
2
3
4
 
With Sheets("Pivots Hours Watched")
    .PivotTables("HWGTop").PivotFields("Corresponding Name").AutoShow xlAutomatic, xlTop, 10, "Sum of Hours Watched"
End With

Merci d'avance

Raphael

[78chris]

Bonjour

Dans ces cas il faut prévoir un nombre suffisant de lignes entre les TCD que l'on masque/démasque selon le besoin dans la procédure VBA

A noter que le choix du top par segment peut être sympa http://www.excel-formations.fr/Trucs_astuces/TCD06.php

[raphdes]

Bonjour,

Merci pour votre reponse.

Justement l'espace entre les TCD est suffisant pour des tops 30, mais je veux eviter de passer par la phase "Show All" car mes colonnes et mes lignes sont variables donc ca peut vite devenir ingerable.

Donc je cherche un moyen de changer mon filtre automatiquement sans passer par l'etape montrer tout. L,espace que j'ai laisse est amplement suffisant pour top30.

Je sais pas si j'ai clarifie ma situation

[78chris]

RE

Effectivement le PivotField.AutoShow ne semble pas fonctionner sur la version française. Sans doute lié à un problème de localisation.

Pas sûr qu'il le fasse sur la version US quand un autre filtre top est actif.

Je sais que recalculer le masquage des lignes est casse pieds mais à ma connaissance pas d'autre solution...

[raphdes]

Meme sur la version US (je travaille sur un Excel anglosaxon). J'ai l'impression que le probleme vient que le top est fait sur le "Grand Total". Que le Autoshow ne fonctionne que si on n,inclus pas differentes colonnes mais je comprends pas pourquoi :/

Pour le coup si je dois passer pas le masquage des lignes je vais etre oblige de faire une feuille pour chaque TCD et ca va compliquer la chose :/