XL 2019 Trie par Niveaux

[LE BLEVEC]

bonjour
sur excel 2019, je voudrais faire des tries avec plusieurs niveaux
je trie par série de A à Z ça fonctionne puis par poste de A à Z ça ne fonctionne pas
je ne sais pas pourquoi
merci
Camille

 

[wDog66]

Bonjour LE BLEVEC

Bien sur que si, ça fonctionne 🤔 🙄

C'est plutôt dans votre tête, que ça ne fonctionne pas bien (joke) 🤭😜

Que voulez-vous avoir comme résultat ?

 

[JHA]

Bonjour à tous,

Avec le mode tableau de tes données.
A essayer

JHA

 

[Rheeem]

la colonne Série c'est la cellule F1
la colonne Poste c'est la cellule G1
ajouter ces deux clé dans l'ordre de pour faire le tri par Série et après par Poste pour les lignes ayant la même série

    With Worksheets("Fiche planning tir24-25").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("F1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("G1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin

        .SetRange Worksheets("Fiche planning tir24-25").UsedRange
        
        .Apply
    End With

 

[LE BLEVEC]

la colonne Série c'est la cellule F1
la colonne Poste c'est la cellule G1
ajouter ces deux clé dans l'ordre de pour faire le tri par Série et après par Poste pour les lignes ayant la même série

    With Worksheets("Fiche planning tir24-25").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("F1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("G1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin

        .SetRange Worksheets("Fiche planning tir24-25").UsedRange
       
        .Apply
    End With

merci

 

[Jean-Eric]

Bonjour,
Une autre proposition. Les données sont sous forme de tableau structuré.
Cdlt.

Public Sub SortData()
Dim TD As Range

    Set TD = Range("T_Planning")
    
    If TD.ListObject.DataBodyRange Is Nothing = False Then
        With TD.ListObject.Sort
            .SortFields.Clear
            .SortFields.Add Key:=TD(0, 6)
            .SortFields.Add Key:=TD(0, 7)
            .Header = xlYes
            .Apply
        End With
    End If
    
    Set TD = Nothing
    
End Sub

 

[LE BLEVEC]

Bonjour,
Une autre proposition. Les données sont sous forme de tableau structuré.
Cdlt.

Public Sub SortData()
Dim TD As Range

    Set TD = Range("T_Planning")
   
    If TD.ListObject.DataBodyRange Is Nothing = False Then
        With TD.ListObject.Sort
            .SortFields.Clear
            .SortFields.Add Key:=TD(0, 6)
            .SortFields.Add Key:=TD(0, 7)
            .Header = xlYes
            .Apply
        End With
    End If
   
    Set TD = Nothing
   
End Sub

 

[LE BLEVEC]

Bonjour,
Une autre proposition. Les données sont sous forme de tableau structuré.
Cdlt.

Public Sub SortData()
Dim TD As Range

    Set TD = Range("T_Planning")
   
    If TD.ListObject.DataBodyRange Is Nothing = False Then
        With TD.ListObject.Sort
            .SortFields.Clear
            .SortFields.Add Key:=TD(0, 6)
            .SortFields.Add Key:=TD(0, 7)
            .Header = xlYes
            .Apply
        End With
    End If
   
    Set TD = Nothing
   
End Sub

merci beaucoup
tres bien

 

[LE BLEVEC]

Bonjour à tous,

Avec le mode tableau de tes données.
A essayer

JHA

oui vous avez raison je me suis borné parce que ça ne commençais par 1
merci

 

[fanch55]

Bonjour à tous,
Pour aller dans la même direction que @Jean-Eric ,
Si le tri cible une Ts, on peut indiquer les colonnes "en clair" pour plus de lisibilité :

Public Sub SortData()
    With [T_Planning].ListObject.Sort
        .SortFields.Clear
        .SortFields.Add Key:=[T_Planning[Série]]
        .SortFields.Add Key:=[T_Planning[Poste]]
        .Header = xlYes
        .Apply
    End With
End Sub

Ceci permet également de déplacer une colonne sans perturber le code .
Par contre, ne pas renommer les colonnes ... sinon utiliser l'autre code 🤗