Choisir le filtre du tableau croisé dynamique avec VBA

P

Poussin

XLDnaute Occasionnel

• 23 Juin 2011

• #2

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

Code:

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

Merci d'avance pour votre aide

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Juin 2011

• #3

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

Bonjour Poussin,

Essaye peut être comme ceci :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

P

Poussin

XLDnaute Occasionnel

• 23 Juin 2011

• #4

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 :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Juin 2011

• #5

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....

 

Vote positif 0 Vote négatif

P

Poussin

XLDnaute Occasionnel

• 23 Juin 2011

• #6

Code:

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

Maintenant il me met Objet Requis ???

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juin 2011

• #7

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
@+

 

Vote positif 0 Vote négatif