Appliquer un filtre TCD par VBA

Fermé

laurent74000 Messages postés 562 Date d'inscription mercredi 18 janvier 2012 Statut Membre Dernière intervention 26 mai 2015 - 12 avril 2012 à 14:29
f894009 Messages postés 17219 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 - 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
Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
Tableau ascii - Guide
Tableau word - Guide

3 réponses

Réponse 1 / 3

laurent74000 Messages postés 562 Date d'inscription mercredi 18 janvier 2012 Statut Membre Dernière intervention 26 mai 2015 81
13 avril 2012 à 10:02

Réponse 2 / 3

f894009 Messages postés 17219 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
13 avril 2012 à 10:58

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 562 Date d'inscription mercredi 18 janvier 2012 Statut Membre Dernière intervention 26 mai 2015 81
13 avril 2012 à 11:04

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 17219 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
13 avril 2012 à 11:20

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 562 Date d'inscription mercredi 18 janvier 2012 Statut Membre Dernière intervention 26 mai 2015 81
13 avril 2012 à 11:24

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 17219 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
13 avril 2012 à 11:32

Re

cette ligne

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

vous l'avez laisse ou pas???

laurent74000 Messages postés 562 Date d'inscription mercredi 18 janvier 2012 Statut Membre Dernière intervention 26 mai 2015 81
13 avril 2012 à 11:34

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 17219 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
13 avril 2012 à 11:43

Re,

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

laurent74000 Messages postés 562 Date d'inscription mercredi 18 janvier 2012 Statut Membre Dernière intervention 26 mai 2015 81
13 avril 2012 à 11:45

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

VBA TCD filtre

Filtre date par mois dans TCD

Vba Suppression de filtre

Mettre un filtre automatique dans un tableau croisé dynamiqueVBA