Tri de 2 colonnes en vba
Résolu/Fermé
JulienHch
Messages postés
22
Date d'inscription
mardi 19 février 2019
Statut
Membre
Dernière intervention
10 avril 2019
-
3 avril 2019 à 09:57
JCB40 Messages postés 2709 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 26 mars 2023 - 3 avril 2019 à 16:42
JCB40 Messages postés 2709 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 26 mars 2023 - 3 avril 2019 à 16:42
3 réponses
JCB40
Messages postés
2709
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
26 mars 2023
460
Modifié le 3 avril 2019 à 11:51
Modifié le 3 avril 2019 à 11:51
Bonjour
A tester
A mettre dans un module de la feuille et adapter à la feuille
Sub tri()
'
' tri Macro
'
Sheets("Feuil1").Range("A1:B10").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:B10")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Cordialement
A tester
A mettre dans un module de la feuille et adapter à la feuille
Sub tri()
'
' tri Macro
'
Sheets("Feuil1").Range("A1:B10").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:B10")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Cordialement
3 avril 2019 à 15:23
les deux colonnes sont triées séparément, hors je veux que la Colonne A et la colonne B soient triées en fonction de la colonne B
3 avril 2019 à 15:35