Discussion :

[Denis_67]

Bonjour,

Je cherche une solution pour sélectionner une valeur d'un tableau croisé (comme dans le filtre).

Dans l'exemple simplifié suivant, serait-il possible que sans passer par la sélection de données du tableau, on puisse soit afficher les ventes soit les achats.

La justification vient du fait que le choix du champ de valeur à afficher sera décidé par l'utilisateur à la vue du résultat global dans un autre tableau tableau dans lequel il compare deux périodes, s'il voit une dérive des ventes, il voudra voir la le détail des ventes, ou des achats.
Dans le vrai besoin, j'ai une 30aine de valeurs disparates et je ne peux
Pour l'instant j'envisage de faire une macro.
Merci pour vos suggestions.
Denis

PS "non ce n'est pas possible" est aussi une réponse utile !

[ARTURO83]

Bonjour,

Proposition:
Cliquez sur le graphique pour passer de "Ventes" à "Achats" et inversement, les champs sont permutés à tour de rôle et la colonne du champ indésirable est masquée.
le fichier
Pièce jointe 578918

Le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bascule()
    Application.ScreenUpdating = False
    If Range("G4").Value = "Somme de Achats" Then
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Achats").Orientation = xlHidden
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Ventes").Orientation = xlHidden
        ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ventes"), "Somme de Ventes", xlSum
        ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Achats"), "Somme de Achats", xlSum
    Else
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Achats").Orientation = xlHidden
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Ventes").Orientation = xlHidden
        ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Achats"), "Somme de Achats", xlSum
        ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ventes"), "Somme de Ventes", xlSum
    End If
End Sub

Cdlt

[Denis_67]

Merci Arturo,

Oui c'est ce que j'ai fait, mais je me demandais s'il n'y avait pas une autre astuce sans vb.
Denis

[ARTURO83]

Oui c'est ce que j'ai fait, mais je me demandais s'il n'y avait pas une autre astuce sans vb.

pourtant, j'avais crû comprendre!

Pour l'instant j'envisage de faire une macro.

[Denis_67]

oui, mais m'étant fait recadrer par certains, je ne demande jamais de code.

donc suite à ma demande initiale, je me suis mis au travail dans la soirée.

Mais ton travail m'a donné l'idée d'utiliser le clic sur le graph pour changer la valeur, donc ton travail m'est utile.

MERCI

Bonne journée
Denis

[Denis_67]

Arturo,

Mon vrai besoin contient beaucoup plus de champs de données.
Je voulais boucler sur les PivotsItems pour tous les fermer et rouvrir celui qui est sélectionné.

mon soucis c'est de ne fermer que les pivots.item de données.
si je boucle sur tous les PivotsItems il me fermer tout lignes, colonnes, données.

Sais tu quelle propriété je peux tester pour n'atteindre que les données ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim Pvit
 
With ActiveSheet.PivotTables("Tableau croisé dynamique3")
    .ClearAllFilters
    For Each Pvit In .PivotFields
     Pvit.Orientation = xlHidden
    Next
End With

Merci

[ARTURO83]

Bonjour,

Essayez ceci, sélectionnez le champ à afficher avec la liste déroulante en "J1".
Pièce jointe 578993

le code dans le module de la feuille

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Pvit
    Dim Champ
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Champ = Target.Value 'Le champ à afficher 'L champ sélectionné
    Som_Champ = "Somme de " & Champ 'Le champ à afficher
 
    'Vidage du TCD
    On Error Resume Next
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Somme de Achats").Orientation = xlHidden
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Somme de Ventes").Orientation = xlHidden
 
    'Affichage du champ sélectionné
    If Champ = "Tout" Then
        ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Achats"), "Somme de Achats", xlSum
        ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Ventes"), "Somme de Ventes", xlSum
    Else
        ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields(Champ), Som_Champ, xlSum
    End If
    Application.EnableEvents = True
End Sub

Cdlt

[Denis_67]

Merci Arturo,

Ta réponse est valable si on connait tous les champs.
Je cherche plutot une boucle pour d'abord cacher tous les affichés, puis afficher le sélectionné.
cela permet de généraliser le module à tous les TCD par la suite.

Merci
Denis

[PrinceCorwin]

Bonjour,

J'avais fait presque le même style de projet il y a longtemps.
Je compilais les informations dans des tableau (non TCD).

En colonne A, la concaténation des colonnes B..E


J'ai mis en place des noms avec des formules =DECALER(...) pour avoir les lignes de tableau


pour les choix des lignes, une liste déroulante (B2).


Est le numéro de la ligne équivalente au choix dans les cellules C4 et C5


Et dans le graphique

Les séries de données sont construites via les noms définis plus haut



Idem pour les détails. Avec les listes déroulantes, des formules EQUIV et le gestionnaire de noms (formule DECALER)
Deux listes déroulantes. La société et le type de composants



Sans une seule macro !

J'ai ensuite ajouté les capacités de production de notre atelier afin de "lisser" les besoins par rapport aux ressources.
En espérant que cela puisse vous aider dans votre réflexion.

[Denis_67]

Merci Prince,

C'est une solution qui mérite de s'y intéresser.

MErci pour les explications détaillées.
Bonnes journées.
Denis

[Philippe Tulliez]

Bonjour,
Pourquoi ne pas utiliser les segments à la place des filtres ?

[Denis_67]

Le pire, c'est que j'ai créé plein de segments !!!!

La lumière est toujours quelque part, il suffit d'ouvrir les yeux.

Merci Philippe

Merci à Arturo et à Prince pour leurs contributions intéressantes par ailleurs.

Denis