Intercepter la valeur d'un segment

Bonjour,

Je souhaite intercepter la valeur sélectionnée dans un segment chaque fois que l'utilisateur clique sur un nouvel item afin de lancer des traitements particuliers.
Je précise que la valeur sélectionnée doit être connue et traitée avant l'affichage résultant du choix de l'utilisateur.
Pouvez-vous m'aider ?
Merci

Pour avoir une chance d'obtenir une réponse exploitable, il va falloir être beaucoup plus détaillé.
Qu'est-ce qu'un segment ?
Dans quelles circonstances doit-il être "intercepté" ?
Quelle est la nature des "item" ?
Quels type de "traitements" sont lancés ? Sous quelle forme ?
Quel "traitement" doit subir la "valeur" ?
Qu'est ce qui génère le "résultat" ? Quelle est sa nature ?

J'ai un segment associé à un graphique croisé dynamique qui me permet de filtrer celui-ci et de n'afficher que les données directement liées à l'item sélectionné.
Chaque fois que l'utilisateur clique sur un item de cette liste filtrante, je souhaite, AVANT d'afficher le graphique correspondant, exécuter une (ou plusieurs) macro pour ramener des données et les afficher à côté du graphique.

Bonjour à tous

Je me demande si tu n'est pas parti sur une mauvaise piste... D'où sortent les données à afficher à côté du graphique ?

Le choix d'une valeur dans un segment déclenche l'évènement PivotTableUpdate

Citation:

---

Envoyé par 78chris

Je me demande si tu n'est pas parti sur une mauvaise piste... D'où sortent les données à afficher à côté du graphique ?

---

Merci Chris de me répondre

En fait j'ai un graphique croisé dynamique qui m'affiche le nombre d'une population selon certains critères (fonctions professionnelles).
L'axe horizontal représente les différents services de mon entreprise et l'axe vertical, le nombre d'agents. Le segment associé à ce GCD me permet de sélectionner le type d'agent selon sa fonction.
Au moment où l'utilisateur clique sur Fonction1 ou Fonction2, en plus de lui afficher le graphique correspondant, j'ai besoin d'afficher en regard du graphique des informations descriptives de la fonction sélectionnée, issues d'un autre fichier.

Bonjour Chris,
D'après la demande, voir ci-dessous, il souhaite intercepter avant que la sélection ne fasse ses effets. C'est un peu comme un événement BeforeDoubleClick mais pour un Click or Slicer n'a pas de procédure événementielle tout au moins à ma connaissance

Citation:

---

Je précise que la valeur sélectionnée doit être connue et traitée avant l'affichage résultant du choix de l'utilisateur

---

Merci Philippe. C'est exactement cela.

RE

J'avais bien compris.

Le choix dans le segment déclenche bien un évènement dans le TCD mais ne serait-il pas plus simple d'utiliser une formule ?

Par formule :

1. On peut récupérer la valeur du segment si la source est un cube (donc éventuellement construire le TCD avec PowerPivot)
2. sinon on peut utiliser un second TCD planqué ne contenant que le champ Fonction en zone de filtre

Ci-joint les 3 solutions illustrées: VBA en plus des 2 citées

A noter que la solution VBA devrait être affinée car on ne teste que le 1er item du segment ce qui peut poser problème si le segment en a plusieurs sélectionnés

Citation:

---

Envoyé par 78chris

Ci-joint les 3 solutions illustrées: VBA en plus des 2 citées

---

Merci Chris. Mais, "Par mesure de sécurité, les macros ont été désactivées par votre administrateur".
Te serait-il possible de me transmettre le code directement depuis le corps de ta réponse SVP ?

Par ailleurs, il ne m'est pas possible d'utiliser des formules parce que l'onglet "Stat" sur lequel s'affichent mes graphiques n'existe pas dans le fichier initial. Il se crée à la demande en fonction de certains choix de l'utilisateur.

En tout cas Merci

RE

Rien n'empêche d'accéder au module VBA même si le code n'est pas activé à l'ouverture...

dans le module de la feuille concernée par le TCD dont dépend le GCD et auquel est rattaché le segment

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) If Target.Name <> "NomTCD" Then Exit Sub For Each Cas In ActiveWorkbook.SlicerCaches("NomSegment").SlicerItems If Cas.Selected = True Then ... : Exit For Next Cas   End Sub

---

Citation:

---

Envoyé par 78chris

dans le module de la feuille concernée par le TCD dont dépend le GCD et auquel est rattaché le segment

---

Je pense qu'on avance.
Mais, à l'ouverture de mon fichier, je n'ai qu'un seul onglet.
Ensuite, selon le cheminement de l'utilisateur, je crée un onglet "Calculs" sur lequel j'effectue tous les traitements intermédiaires, puis je crée un onglet "Stat" sur lequel j'affiche les résultats, notamment les graphiques.
Lors de l'utilisation suivante, j'initialise tout avec un delete des 2 onglets cités précédemment.
En clair, je ne sais où je peux placer une procédure Worksheet.

RE

Dans ce cas dans le module du classeur

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) If Sh.Name <> "NomFeuilleduTCD" Or Target.Name <> "NomTCD" Then Exit Sub For Each Cas In ActiveWorkbook.SlicerCaches("NomSegment").SlicerItems If Cas.Selected = True Then ... : Exit For Next Cas   End Sub

---

Mille Mercis.

Il y avait un problème supplémentaire : Le TCD est sur une feuille et le GCD sur une autre.
Par ailleurs, j'ai dû traiter à l'aide d'un indicateur le 1er passage (création du GCD avec son segment) et passages suivants avec modification de la valeur.

Encore merci pour ta compétence et ta rapidité.