Tri

[Animatrix]

Salut à tous !!

Je cherche à trier une plage de cellule de A2, jusqu'à J Infini.
Le tri doit se faire sur la colonne G (à partir du 2nd élément)
Car le 1er est le titre.

J'ai mis ce code :

Sheets("Feuille1").Range("A2:J3000").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Mais il ne fait rien, pourriez-vous m'indiquer mon erreur ?

Merci

 

[skoobi]

Re : Tri

Bonjour,

modifie comme ceci:

Sub tri()
Sheets("Feuille1").Range("A[B][COLOR=Blue]1[/COLOR][/B]:J3000").Sort Key1:=Range("G[COLOR=Blue][B]1[/B][/COLOR]"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[RENAUDER]

Re : Tri

Bonjour,
Si c'est déjà trié c'est normal qu'il ne fasse rien.
Le code est bon sauf que
je mettrai plutôt Range("A1:J3000")

 

[Animatrix]

Re : Tri

Merci, cela venait bien de là.
J'aimerais bien trier sur une autre colonne.

Dois-je refaire une instruction ?
Ou puis-je tout écrire en une seule ?

Et j'ai une autre question : sachant que ma liste est triée, j'aimerais savoir le nombre d'occurences d'un élément.
J'ai pensé faire une recherche puis faire un while.
Le problème c'est que la recherche me retourne une adresse et je ne sais pas comment la manipuler avec un while

Merci

 

[Animatrix]

Re : Tri

Je me répond tout seul pour la première question :

Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, Key2:=Range("F1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Mais je ne sais pas pour la seconde.

 

[skoobi]

Re : Tri

Re,

Mais je ne sais pas pour la seconde.

regarde cette discussion