problème slicer vba

Version imprimable

23/11/2019, 16h26
cadaver

problème slicer vba

Bonjour,

J'ai une feuille disposant de plusieurs tcd que souhaiterai que l'utilisateur final puisse mettre à jour grace à des segments. Je voudrais que l'utilisateur final ne puisse choisir qu'une seule option dans le segment et c'est la que les choses se gâtent. j'ai essayé de trouver dans les paramêtres du segments dans excel, cette option ne semble pas prévue. je me suis donc tourner vers le VBA, ou je suis confronté à un autre problème.
Je définis une variable "as SlicerCache" que j'incrémente avec mon segment. Cependant quand je regarde les propriétés de ma variable elle retourne nombre d'erreurs. ex:" Sliceritems : erreur définie par l'application" et donc je n'arrive pas à agir dessus comme je veux.

Auriez vous une idée ?

Je précise que j'ai vérifié que la propriété OLAP de ma variable soit bien à VRAI.

D'ordinaire grace à l'aide de votre forum je trouve toujours la solution à mon problème mais la je sèche.

PS : je voulais ajouter les parties mon code au message pour être plus clair mais je ne sais pas comment.

D'avance merci.

Cordialement,
25/11/2019, 06h00
Invité

Citation:

Envoyé par cadaver

Bonjour,

Sauf erreur de ma part, si le champ en question est dans la partie Page, votre segment ne peut faire varier qu'une seule valeur à la fois.
25/11/2019, 11h57
cadaver

Bonjour, merci de prendre le temps de me répondre.
Je suis d'accord avec vous sauf quand l'utilisateur clique sur "effacer les filtres", la tout le segment est sélectionné.
De plus j'aimerai vraiment comprendre pourquoi ma variable retourne des erreurs sur la plupart de ses champs car en parallèle j'aimerai réussir à récupérer le nom de l'item sur lequel l'utilisateur clique.

Cordialement,

Citation:

Envoyé par cadaver

Bonjour, merci de prendre le temps de me répondre.
Je suis d'accord avec vous sauf quand l'utilisateur clique sur "effacer les filtres", la tout le segment est sélectionné.
De plus j'aimerai vraiment comprendre pourquoi ma variable retourne des erreurs sur la plupart de ses champs car en parallèle j'aimerai réussir à récupérer le nom de l'item sur lequel l'utilisateur clique.

J'ai repris un fichier avec un TCD et des segments dont le SlicerCache.Olap est Faux.
Pièce jointe 519868

J'ai créé deux fonctions volatiles pour déterminer l'item sélectionné dans un des segments (H2) et le nombre d'items sélectionnés (I2).

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
Function MonSlicerItem(ByVal NomDuSegment As String) As String
 
Dim I As Integer
 
    Application.Volatile
 
    MonSlicerItem = ""
    With ActiveWorkbook.SlicerCaches(NomDuSegment)
         For I = 1 To .SlicerItems.Count
             If .SlicerItems(I).Selected = True Then MonSlicerItem = .SlicerItems(I).Name
         Next I
    End With
 
End Function
 
 
 
Function NbSlicerItem(ByVal NomDuSegment As String) As Integer
 
Dim I As Integer
 
    Application.Volatile
 
    NbSlicerItem = 0
    With ActiveWorkbook.SlicerCaches(NomDuSegment)
         For I = 1 To .SlicerItems.Count
             If .SlicerItems(I).Selected = True Then
                 NbSlicerItem = NbSlicerItem + 1
             End If
        Next I
    End With
 
End Function
 
Function SourceOlap2(ByVal NomDuSegment As String) As Boolean
 
    With ActiveWorkbook.SlicerCaches(NomDuSegment)
        SourceOlap2 = .OLAP
    End With
 
End Function

Dans le cas où tout est déselectionné, I2 passe au dessus de 1 et l'événement Worksheet_Change remet la sélection sur le premier item. A voir si c'est possible avec une source de type OLAP.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim I As Integer
 
        If Range("I2").Value > 1 Then
           Application.EnableEvents = False
            With ActiveWorkbook.SlicerCaches("Segment_Directeur")
                 For I = .SlicerItems.Count To 2 Step -1
                     If .SlicerItems(I).Selected = True Then .SlicerItems(I).Selected = False
                 Next I
            End With
            Application.EnableEvents = True
            Exit Sub
       End If
 
End Sub

26/11/2019, 07h13
cadaver

Bonjour,
Une donnée que je ne pensais avoir à preciser mais qui a peut être son importance est que les données constituant mes TCD ne viennent pas d'une feuille de données mais d'une base powerpivot. En cherchant sur le forum je crois comprendre que mon souci viendrait de la. Je continue de chercher car pour l'instant je suis toujours dans le brouillard.
26/11/2019, 07h32
Invité

Citation:

Envoyé par cadaver

Avez-vous essayé la méthode proposée au moins ?
27/11/2019, 18h06
cadaver

Bonjour,

Je viens de faire le test de votre solution que j'ai presque réussis à adapter à mon problème.
Il faut dans le cas d'une base powerpivot ajouter .SlicerCacheLevels(1) pour accéder au propriété .SlicerItems.
cependant, malgré cela, j'obtiens une erreur sur le code :

Code:

If .SlicerItems(I).Selected = True Then .SlicerItems(I).Selected = False

lorsque j'utilise une fonction debug.print je vois bien l'état à vrai ou faux mais il refuse de changer la propriété.

Si vous avez une idée ?
27/11/2019, 18h12
Invité

Citation:

Envoyé par cadaver

Bonjour,

Cela doit venir du fait que pour Olap = Vrai, les items sont en lecture seule (cf l'aide en ligne). N'ayant de ce type de données, je ne peux pas vous aider plus.