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

francois95 · 2 Septembre 2022

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 · 2 Septembre 2022

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 · 2 Septembre 2022

chris à dit:
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 · 2 Septembre 2022

Bonjour francois95, chris,

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

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 · 2 Septembre 2022

job75 à dit:
Bonjour francois95, chris,

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

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 · 2 Septembre 2022

RE à tous

francois95 à dit:
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 · 2 Septembre 2022

francois95 à dit:
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 · 2 Septembre 2022

francois95 à dit:
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 · 2 Septembre 2022

chris à dit:
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 · 2 Septembre 2022

RE

francois95 à dit:
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 · 2 Septembre 2022

chris à dit:
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 · 2 Septembre 2022

francois95 · 2 Septembre 2022

chris à dit:
RE

Merci Chris pour ton aide aujourd’hui.

goube · 3 Septembre 2022

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 · 3 Septembre 2022

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

VB:

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...

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

francois95

XLDnaute Nouveau

Pièces jointes

chris

XLDnaute Barbatruc

francois95

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

francois95

XLDnaute Nouveau

chris

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

francois95

XLDnaute Nouveau

chris

XLDnaute Barbatruc

francois95

XLDnaute Nouveau

chris

XLDnaute Barbatruc

Pièces jointes

francois95

XLDnaute Nouveau

goube

XLDnaute Accro

Pièces jointes

chris

XLDnaute Barbatruc

Discussions similaires