Discussion :

[Just-Soft]

Bonjour

me revoilà

les choses vont plutôt bien mais à chaque avancement y'a un nouveau soucis. cette fois-ci j'aimerais que le filtre de mon TCD soit alimenté à partir d'un liste de données. j'ai essayé de faire ça mais XL refuse de prendre cette valeur. mon schéma est comme suit, j'ai créé une liste de données; la même que celle du TCD, à vrai dire je veux masquer mon TCD vu sa fragilité, mon utilisateur doit choisir une valeur d'une liste que je lui propose, le TCD doit être capable de filtrer sur cette valeur comme si j'ai filtré sur le TCD, donc une petite simulation, et m'afficher les valeurs correspondantes dont j'ai besoin et que je reçois dans un autre endroit.

je vous attends mes sauveurs et merci par avance

[Just-Soft]

une piste, une idée, ....

j'attends vos lumières avec toute ma gratitude

[Fvandermeulen]

Salut,

D'après tes explications, je vois deux possibilités:

Faire un TCD "détaillé" masqué et utiliser la fonction GetPivotData (en français LIREDONNEESTABCROISDYNAMIQUE) suivant la(les) liste(s).

Utiliser une macro pour sélectionner les Items des champs sur base de(s) liste(s).

Ca te parle ?

A+

[Just-Soft]

Salut,

D'après tes explications, je vois deux possibilités:

Faire un TCD "détaillé" masqué et utiliser la fonction GetPivotData (en français LIREDONNEESTABCROISDYNAMIQUE) suivant la(les) liste(s).

Utiliser une macro pour sélectionner les Items des champs sur base de(s) liste(s).

Ca te parle ?

A+

la 1ière je ne crois pas car dans mon cas je veux forcer le TCD à prendre une valeur d'une liste et à filtrer.

la 2ième j'ai rien pigé !!

[Fvandermeulen]

Re,

Voici alors un petit exemple, il me semblait avoir vu un tuto sur le sujet, mais pas moyen de remettre la main dessus...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SelectBucket()
 
Dim Pt As PivotTable
Dim Pf As PivotField
Dim MySelectiont As String
 
Set Pt = Sheets("LaFeuilleAvecTCD").PivotTables("LeNomDuTCD")
 
MySelection = Sheets("LaFeuille").Range("A1")
 
For Each Pf In Pt.PivotFields 'Boucle sur les PivotField
    If Pf.Name <> MySelection Then
         Pf.Orientation = xlHidden
    Else
         Pf.Orientation = xlDataField
    End If
Next
End Sub

C'est vraiment pour l'exemple car c'est un code que j'utilise que j'ai un peu adapté, je l'ai même pas testé tel qu'il est.

A+

[Just-Soft]

Re,

Voici alors un petit exemple, il me semblait avoir vu un tuto sur le sujet, mais pas moyen de remettre la main dessus...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SelectBucket()
 
Dim Pt As PivotTable
Dim Pf As PivotField
Dim MySelectiont As String
 
Set Pt = Sheets("LaFeuilleAvecTCD").PivotTables("LeNomDuTCD")
 
MySelection = Sheets("LaFeuille").Range("A1")
 
For Each Pf In Pt.PivotFields 'Boucle sur les PivotField
    If Pf.Name <> MySelection Then
         Pf.Orientation = xlHidden
    Else
         Pf.Orientation = xlDataField
    End If
Next
End Sub

C'est vraiment pour l'exemple car c'est un code que j'utilise que j'ai un peu adapté, je l'ai même pas testé tel qu'il est.

A+

J'avoue que je suis un ignare en VBA, je vais l'utiliser tel quel et te rendre compte. Merci pour la disponibilité et le truc