Discussion :

[informer]

Bonjour à tous

Cela devait être très simple mais cela se complique quand je lance le code suivant car sur

Code :

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

  .Apply '---> Msg Erreur 'Sort reference is not valide. Make sure that it's within the data you want to sort...'

le code en entier

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
Private Sub CommandButton1_Click()
 
    Dim oRg As Range
 
    Set oRg = ActiveSheet.Range("A1").CurrentRegion
    Debug.Print oRg.Address '--> Selectionne bien la plage voulue
 
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add _
          Key:=oRg, SortOn:=xlSortOnValues, Order:=xlAscending, _
          DataOption:=xlSortNormal
 
    With ActiveSheet.Sort
       .SortFields.Add Key:=Range("B1"), Order:=xlAscending
       .SetRange oRg
       .Header = xlYes
       .Apply '---------------------------------> Msg Erreur 'Sort reference is not valide. Make sure that it's within the data you want to sort...'
    End With
End Sub

Merci de votre aide sur l'erreur à corriger dans le code

[ARTURO83]

Bonjour,

il faut répeter la ligne "ActiveSheet.Sort.SortFields.Clear" avant de faire le deuxième tri

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 CommandButton1_Click() 
    Dim oRg As Range
    Set oRg = ActiveSheet.Range("A1").CurrentRegion
    Debug.Print oRg.Address
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=oRg, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 
    ActiveSheet.Sort.SortFields.Clear
    With ActiveSheet.Sort
       .SortFields.Add Key:=Range("B1"), Order:=xlAscending
       .SetRange oRg
       .Header = xlYes
       .Apply
    End With
End Sub

Cdlt

[Menhir]

Pour les tri de moins de trois critères, je conseille d'utiliser la méthode Sort de Range, plus simple que celle de Worksheet.
Elle correspond à la commande de tri des anciennes version d'Excel mais fonctionne très bien et sur une seule ligne de code.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

[informer]

Merci à tous les deux pour votre aide qui m'a permis de résoudre mon problème.

Pour info, j'ai utilisé la méthode simple en utilisant la méthode sort sur l'objet range même si après modification la méthode sur activeSheet fonctionnait aussi.