Discussion :

[semas]

Bonjour,

J'ai créé un code permettant de traiter des données et de creer un TCD.
Une fois ce TCD creer j'aimerais trier les données.

Voila mon code qui crée le tCD:

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
23
24
 
Sub CreerTCD1()
 
    Dim DerCol As Integer, DerLig As Long, CelAdr As String
 
    DerCol = shtPoidsSem.Cells(1, Columns.Count).End(xlToLeft).Column
    DerLig = shtPoidsSem.Range("A" & Rows.Count).End(xlUp).Row
    CelAdr = Cells(DerLig, DerCol).Address
 
    shtPoidsSem.Select
    Range("A1").Select
    ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    shtPoidsSem.Range("A1:" & CelAdr).Address(, , xlR1C1, True)).CreatePivotTable _
    Sheets("Graf Sem").Range("A2"), TableName:="TCD1"
    Sheets("Graf Sem").PivotTables("TCD1").SmallGrid = False
    Sheets("Graf Sem").PivotTables("TCD1").AddFields RowFields:="Almacén"
    With Sheets("Graf Sem").PivotTables("TCD1").PivotFields("Neto Báscula")
        .Orientation = xlDataField
        .Caption = "Promedio de neto"
        .Function = xlAverage
    End With
    Application.CommandBars("PivotTable").Visible = False
 
End Sub

Je voulais mettre un xlsortvalues mais ca ne marche pas avez vous une idée de comment je peux faire?

Merci d'aider un debutant.

[zert84]

Bonjour semas,

je travaille également sur une macro qui produit et trie des TCD. Je trie mon TCD à l'aide de listes personnalisées (customlist). Voici en gros ma procédure.
Dans ce cas présent la liste personnalisée est fixe. mais tu peux aussi définir une liste au cas par cas en précisant une plage de cellule où se trouve ta liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'ajout d'une liste personnalisée
Application.AddCustomList ListArray:=Array("aa", "cc", "bb", "jj", "ee", "ff", "gg", "mm")
'obtention de son numéro de référence
    n = Application.GetCustomListNum(Array("aa", "cc", "bb", "jj", "ee", "ff", "gg", "mm")) + 1
 
'sélection de la page où se trouve ton TCD et ensuite sélection de l'onglet via lequel tu veux trier ton TCD dans mon cas il se trouvait en A5
 
Worksheets("TCD").Select
Range("A5").Select
Selection.Sort Order1:=xlAscending, Header:=xlGuess, _
Type:=xlSortLabels, OrderCustom:=n, Orientation:=xlTopToBottom

Bon courage.

[semas]

Merci, mais il n'existe pas une fonction toute simple?

Le TCD que j'ai à trier fait 10 lignes (10 magasins) et une colonne qui est le poids moyen. et je veux trier par poids croissant.

[zert84]

Dans ce cas essaye ça

Code :

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

1
2
3
4
 
Range("cellule").Select
    Selection.Sort Order1:=xlAscending, Type:=xlSortLabels, OrderCustom:=1, _
        Orientation:=xlTopToBottom

Avec cellule , les coordonnées de la cellule où se trouve l'onglet de ta colonne de poids.

[semas]

J'ai essayé ton code en mettant à la place de cellule B3 mais ca ne marche pas.

[zert84]

essaye de faire la macro manuellement en l'enregistrant, et regarde le code que cela va te donner, et en fonction t'adaptes.

Sinon essaye ça

Code :

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

1
2
3
4
 
Worksheets("Tableaux").Select
    Range("B110").Select
    Selection.Sort Order1:=xlAscending, Type:=xlSortLabels, Orientation:=xlTopToBottom

En changeant Tableaux et B110 par ce qui correspond à ton TCD

[semas]

Je l'ai fait mais ca bloque.

Voila le code qu'il me donne et une fois adapté:

Code :

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

1
2
3
4
 
ActiveSheet.PivotTables("TCD1").PivotFields("Almacén").AutoSort _
    xlDescending, "Promedio de Neto Báscula", ActiveSheet.PivotTables( _
    "TCD1").PivotColumnAxis.PivotLines(1), 1

erreur 1004, on peut obtenir la proprieté pivottables de la classe worksheet

essaye de faire la macro manuellement en l'enregistrant, et regarde le code que cela va te donner, et en fonction t'adaptes.

Sinon essaye ça

Code :

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

1
2
3
4
 
Worksheets("Tableaux").Select
    Range("B110").Select
    Selection.Sort Order1:=xlAscending, Type:=xlSortLabels, Orientation:=xlTopToBottom

En changeant Tableaux et B110 par ce qui correspond à ton TCD

Erreur 1004, erreur dans la methode sort de la classe range