GADENSEB
XLDnaute Impliqué
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
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