Manipuler les Slicers Via Vba

Version imprimable

1 pièce(s) jointe(s)

Bonjour tout le monde,
je dispose d'un classeur avec plusieurs pages et chaque page dispose de plusieurs slicer (un slicer par colonne pour environ 20 colonnes)
Ce que je souhaite faire, c'est à l'aide du VBA, activer pour une page précise un slicer précis avec des valeurs précises.
Pour l'instant quand j’exécute le code pas à pas, tout fonctionne jusqu’à la dernière étape ou à force de manipuler plusieurs slicers, ces derniers n'affichent pas exactement les bonnes lignes.
C'est à dire pour un Slicer A, si l'item sélectionne vaut "A1", normalement il doit m'afficher que les lignes dont la valeur vaut "A1", mais ce dernier m'affiche même les lignes dont la valeur vaut "A2" (meme quand "A2".selected = false), ce bug m'arrive quand je manipule le slicer B

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
            'Pour chaque slicer dans notre fichier excel
For t = 0 To UBound(tableauParametreTri())           
 For Each oSlicercache In ThisWorkbook.SlicerCaches
                If oSlicercache.ListObject.DisplayName = sht1.Name & "_Données_REVIT" Or _
                oSlicercache.ListObject.DisplayName = sht1.Name & "_Données_Calculées" Then
                    'si notre slicer se trouve sur la bonne page (sht1 est le nom de la page voulu que j'ai renseigne auparavant)
                    'On prends le slicer correspondant à notre premier parametre
                    If oSlicercache.SourceName = tableauParametreTri(t) Then
'tableauParametreTri est un tableau qui regroupe le nom des slicers
                        With ActiveWorkbook.SlicerCaches(oSlicercache.Name)
                            For K = 1 To .SlicerItems.Count
                                If (.SlicerItems(K).Caption = tableau_split(t)) Then
                                    .SlicerItems(K).Selected = True
                                Else
                                    .SlicerItems(K).Selected = False
                                End If
                            Next K
                        End With
                        Exit For
                    End If
                End If
            Next
Next t

Je sais pas si j'ai été vraiment claire, je reste à votre disposition pour toute clarification.
Merci d'avance

Je me trouve avec un bug comme ca
Pièce jointe 278461

24/05/2017, 14h13
78chris

Bonjour

C'est quoi tableau_split(t) ?

Comment est alimenté tableauParametreTri ?
24/05/2017, 14h37
nouaman1996

TableauParametreTri est un tableau qui regroupe les entetes à chercher et donc les noms de mes slicers.
Exemple, une des entetes à chercher sera "BY_IdNature" qui sera une case de TableauParametretri. je le remplie en brute directement dans ma fonction main, TableauParametreTri(0) = toto

Tableau_Split est le parametre que je veux rendre visible dans le slicer, pour mon exemple, la case du tableau parametre split sera "Prefa Exterieure"

Enfaite, je n'ai aucun probleme avec la selection des slicers.
ce n'est qu'une fois que je quitte ce bout de code et que j'applique exactement le meme principe sur un autre slicer que "parfois", je dis bien parfois ce n'est pas toujours le cas, cela me creer ce bug que j'ai mis en photo au dessus
24/05/2017, 14h47
78chris

Re

Pas avec la sélection de slicers mais avec celle des items apparemment...

De façon générale on affiche tout avec ClearManualFilter puis on désélectionne les items non trouvés dans la liste des choix souhaités.

Juste avant ce code là j'utilise
Code:

1 2 3 4 5 6 7 For Each Slcr In ThisWorkbook.SlicerCaches If Slcr.ListObject.DisplayName = sht1.Name & "_Données_REVIT" Or _ Slcr.ListObject.DisplayName = sht1.Name & "_Données_Calculées" Then Slcr.ClearManualFilter End If Next
Pour remettre à zero tout les slicers de ma page, et après pour chaque slicer, je selectionne/deselectionne ce que je veux, juste quelques fois y'a ce bug qui apparait, meme avec le debugger pas à pas je n'arrive pas à trouver pourquoi ca déconne

24/05/2017, 14h59
78chris

RE

Dans ce cas la ligne

Code:

.SlicerItems(K).Selected = True

ne sert à rien puisque ClearManualFilter a déjà tout activé
29/05/2017, 15h15
nouaman1996

En effet, cette dernière ne sert à rien, mais même en la mettant en commentaire, cela ne résout pas mon problème :(
30/05/2017, 11h59
nouaman1996

Apparemment c'est un bug qui a été corrigé sur Excel 2016 et non pas sur excel 2013, est ce quelqu'un peut me le confirmer ?