Discussion :

[sylgar]

Salut à tous,

J'ai :
- d'un côté un Tableau croisé dynamique classique, avec un champ "Item" positionné en filtre du rapport.
- de l'autre une liste de quelques articles qui vont définir le critère du filtre "Item" de mon TCD

Si je fais ça manuellement, je sélectionne mon filtre "Item", je coche "sélectionner plusieurs éléments", je sélectionne mes codes articles, puis je clique sur "Ok".
A ce moment - et à ce moment uniquement-, le TCD est mis à jour en tenant compte de la multi-sélection.

Bon, manuellement, donc, tout va bien

Passons en vba...

Depuis vba, je récupère mes articles à cocher depuis une listbox (permettant la sélection multiple), puis je boucle sur ma listbox, et j'affecte à PivotItems la valeur de True ou False, selon ce qui a été sélectionné dans la listbox.

Bref ;

Code :

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

1
2
3
4
5
6
7
8
...
    'boucle sur la liste
    For iListIndex = 1 To oList.ListCount
 
        'si l'élement est sélectionné -> PivotItems à TRUE, sinon -> PivotItems à FALSE
       Worksheets("TCD Sheet").PivotTables("TCD1").PivotFields("Item").PivotItems(oList.List(iListIndex)).Visible = oList.Selected(iListIndex)
 
    Next iListIndex

Jusque là tout va bien, ça fonctionne.
Sauf que... sauf qu'à chaque passage de la boucle, il remet à jour le TCD (comme si, quand je l'ai fait manuellement, j'avais cliqué sur "Ok" à chaque fois que j'ai ajouté un article dans mon filtre).

Et comme j'ai 230 articles dans ma Listbox, il rafraichit 230 fois mon TCD (qui pointe sur une plage de 300 000 lignes....), et du coup, ça serait comme qui dirait un chouïa un peu lent...

Sans cirer les pompes, est-ce que l'un de vous aurait la géniale gentillesse et la magnanime intelligence de venir à mon secours ?

Merci,
Sylvain

[Stef999]

Bonjour,

J'ai déjà été confronté à ce genre de pb que ce soit avec les segments ou les filtres.

Concernant la boucle : faire attention à faire un premier passage pour mettre à true les PivotItems qui doivent l'être, puis un 2ieme pour mettre à false ceux qui doivent l'être, car autrement il y a un risque que tous passent à false ce qui est soit pas possible soit dans le cas des segments passe tous les items à True.

Mais ça ne change rien au pb de lenteur ...

J'avais opté pour une colonne supplémentaire dans la table source (Inclure) qui contient X ou rien, je mets un filtre sur cette colonne dans le TCD, et ma liste déroulante écrit les X qui vont bien dans la colonne Inclure ... dans ce cas un simple RefreshAll en VBA et le tableau est à jour ...

Cordialement,
Stéphane

[sylgar]

Merci Stéphane,

C'est une bonne idée, je vais essayer. J'ai juste peur que l'écriture des "X" sur mes 300 000 enregistrements soit long, mais ça sera toujours moins terrible qu'un recacul de TCD.

Dommage qu'on ne dispose pas d'un truc similaire au filtre des onglets excel, du type

Code :

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

AutoFilter field:=1, Criteria1:=Array(Tablo)

Je teste ça demain, je farfouille à droite à gauche, et je te tiens au courant.
Merci encore,
Sylvain

[Daniel.C]

Bonjour,

Dommage qu'on ne dispose pas d'un truc similaire au filtre des onglets excel, du type
AutoFilter field:=1, Criteria1:=Array(Tablo)

Il y a bien "VisibleItemsList", mais c'est limité aux cubes OLAP. Sinon écris tes X dans une variable array et copie-la dans ta nouvelle colonne.

[Invité]

Bonjour,
si ça peut aidé!

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
19
20
21
22
23
24
25
Sub test()
If FiltreTdc(ActiveSheet.PivotTables("Test"), "ChampTdcName", "Toto;Titi") = False Then MsgBox "Pas trouvé"
End Sub
 
 
 Function FiltreTdc(tb, Champ As String, V As String) As Boolean
On Error Resume Next
Dim i As Integer
Dim I2 As Long
Dim trouve As Boolean
Dim T
T = Split(V & ";", ";")
FiltreTdc = True
tb.PivotFields(Champ).ClearAllFilters
For i = 1 To tb.PivotFields(Champ).PivotItems.Count
    trouve = False
    For I2 = 0 To UBound(T)
    If Trim("" & tb.PivotFields(Champ).PivotItems(i).Name) = Trim("" & T(I2)) Then trouve = True
    Next
    If trouve = False Then tb.PivotFields(Champ).PivotItems(i).Visible = False
    If Err Then FiltreTdc = False
 
Next
 On Error GoTo 0
End Function

[sylgar]

Salut à tous et un grand merci, j'ai trouvé grâce à vous un temps de réponse très acceptable pour un tcd de 300 000 lignes.

En pompant sur Stéphane, voilà ce que j'ai fait :

1- je charge la liste des articles à filtrer dans un scripting.dictionnary DicoArticleSelectionné
2- En parallèle, depuis mon onglet source, je charge la colonne "Items" qui contient tout mes enregistrements Articles dans un tableau TabloItem
3 - Je crée un TabloSelectItem, de même dimension que TabloItem
4 - Je boucle sur TabloItem, et si DicoArticleSelectionné.Exists(TabloItem(i) Alors je mets un "X" dans TabloSelectItem(i)
5 - J'écris TabloSelectItem dans une nouvelle colonne de mes données sources.
6- Dans mon TCD, je n'ai plus qu'à mettre à jour mon filtre "Sélection Article" qui pointe sur cette nouvelle colonne en ne gardant que les "X"

Bref :

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
        For iItem_Loop = LBound(oItem) + 1 To UBound(oItem)
 
            If oDico_ArticleSélectionné.Exists(oItem(iItem_Loop, 1)) Then
                oItemsSélectionné(iItem_Loop, 1) = "X"
            End If
 
        Next iItem_Loop
 
        ThisWorkbook.Worksheets(gcSheetTract).Range("Aticles_Sélectionnées_Col").Value = oItemsSélectionnées
 
        ' Mise à jour des TCD
        ThisWorkbook.Worksheets(gcSheetTCD).PivotTables(gcNameTCD_TRACT).PivotCache.Refresh
 
 
        '        ' Critère de sélection
 
        ThisWorkbook.Worksheets(gcSheetTCD).PivotTables(gcNameTCD_TRACT).PivotFields("Articles Sélectionnées").CurrentPage = "X"

Merci à tous pour le coup de main et les idées

Sylvain