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
Partager