Appliquer un filtre TCD par VBA

laurent74000 Messages postés 563 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 2 mai 2012 à 09:43

Bonjour,

J'ai chercher sur pas mal de sites mais rien à faire je ne trouve pas ce que je veux alors je me tourne vers vous.

Voilà mon souci j'ai un tableau croisé dynamique sous excel 2010 et j'aimerai pouvoir appliquer un filtre sur un segment par VBA.

J'ai placé une zone de recherche et un bouton ok et le but serai que quand je clique sur le bouton, un filtre se mette en place ayant pour valeur ce qui a été tapé dans la zone de texte (TextBox1). Voici un exemple du code que j'ai essayé mais qui ne marche pas...

Public Sub FilterPivotTable()

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").PivotFilter = TextBox1.Value

End Sub

A voir également:

Vba tableau croisé dynamique filtre
Tableau croisé dynamique - Guide
Exemple tableau croisé dynamique télécharger - Télécharger - Tableur
Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
Tableau word - Guide
Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel

3 réponses

Réponse 1 / 3

laurent74000 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 81

up

Réponse 2 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Public Sub FilterPivotTable()

Sheets("feuil4").Activate

With ActiveSheet
.PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").ClearAllFilters
.PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:="AAAA"
End With

End Sub

Remplacez "AAAA" par nom_de_la_feuille.TextBox1.Value ou
nom_de_userform.TextBox1.Value ou
suivant l'endroit ou vous lancez ce code, il faudra peut-etre passer par une variable Public:

ex:
dans un module
dim Ma_Valeur

et
Ma_Valeur=TextBox1.Value la ou est la textbox

A suivre

laurent74000 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 81

Bonjour,
Tout d'abord merci de répondre à ma question.
Je lance le code depuis la feuille où se trouve le TCD.

J'ai inscrit le code mais il me met objet requis pour cette ligne-ci :
.PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Recherche.Test.Value

Réponse 3 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

.PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Recherche.Test.Value

Si votre feuille s'appelle: Recherche

.PivotTables("Tableau croisé
dynamique1").PivotFields("Localisation").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=worksheets("Recherche").Test.Value

ou

.PivotTables("Tableau croisé
dynamique1").PivotFields("Localisation").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Test.Value

puisque le code est sur la meme feuille

Bonne suite

laurent74000 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 81

Cette fois-ce le code ne retourne aucun problème mais ne prend pas en compte le filtre. J'ai rentré un mot dans la recherche qui correspond à une localisation et lorsque je clique sur le bouton il ne se passe rien le segment ne se filtre pas.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re

cette ligne

.PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").ClearAllFilters

vous l'avez laisse ou pas???

laurent74000 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 81

Oui. cette ligne fonctionne lorsque je clique sur un item puis sur le bouton le filtre disparait. J'ai essayer de mettre Value1:="Mairie" et le filtre ne se fait pas.

Je pense que le problème viens de la commande de filtre.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Je pense que le problème viens de la commande de filtre.
Que voulez vous dire??

laurent74000 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 81

Il a l'air de s'arrêter après .PivotTables("Tableau croisé dynamique1").PivotFields("Localisation").ClearAllFilters
Comme s'il ne comprenait pas la suite ou que l'expression dans TextBox1 n'était pas pris en compte.

Discussions similaires

Problème de filtre date dans TCD

EXCEL - COLLER données dans cellules filtrées

Filtre date par mois dans TCD

Vba Suppression de filtre

Mettre un filtre automatique dans un tableau croisé dynamiqueVBA

Forum VB / VBA