Menu

Tri de 2 colonnes en vba [Résolu]

Messages postés
22
Date d'inscription
mardi 19 février 2019
Statut
Membre
Dernière intervention
10 avril 2019
- - Dernière réponse : JCB40
Messages postés
570
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2019
- 3 avril 2019 à 16:42
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
Afficher la suite 

Votre réponse

3 réponses

Messages postés
15780
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
18 avril 2019
3646
0
Merci
Bonjour,

pourquoi en VBA ?

"avant de penser VBA penser Excel" et en Excel, c'est du niveau débutant

Ta demande sent l'exercice scolaire.... A la rigueur, tu utilises l'enregistreur de macros et tu élagues pour avoir du VBa
JulienHch
Messages postés
22
Date d'inscription
mardi 19 février 2019
Statut
Membre
Dernière intervention
10 avril 2019
-
parce que je dois faire de l'affichage dynamique, et qui dit affichage dynamique, dit complétement automatisé.

je sais à peu près quelles propriétés utiliser mais je n'arrive pas à les mettre en application

Range(....).sort, xldescending

je penses
Commenter la réponse de michel_m
Messages postés
570
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2019
56
0
Merci
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
JulienHch
Messages postés
22
Date d'inscription
mardi 19 février 2019
Statut
Membre
Dernière intervention
10 avril 2019
-
merci pour la réponse cependant,
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
JulienHch
Messages postés
22
Date d'inscription
mardi 19 février 2019
Statut
Membre
Dernière intervention
10 avril 2019
-
non ok c'est bon, j'ai modifié un paramètre et cela fonctionne, merci JCB40 :)
Commenter la réponse de JCB40
Messages postés
570
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2019
56
0
Merci
Si la solution te convient passe le sujet en résolu
A+
Commenter la réponse de JCB40