tableau croisé et sélection

[cyrus55160]

Bonjour,

J'ai un tableau croisé dynamique et je voudrais réaliser un graphique dynamique mais en prenant seulement les cind ou six premieres valeurs du tableau.Les données ainsi que la création du tableau, j' arrive à le faire en auto avec une macro mais pas le choix des cinq ou six premieres valeurs.
Est il possible de réaliser ce choix en vb?

Merci

 

[jmd2]

Re : tableau croisé et sélection

hello

si tu y arrives en manuel, essaye l'enregistreur de macro, excellent pour avoir des idées en VBA

*****

 

[kjin]

Re : tableau croisé et sélection

Bonsoir,

Bonjour,
...J'ai un tableau croisé dynamique et je voudrais réaliser un graphique dynamique mais en prenant seulement les cind ou six premieres valeurs du tableau....

Ca veut dire quoi précisémment ?
A+
kjin

 

[cyrus55160]

Re : tableau croisé et sélection

Re,

en fait lorsque l'on fait un tableau dyn, on peut choisir,pour un des éléments dans le tableau si l'on veut afficher tout ou alors on coche les éléments que l'on veut(via le menu déroulant sur la case de l'élément). Je voulais savoir s'il était possible de choisir les cinq ou six premières lignes sans passer par le menu déroulant et sans décocher les éléments manuellement.

Merci

 

[jmd2]

Re : tableau croisé et sélection

re

l'enregistreur de macro fonctionne, teste-le pour voir
par contre la macro enregistrée va cocher (ou décocher) des valeurs, et pas "les 5 premières valeurs"
à toi de voir, je sèche pour aller plus loin

*****

 

[Catrice]

Re : tableau croisé et sélection

Bonjour,

Je n'ai pas tres bien compris ce que tu veux faire (quelles données tu voulais masquer) mais le code suivant permet de masquer les 6 premiers PivotItems :

Sub Test()
i = 1
For Each X In ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("CAUSE ").PivotItems
If i <= 6 Then
If X.Visible = False Then X.Visible = True
Else
If X.Visible = True Then X.Visible = False
End If
i = i + 1
Next
End Sub

Il faut tester chaque Items car on ne peut pas les forcer à True lorsqu'ils sont dejà à True (pareil pour False)

 

[cyrus55160]

Re : tableau croisé et sélection

Merci à tous,

j'ai trouvé l'option affichage des 10 premiers dans le menu tab croisé dyn(Tri et top 10).Je l'avais pas vu.

Bonne journée.