Choisir le filtre du tableau croisé dynamique avec VBA

[Poussin]

Bonjour à tous,

Je souhaiterais automatiser une tâche. J'ai un UserForm, l'utilisateur choisit une société qui l'intéresse avec une ComboBox, puis lorqu'il clique sur OK le filtre du tableau croisé dynamique est automatiquement mis à jour et je retrouve dans mon tableau croisé dynamique chaque donnée relative à la société selectionnée.

Donc ma question est comment faire pour que le filtre de mon TCD puisse reconnaître le nom de la société.

Merci beaucoup pour vos réponses.

 

[Poussin]

J'ai voulu utiliser ceci mais il me met erreur de syntax :

ActiveWorkbook.Worksheets!(« Feuil14 »).PivotTables("TCD1").PivotFields("Nom").CurrentPage = ComboBox1

Merci d'avance pour votre aide

 

[Pierrot93]

Re : Choisir le filtre du tableau croisé dynamique avec VBA

Bonjour Poussin,

Essaye peut être comme ceci :

Worksheets("Feuil14").PivotTables("TCD1").PivotFields("Nom").CurrentPage = ComboBox1

bon après midi
@+

 

[Poussin]

Merci beaucoup Pierrot malheureusement j'ai un message d'erreur.

Il me met l'indice n'appartient pas à la sélection si je mets Feuil14 et argument ou appel de procédure incorrect si je mets Appels le nom de la feuille 14. Voici ma fonction pour mieux comprendre :

Private Sub ComboBox1_Click()

Dim variable As String

TextBox1 = ComboBox1

Worksheets("Appels").PivotTables("TCD1").PivotFields("Nom").CurrentPage = ComboBox1

End Sub

Encore merci pour votre aide

 

[Pierrot93]

Re : Choisir le filtre du tableau croisé dynamique avec VBA

Re,

oui c'est le nom de la feuille qu'il faut mettre entre guillemets, vérifie bien le nom de tous les objets concernés par ton code....

 

[Poussin]

ActivateWorkbook.Worksheets("Société").PivotTables("TCD1").PivotFields("Nom").CurrentPage = ComboBox1

Maintenant il me met Objet Requis ???

 

[Pierrot93]

Re : Choisir le filtre du tableau croisé dynamique avec VBA

Bonjour Poussin,

désolé avais zappé.... ton champ "Nom" est il bien en champ de page ? la combo affiche bien le nom d'un item présent dans ton tcd ? le mieux pour t'aider serait d'avoir un tout petit fichier représentant le problème posé...

bonne journée
@+