Tri de 2 colonnes en vba
Résolu
JulienHch
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
Bonjour
Je dispose de deux colonnes A et B
Dans la colonne A se trouve du texte et dans la colonne B des chiffres
J'aimerai les trier par ordre décroissant
Exemple:
Colonne A
N°1
N°2
N°3
Colonne B
10
12
9
Je voudrais avoir au final :
Colonne A
N°2
N°1
N°3
Colonne B
12
10
9
Merci :)
Cdlmnt
Je dispose de deux colonnes A et B
Dans la colonne A se trouve du texte et dans la colonne B des chiffres
J'aimerai les trier par ordre décroissant
Exemple:
Colonne A
N°1
N°2
N°3
Colonne B
10
12
9
Je voudrais avoir au final :
Colonne A
N°2
N°1
N°3
Colonne B
12
10
9
Merci :)
Cdlmnt
A voir également:
- Excel vba trier plusieurs colonnes
- Trier colonne excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Déplacer colonne excel - Guide
- Liste déroulante excel - Guide
- Comment faire des colonnes sur word - Guide
3 réponses
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
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