Microsoft 365 Tableau croisé dynamique

JNC-DEV

XLDnaute Occasionnel
Supporter XLD
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.
 

Pièces jointes

  • CARNET DE COMMANDES JPG.xlsx
    79.8 KB · Affichages: 7

bsalv

XLDnaute Occasionnel
bonjour,
on peut utiliser une code VBA
Code:
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
 

Pièces jointes

  • CARNET DE COMMANDES JPG.xlsb
    80.5 KB · Affichages: 6

Discussions similaires

Réponses
3
Affichages
452

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG