Discussion :

[Sites]

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

[Menhir]

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 ?

[Sites]

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.

[78chris]

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

[Sites]

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.

[Philippe Tulliez]

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

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

[Sites]

Merci Philippe. C'est exactement cela.

[78chris]

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

[Sites]

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

[78chris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sites]

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.

[78chris]

RE

Dans ce cas dans le module du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sites]

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