XL 2013 Tri Données key2 et key3

  • Initiateur de la discussion Initiateur de la discussion GADENSEB
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
Code:
.Range("A1:S" & ii).Sort key1:=.[b1]
là je bloque j'ai peur de faire une bêtise dans ma Bdd.
 
Hello
avec ceci peut etre..

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
780
Réponses
2
Affichages
771
Réponses
29
Affichages
3 K
Réponses
14
Affichages
1 K
Retour