XL 2013 Tri Données key2 et key3

[GADENSEB]

Bonjour,
une question toute bête sur un tri de données en cascade.
aujourd'hui je tri uniquement sur la colonne B

dans l'idéal je voudrais que se soit en cascade (key1, key2, key3) sur les colonnes (par ordre croissant)
B
F
K
Je ne sais pas par ou modifier le code

qqn aurait une idée?
Merci à vous

Sub Tridonnées()
Dim ii%
If Not InitFait Then Initialisation
Désactivation_App
'Supprime les Filtres
With shC
ii = .[b65000].End(xlUp).Row
If .FilterMode Then .ShowAllData
'Tri de la BDD par dates ascendantes
.Range("A1:S" & ii).Sort key1:=.[b1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom
End With
'Activation_App

End Sub

 

[vgendron]

Bonjour

suffit peut etre d'utiliser l'enregistreur de macro..
ex:
Range("A2:C79").Select
ActiveWorkbook.Worksheets("ListeRep").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ListeRep").Sort.SortFields.Add Key:=Range("B2:B79" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("ListeRep").Sort.SortFields.Add Key:=Range("C2:C79" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("ListeRep").Sort.SortFields.Add Key:=Range("A2:A79" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

 

[GADENSEB]

Hello Vgendron
yes ! j'ai essayé l'enregisteur
et obtenu le mm résultat que toi.

ce que je ne suis pas à l'aise c'est de le compiler pour dans

.Range("A1:S" & ii).Sort key1:=.[b1]

là je bloque j'ai peur de faire une bêtise dans ma Bdd.

 

[vgendron]

Hello
avec ceci peut etre..

With shC
    ii = .[b65000].End(xlUp).Row
    If .FilterMode Then .ShowAllData
    'Tri de la BDD par dates ascendantes
    .Range("A1:S" & ii).Sort key1:=.[b1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom, _
    key2:=.[A1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom, _
    key3:=.[C1], order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom
  
End With

Essaie sur une copie de ton fichier, si tu as peur de ne pas pouvoir récuperer la situation initiale en cas de bug

 

[GADENSEB]

Hello
cela m'a l'air parfait :!
Merci à toi !
Bonne journée