Microsoft 365 Tableau croisé dynamique

[JNC-DEV]

Bonjour à tous.
Je joins en copie un fichier excel commandes clients et je voudrai réaliser un tableau croisé dynamique avec les lignes dans l'ordre du fichier si possible bien sur.
Un très grand merci.

 

[JHA]

Bonjour à tous,

Il est peut-être possible d'ajouter un index pour garder l'ordre du tableau d'origine.
TCD à compléter

JHA

 

[bsalv]

bonjour,
on peut utiliser une code VBA

Sub Sequence()
     Dim Dict, i, aKeys
     Set Dict = CreateObject("scripting.dictionary")
     Dict.comparemode = vbTextCompare

     aa = Sheets("commandes").Range("A1").CurrentRegion.Columns(1).Value
     For i = 2 To UBound(aa)
          If Len(aa(i, 1)) > 0 Then Dict(aa(i, 1)) = vbEmpty 'records unique de "Nom/Enseigne/Raison sociale"
     Next

     With Sheets("blad1")
          .Columns("A").ClearContents 'RAZ
          If Dict.Count Then
               aKeys = Dict.keys
               .Range("A5").Resize(Dict.Count).Value = Application.Transpose(aKeys) 'coller ces valeurs (pas nécessaire)
               With .PivotTables(1).PivotFields("Nom/Enseigne/Raison sociale") 'boucle les items
                    For i = UBound(aKeys) To 0 Step -1
                         .PivotItems(CStr(aKeys(i))).Position = 1
                    Next
               End With
          End If
     End With
End Sub

 

[JNC-DEV]

Bonjour,
Un très grand merci à vous.