Récupérer la valeur texte provenant du choix d'un slicer (segment)

Bonjour à tous,

Dans le fichier fournis pour exemple, je souhaiterais afficher sur le diagramme la valeur sous format texte du choix établis sur le slicer.

Par exemple, j'ai les modèles 1, 2 et 3 qui peuvent être entrés par l'utilisateur dans la table.

Moi-même, j'utilise le slicer pour trier les données en fonction du modèle et pouvoir les visualiser sur mon diagramme.

Pour faciliter la compréhension de mes interlocuteurs, je souhaiterais pouvoir afficher sur le diagramme le nom du modèle choisi dans le slicer.

Si je sélectionne, dans mon slicer, le modèle 1, je souhaite que le nom de ce modèle soit adapté automatiquement sur mon diagramme.

Je n'aurai pas besoin que cela soit adapté en cas de multi-sélection.

Une case jaune a été dédiée à cet effet sur le diagramme pour afficher le nom du modèle.

En vous remerciant d'avance pour votre aide !

N'hésitez pas si je n'ai pas été assez clair à me poser des questions

Mandrax.

Bonjour, c'est faisable ; cependant le problème c'est l'évenement déclencheur.

Je ne suis pas sur que le clic sur le slicer est un évènement utilisable.

Du coup il faudrait cliquer dans la page aprés avoir fait sa selection dans la feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cas As SlicerItem
    With ThisWorkbook.SlicerCaches("Slicer_Modèle")

        For Each Cas In .SlicerItems
            If Cas.Selected = True Then Range("L3").Value = Cas.Caption
        Next Cas
    End With

End Sub

bonjour Xmenlp,Mandrax,

un évenement 100% pur comme pour un TCD, cela n'existe pas, mais le contournement, c'est d'ajouter une nouvelle feuille "Dummy", qu'on peut cacher, et qui compte par exemple le nombre de cellules visible.

Cela a comme désadvantage que l'utilisation d'un autofilter ou ajouter/supprimer des lignes provoque aussi un évenement, mais je pense que cela est moins fréquent ou inquiétant que votre selection_change-évenement mais mon opinion est peut-être discutable ...

Bonjour,

En se créant son propre évènement comme ceci :

Dans l'évènement de Feuil

Public WithEvents CH  As Chart

Private Sub ch_calculate()
MsgBox "coucou"
End Sub

Private Sub Worksheet_Activate()
Init_CH
End Sub

Dans l'Open du Workbook :

Private Sub Workbook_Open()
Init_CH
End Sub

et dans un module standard:

Sub Init_CH()
If Feuil1.CH Is Nothing Then Set Feuil1.CH = Feuil1.ChartObjects("Chart 4").Chart
End Sub

On peut donc intercepter la mise à jour du graphique, reste à boucler sur les SlicerCache...

Bonne soirée

Bonsoir,

Par formule :

=INDEX(Table1[Modèle];EQUIV(1;SOUS.TOTAL(3;DECALER(Table1[[#En-têtes];[Modèle]];LIGNE(Table1[Modèle])-26;1));0))

A+

Bonjour à tous. Au moins il y a le choix des solutions.

Bonjour tout le monde !

D'abord un grand merci pour vos contributions. Je souhaiterais garder la proposition de @OOoiste. Malheureusement, je n'arrive pas à adapter sa formule dans le vrai fichier dans lequel je souhaite l'utiliser. Je pense que

@OOoiste : serait-il possible de m'expliquer comment fonctionne la formule pour que j'en comprenne le fonctionnement et soit capable de corriger l'erreur et l'adapter en fonction de mes différentes feuilles ? Ou au moins m'expliquer ce que je peux modifier comme paramètres qui auront une influence sur la formule ?

Encore merci pour votre aide !

Mandrax.

Voilà le fichier exemple n°2 pour étayer mon problème...
Merci pour votre aide.

Mandrax.