Discussion :

[Denis_67]

Bonjour,

J'aimerais afficher un TCD trié sur la date sans faire apparaitre la date ? est ce possible?

En effet j'ai des données détaillés (événements) mais je ne souhaite qu'afficher les totaux par article mais que ces articles apparaissent dans l'ordre où ils ont été traités.
or si j'affiche les dates, je ne peux les grouper
Si je les enlève c'est l'odre des articles qui est utilisé
mon tableau est bien activé sur tri sur source des données.
idées ?

Le détail à gauche le TCD avec les dates et ensuite le TCD sans les dates les articles sont triés sur leur N°


Ma solution actuelle et de trier les datas dans l'ordre du tri final et d'ajouter une colonne où j'incrémente une valeur chaque fois que je change d'article, mais ce n'est pas dynamqie

Par ailleurs j'avais vu il y a quelque temps comment réinitialiser tous les tris des filtres des TCD, mais je ne le retrouve plus, si ça vous dit quelque chose.

Grand Merci
Denis

[Gregdt]

Bonjour Denis,

J'ai tellement galéré pour vous trouver la solution que j'en suis assez fier.
Je vous pris de bien vouloir m'excuser par avance si ma réponse n'est pas claire.
Premièrement, j'ai pris des éléments au hasard, les dates n'en sont pas vraiment et j'ai basé mon tableau sur des nombres aléatoires, juste pour avoir de la "matière" sur laquelle je pouvais faire mes tests.

Quand je crée mon TCD, j'ai la possibilité de trier mes données comme suit :



La partie Filtres sur la gauche correspond dans mon cas à vos dates, qui n'apparaitront pas dans votre TDC final. J'ai eu un peu de mal pour arranger mes données dans mon TCD final mais en jouant un peu sur les différentes catégories, on arrive au résultat voulu.

Ensuite, vous faites un clic droit sur l'onglet de votre feuille Excel pour ouvrir le code de celle-ci.



Dans la page qui s'affiche, vous pouvez coller le code suivant :

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
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As Integer
    On Error Resume Next
    If Intersect(Target, Range("F8:F9")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Test").PivotTables("Tableau croisé dynamique15")
    Set xPFile = xPTable.PivotFields("Autre")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

En sachant que F8:F9 correspond dans mon cas à la valeur que je veux trier, Test est le nom de ma feuille Excel, Tableau croisé dynamique15 est le nom de mon TCD (que vous pouvez trouver en faisant un clic droit sur votre TCD, "Options du tableau croisé dynamique") et Autre est la colonne que je veux trier.

J'espère que j'ai pu vous aider,
N'hésitez pas à redemander si je ne suis pas clair,
Grégoire

[78chris]

Bonjour à tous

La solution de Gregdt est un filtre et non un tri il me semble

Pour ma part

• ou je mettrais la date dans une colonne en disposant le TCD comme ceci et masquerais la colonne
  
  
  
• ou bien, puisque qu'il n'y a qu'un élément par ligne, je restituerais sans TCD avec une requête PowerQuery (en add on sur 2013)

[Gregdt]

Bonjour,

En effet 78chris...je me suis un peu emporté sur ma solution...haha
Bonne journée,
Grégoire