Discussion :

[duduSKS]

Bonjour !

Alors voilà, j'ai créé tout un programme qui fait pleins de bidouilles pour récupérer des données. Jusqu'ici je m'en sortais. Mais je veux maintenant trier ces données suivant une colonne en me basant sur une liste de valeurs spécifique. J'ai donc utilisé l'enregistreur de macro et j'obtiens ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Columns("D:D").Select
ActiveWorkbook.Worksheets("05.10.039.3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("05.10.039.3").Sort.SortFields.Add Key:=Range(        "D1:D12"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="Chantier,Statut,CC,EC", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("05.10.039.3").Sort
    .SetRange Range("A1:AK12")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Que je modifie pour correspondre a mon code par :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Range("D1:D" & Range("A65536").End(xlUp).Row).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range( _
"D1:D" & Range("A65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= "Chantier,Statut,CC,EC", DataOption:=xlSortNormal
With ActiveSheet.Sort
     .SetRange Range("A1:AK12")
     .Header = xlGuess
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
End With

Le résultat : Les cellules sont bien sélectionnées mais le trie ne s'est pas fait. Par contre si je test de le faire à la main juste après ça fonctionne ben. Alors je ne comprends pas pourquoi le "trie ne se fait pas"....

Si quelqu'un comprend

[BlueMonkey]

Bonsoir,

Peut être le problème vient du fait que dans la ligne 6 de ton code, le nombre de ligne est fixe,
ou bien que la colonne A (utilisée pour calculer le nombre de ligne) est vide.

A essayer :

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
Sub MonTriColonneD()
    Dim nbligne As Long
    With Worksheets("05.10.039.3")
        nbligne = .Range("A" & Rows.Count).End(xlUp).Row
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("D1:D" & nbligne), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="Chantier,Statut,CC,EC", DataOption:=xlSortNormal
            .SetRange Range("A1:AK" & nbligne)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

[duduSKS]

Je l'ai testé mais malheureusement ça me fait la même chose, le trie ne se fait pas...

[eriiic]

Bonjour,

et si tu définis ta liste dans 'outils / options / listes pers.' (sur 2003) et que tu utilises celle-ci en tri tu as le même pb ?
Accessoirement un fichier de test serait le bienvenu.

eric

[duduSKS]

Si je le fait manuellement ça fonctionne. Même à la suite du traitement, le programme se termine, les cellules sont sélectionnées et si je clic sur Trier, les paramètres sont correctement renseignés et il me suffit de cliquer sur Ok pour que le trie se fasse.

[eriiic]

Re,

Je ne te parlais pas de le faire manuellement mais de te créer une liste personnalisée (dans les options) et de trier par macro selon cette liste personnalisée.
Je viens de tester avec :

Code :

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

Range("A1:B" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Header:=xlYes, OrderCustom:=8

ça marche bien chez moi (sur 2003).

eric