Tri

skoobi

XLDnaute Barbatruc

• 18 Octobre 2008

• #2

Re : Tri

Bonjour,

modifie comme ceci:

Code:

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

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 18 Octobre 2008

• #3

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")

 

Vote positif 0 Vote négatif

A

Animatrix

Guest

• 18 Octobre 2008

• #4

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

 

Dernière modification par un modérateur: 18 Octobre 2008

Vote positif 0 Vote négatif

A

Animatrix

Guest

• 18 Octobre 2008

• #5

Re : Tri

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

Code:

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.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Octobre 2008

• #6

Re : Tri

Re,

Mais je ne sais pas pour la seconde.

Cliquez pour agrandir...

regarde cette discussion

 

Vote positif 0 Vote négatif