Discussion :

[crookix]

Bonjour à tous,

Je crée actuellement un tableau de bord pour suivre différentes activités et je voudrais savoir s'il est possible de réduire/développer un champs depuis un onglet graph.

Je m'explique : Sur mon onglet Graph ( de type charts), j'ai un graphique dynamique comprenant plusieurs agents, avec comme étiquettes de lignes ces agents, l'année et le mois.
Pour plus de lecture visuelle, j'ai une procédure qui réduit tous les champs afin de ne voir apparaitre que les agents (pas les mois et année), de cette manière le graphique n'est pas illisible d'entrée, et l'utilisateur peut visualiser l'activité globale de chaque agent.

J'aimerais que lorsque je sélectionne un ou plusieurs agents via le ShowPivotChartActiveFields, les champs se développe automatiquement sans avoir besoin d'aller les dérouler dans l'onglet contenant les TCD.
J'ai essayé d'utiliser le déclenchement de macro à la modification de cellule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("B7")) Is Nothing Then
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
 
    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
                pt.PivotFields("Chargé de travaux").ShowDetail = True
        Next pt
    Next ws
 
 End If
End Sub

ce qui fonctionne assez bien mais uniquement pour le premier agent sélectionner, les sélections suivantes subissent le développement.

Si vous avez des idées, je joint un exemple concret pour illustrer.

Merci d'avance !!

[joe.levrai]

Bonjour,

si j'ai bien compris, tu voudrais déplier ou replier des champs de ton TCD, depuis le graphique croisés dynamique issu de la même source ?

quand je génère un TCD, j'en exporte un graphique croisé et j'insère des segments (slicers).
dès que je modifie la valeur d'un segment, ça déplie/replie mes champs dans le TCD et ça modifie aussi l'affichage du graphique


je ne suis pas un pro avec ces objets là (à mon grand regret), mais c'est peut être une piste pour toi ?

[crookix]

C'est exactement ça ! Par contre, je ne connait absolument pas cette technique de slicers mais ça va aller très vite puisqu'ils n'existent pas sur Excel 2007 ^^

Si quelqu'un a une autre idée avec éventuellement l'utilisation de worksheet_change ou un truc du genre ?

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Test()
If FiltrePivotTables(ActiveSheet.PivotTables("TDC"), "NameFiltre", Array("toto", "titi")) = False Then MsgBox "Pas trouvé"
End Sub
 
 
Public Function FiltrePivotTables(TDC, Champ As String, V) As Boolean
On Error Resume Next
Dim I As Integer
FiltrePivotTables = True
TDC.PivotFields(Champ).ClearAllFilters
For I = 1 To TDC.PivotFields(Champ).PivotItems.Count
Debug.Print TDC.PivotFields(Champ).PivotItems(I).Name
    For f = 0 To UBound(V)
        If Trim("" & TDC.PivotFields(Champ).PivotItems(I).Name) <> Trim("" & V(f)) Then
            TDC.PivotFields(Champ).PivotItems(I).Visible = False
            If Err Then FiltrePivotTables = False: Exit Function
        Else
            TDC.PivotFields(Champ).PivotItems(I).Visible = True
            Exit For
        End If
    Next
Next
 On Error GoTo 0
End Function

[crookix]

Merci rdurupt je test ça !

Par contre, à quoi correspond V, un des paramètres de ta fonction ?

So j'ai bien compris, c'est un array des différentes valeurs possibles de mon étiquettes de lignes, mais le problème est que j'ai une cinquantaine d'agents, dois-je tous les écrire ?

[Invité]

v est le tableau des valeur à filtrer.

si tu as une centaine d'agents, j'imagine que tu les connais via un ongle Agents?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim Agents()
Dim I As Long, IdxAgent As Long
Dim RangeAgents As Range
Set RangeAgents = ActiveWorkbook.Sheets("Agents").UsedRange
For I = 2 To RangeAgents.Rows.Count
    ReDim Preserve Agents(IdxAgent)
    Agents(IdxAgent) = RangeAgents(I, 3) ' I la ligne , 3 la colonne
    IdxAgent = IdxAgent + 1
Next
If FiltrePivotTables(ActiveSheet.PivotTables("TDC"), "NameFiltre", Agents) = False Then MsgBox "Pas trouvé"
End Sub