XL 2013 TCD Faire apparaitre le nom du filtre du segment sélectionné dans une cellule

[francois95]

Bonjour,

J'aimerai faire apparaitre dans des cellules, les filtres sélectionnés dans les différents segments.
L'exemple joint sera peut etre plus parlant.

Je vous remercie par avance

François

 

[chris]

Bonjour

• Soit il faut passer par le modèle de données PowerPivot pour réaliser le TCD et obtenir les valeurs avec des formules cubes
• Soit il faut tricher avec un second TCD planqué connecté uax même segment. Selon la structure du TCD réel, la possibilité ou non de multi sélection. Là tu as fait très simple...
  
  
  

 

[francois95]

Bonjour

• Soit il faut passer par le modèle de données PowerPivot pour réaliser le TCD et obtenir les valeurs avec des formules cubes
• Soit il faut tricher avec un second TCD planqué connecté uax même segment. Selon la structure du TCD réel, la possibilité ou non de multi sélection. Là tu as fait très simple...
  

Merci Chris, effectivement l'exemple est très simple. J'ai 11 TCD connectés aux segments, l'idée est de synchroniser tous les segments, de n'en faire apparaitre qu'un seul sur une page menu, et ensuite dans chaque feuille rappeler les filtres sélectionnés. Je viens de découvrir Power Query, je vais tenter PowerPivot 🙂

 

[job75]

Bonjour francois95, chris,

Voyez le fichier .xlsm joint et cette fonction VBA :

Function Segment(x As String)
Application.Volatile
Dim s As Object
For Each s In ThisWorkbook.SlicerCaches(x).SlicerItems
    If s.Selected Then Segment = Segment & ", " & s.Name
Next
Segment = Mid(Segment, 3)
End Function

Le code doit être placé impérativement dans un module standard.

Formule en F2 à tirer vers la droite =Segment("Segment_"&F1)

A+

 

[francois95]

Bonjour francois95, chris,

Voyez le fichier .xlsm joint et cette fonction VBA :

Function Segment(x As String)
Application.Volatile
Dim s As Object
For Each s In ThisWorkbook.SlicerCaches(x).SlicerItems
    If s.Selected Then Segment = Segment & ", " & s.Name
Next
Segment = Mid(Segment, 3)
End Function

Le code doit être placé impérativement dans un module standard.

Formule en F2 à tirer vers la droite =Segment("Segment_"&F1)

A+

Merci,
Quand je veux annuler le filtre j'ai ce message d'erreur

 

[chris]

RE à tous

Merci Chris, effectivement l'exemple est très simple. J'ai 11 TCD connectés aux segments

Cela en ferait un 12ème mais avec les réserves énoncées...

Ne pas oublier d'utiliser un tableau structuré en source pour les TCD mais plus encore pour PowerPivot

 

[job75]

Merci,
Quand je veux annuler le filtre j'ai ce message d'erreur
Regarde la pièce jointe 1148621

Cette nouvelle question n'a rien à voir avec le problème posé au post #1.

 

[chris]

Merci,
Quand je veux annuler le filtre j'ai ce message d'erreur
Regarde la pièce jointe 1148621

C'est ton message en cellules fusionnées qui bloque l'extension du TCD quand tu défiltres

Vire le contenu et la fusion de ton pavé jaune

 

[francois95]

C'est ton message en cellules fusionnées qui bloque l'extension du TCD quand tu défiltres

Vire le contenu et la fusion de ton pavé jaune

Merci Chris, Est-ce que cela fonctionne aussi avec une chronologie?

 

[chris]

RE

Est-ce que cela fonctionne aussi avec une chronologie

Cela ? La solution VBA ou PowerPivot ? C'est faisable mais pas les mêmes codes ou formules...

 

[francois95]

RE

Cela ? La solution VBA ou PowerPivot ? C'est faisable mais pas les mêmes codes ou formules...

VBA pour le moment, je ne suis pas encore à Powerpivot

 

[chris]

RE

 

[francois95]

RE

Merci Chris pour ton aide aujourd’hui.

 

[goube]

Bonsoir à tous,

Je viens d'essayer cette fonction, et cela ne fonctionne pas chez moi. Qu'est ce que je fais mal ?
(Excel 2021 32bits)
Cordialement.

 

[chris]

Bonjour

Ton TCD est basé sur le modèle de données PowerPivot : les segments de TCD issu du modèle de données ne fonctionnent pas de la même façon

En VBA

Function Segment(x As String)
Application.Volatile
Dim ListeJ
Dim Seg As String, i As Integer
   
    ListeJ = ActiveWorkbook.SlicerCaches(x).VisibleSlicerItemsList
    For i = 1 To UBound(ListeJ)
        Seg = Mid(ListeJ(i), InStr(ListeJ(i), "&") + 2)
        Segment = Segment & IIf(i > 1, ", ", "") & Left(Seg, Len(Seg) - 1)
    Next i
End Function

Je posterai plus tard pour les fonctions CUBE...