VBA filtre tcd selon cellule
Bonjour le forum
Je me retourne vers vous une fois de plus.
Je bloque sur une manip, depuis presque 3h et jm'en remet a vous.
Dans le fichier joint
J'aimerais en cliquant sur le bouton de l'userform, faire via vba un trie dans le champs mois du tcd en fonction de la valeur de la cellule E1.
Ensuite extraire la page du rapport(onglet graphique) en pdf
Et enfin extraire la feuille base en xls.
Merci d'avance
Bonjour,
Un début de réponse pour le filtre.
Mais j'ai un souci avec les mois. Je ne sais pas si c'est ton classeur, ma version Excel, mais je suis obligé de passer par des noms de mois en anglais.
Si Chris78 lit ce messsage, j'aimerai son expertise.
A te relire.
Cdlt.
Bonjour Jean-Eric
Merci pour la Proposition.
Pour le filtre Chris a répondu (Après une première publication hier sans réponse, j'avais également publier sur un autre forum).
Ci-dessous sa proposition qui marche également.
With Worksheets("GRAPHIQUE").PivotTables("Tableau croisé dynamique1")
.PivotFields("Mois").ClearAllFilters
.PivotFields("Mois").CurrentPage = "Jan"
End With
Merci encore pour ton aide précieuse qui m'a permis d'avancer. J’essaie de mettre les code ensemble sur un seul bouton afin d'actualiser le TCD, appliquer un filtre par mois et extraire le rapport en pdf et xls.
Bonjour
...je suis obligé de passer par des noms de mois en anglais.
Si Chris78 lit ce message, j'aimerai son expertise.
Oui cela fait partie des problèmes de localisation apparus sur les TCD à partir de 2010.
Les dates et les (vide) sont restés en US pour VBA...
En plus les forme abrégées diffèrent entre les formats de nombre et les TCD...
Idéalement il faut une table de correspondance comme tu l'as fait ou bien on devrait pouvoir faire une conversion avec CDate puis Format mais je ne sais comment forcer Format à utiliser le notation US...
Re,
Merci Chris.
Je ne pensais pas avoir ce souci avec un champ comportant des mois !...
J'ai pensé un instant à une mise à jour d'Office.
(J'ai quelques soucis avec PowerPivot et Power Query depuis peu)
Bon réveillon.
Cdlt.