tri (fonction Sort)

Bonjour à tous,
Voici une question sur laquelle de bute depuis quelques jours : Si je fais un tri par une macro avec « Données / Trier » je n’obtiens pas la même chose que si je fais un tri par une comparaison directe avec « < ».

Voici ma question : Comment faire un tri par la fonction SORT (ou une autre fonction) qui donne un résultat identique à un tri par comparaison directe ?
Je donne les exemples au bas message.
Merci par avance.
RéviAT

Liste d’entrée :
avoir
a fortiori
ô
à jeun
b
boire
aa
µ
£
île
a

Macro de tri par SORT :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub TrieParTri() Application.ScreenUpdating = False ' Programme de trie par la fonction Tri Dim nbLignes As Long, noPlusPetit As Long, Truc As String Sheets("Liste").Select Columns("A:A").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

---

Résultat :

£
µ
a
a fortiori
à jeun
aa
avoir
b
boire
île
ô

Sous-programme de tri par comparaison :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub TrieParComparaison() Application.ScreenUpdating = False ' Programme de trie de la première colonne (par comparaison) Dim nbLignes As Long, noPlusPetit As Long, Truc As String Sheets("Liste").Select nbLignes = Range("A65536").End(xlUp).Row For i = 2 To nbLignes - 1 Truc = Cells(i, 1).Formula noPlusPetit = i For j = i + 1 To nbLignes If Cells(j, 1).Formula < Truc Then Truc = Cells(j, 1).Formula noPlusPetit = j End If Next j If noPlusPetit <> i Then Truc = Cells(i, 1).Formula Cells(i, 1).Formula = Cells(noPlusPetit, 1).Formula Cells(noPlusPetit, 1).Formula = Truc End If Next i End Sub

---

Résultat :

a
a fortiori
aa
avoir
b
boire
£
µ
à jeun
île
ô

La méthode Sort trie dans l'ordre "humain", chiffres, caractères spéciaux, lettres.

Le tri manuel est basé sur le code Ascii.

Salut RéviAT

Citation:

---

Voici ma question : Comment faire un tri par la fonction SORT (ou une autre fonction) qui donne un résultat identique à un tri par comparaison directe ?

---

Va faire un tour dans l'aide voir si l'utilisation de Option Compare binary peut résoudre ton problème (j'ai pas essayé)
ou emettant MatchCase:=True à la place de MatchCase:=False


Dans tout les cas, tu te prépares des douces nuits à t'arracher les cheveux :P

Code:

---

1 2 3 4 5 6 7 8

Sub TrieParTri() Application.ScreenUpdating = False Dim nbLignes As Long, noPlusPetit As Long, Truc As String Sheets("Liste").Select Columns("A:A").Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

---

C'est la macro que tu as donnée (presque)
Donc, comme tu as bien lu que SceenUpDating pouvait t'aider à accélérer la macro, tu le mets à FALSE. Jusqu'ici, tout va bien (comme se disait le cambrioleur tombant du 25ème étage en passant devant le 3me)

Le champ d'application de cette instruction étant Excel, Tant qu'excel ne sera pas relancé ou que VBA n'exécutera pas l'instruction :
Application.SceenUpDating = True, tu n'aura pas de rafraîchissement écran. Et comme l'écran est loin, j'ai du mal à la trouver cette instruction :mouarf:. Mais peut-être qu'en nettoyant mes lunettes...:P

A+

Non, ce n'est pas si complexe que ça. Tu as la possibilité de réaliser un tri personnalisé.
Consiste à définir la liste dans laquelle tu souhaites voir tes données triées
Cette liste tu la places cellule par cellule dans une colonne
Une fois réalisée, tu la sélectionnes
Dans Option, tu vas dans l'onglet Liste pers. et tu l'ajoutes aux listes existantes par défaut.
Ex

Citation:

---

!
"
#
$
%
&

(
)
*
+
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K

---

Une fois fait, pour réaliser ton tri selon cette liste, tu fixes le N° d'ordre de cette liste (dans mon exemple "OrderCustom:=10") cette nouvelle liste étant "chez moi" la dixième des listes personnalisées.

Code:

---

1 2 3

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=10, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

Jète un oeil dans "Trier une liste" dans l'aide en ligne, c'est très bien expliqué ;)

Merci de votre aide.
Comme je ne veux pas passer de douces nuits à l'arracher les cheveux, je vais faire un compris.
Je vais faire d'abord un Sort général, puis pour groupe de mots ayant la même lettre je vais faire un tri par comparaison, et enfin je vais reclasser les groupes par comparaison de la première.
Autant dire qu'il me faut du courage.
A bientôt et encore merci.
RéviAT

Tu as lu ma solution ? Elle est tout de même plus simple.
Tu peux obtenir une liste de A à z ainsi et tous les autres caractères
Ensuite tu nettoies

Code:

---

1 2 3

For i = 64 To 255 Cells(i - 63, 1) = Chr(i) Next

---

Tu peux aussi commencer ta boucle avant les numériques (48)

Je vais essayer le tri personnalisé, selon le conseil apprécié de ouskel'n'or.
Cela me semble être la voie du succès.
Merci encore.
A bientôt à tous.
RéviAT