Discussion :

[Bourbaky]

Bonjour à tous,

Voilà après une recherche qui n’a rien donnée, je viens vers vous pour vous demander de l’aide.
Alors mon problème est le suivant : je voudrais faire un trie d’un tableau de " string " par ordre alphabétique. Et le problème c’est que dans VBA il n’existe pas la fonction "Array.Sort".
J’ai essayé sur la toile de trouver une ébauche de code mais cela est rester infructueux.
Ou bien je suis tombé sur une archive du Forum Développez avec un code de Mr Caféine (Celebre pour ces tutaux géniaux) qui faisait un trie sur plusieurs champs (trop compliquer pour mon modeste niveau)
Voilà si vous avez dans vos cartons une ébauche de code je suis preneur.

Merci de votre aide si précieuse.

Bourbaky

[zazaraignée]

S'agit-il d'un tableau en mémoire ou d'un Range sur une feuille ?

Pour un tableau en mémoire, faut le faire à bras. Fais une recherche sur le forum, dans les FAQ ou dans les source pour trouver un Algorithme de tri.

S'il s'agit de données sur une feuille de calcul, enregistre une macro qui fait le tri à l'aide du bouton Tri (ascendant ou descendant, selon) de la barre d'outils.

[jmfmarques]

Si le tri l'embête : il y a une méthode simple : Envoyer les éléments du tableau dans une listbox invisible avec sa propriété sorted = True puis reconstituer le tableau par une boucle.

[zazaraignée]

J'y avais pas pensé, à celle-là!

[ouskel'n'or]

Tu penses à rien...

S'il s'agit de données sur une feuille de calcul,

Y'en a dans Access ?

[jmfmarques]

Comme moi, j'ai lu, je cite :

c’est que dans VBA il n’existe pas la fonction "Array.Sort".

[zazaraignée]

Mouais, je viens juste de voir qu'il s'agit d'Access. Honte sur moi...

[ouskel'n'or]

Ton tri se fait sur des strings, ok, mais sont-ce des données alphabétiques ou peuvent-elles comporter des chiffres ?

A+

[SilkyRoad]

bonsoir

j'espere que cette macro pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'tri croissant du tableau de synthese
For i = 1 To UBound(tabSynthese)
    x = i
 
    For k = x + 1 To UBound(tabSynthese)
    If tabSynthese(k) <= tabSynthese(x) Then x = k
    Next k
 
    If i <> x Then
    ValTemp = tabSynthese(x): tabSynthese(x) = _
    tabSynthese(i): tabSynthese(i) = ValTemp
    End If
Next i
 
 
'controle le résultat du tri dans la fenetre d'execution
For i = 1 To UBound(tabSynthese)
Debug.Print tabSynthese(i)
Next i

bonne soiree
michel

[méphistopheles]

tu peu aussi prendre celle-ci (quicksort, beaucoup plus rapide (O( ln(x)) je crois)( au lieu de O( x ))):http://developpez.net/forums/showthread.php?t=121524

[Bourbaky]

Ca marche super bien !

Merci à toi SilkyRoad, j'ai utilisé ton code.
Celui donnée par Méphistophélès à l'air bien aussi je l'étudierais à mes heures perdu car je n'ai pas de contrainte de performance compte tenu du peu d'enregistrement que j'ai a trier...
Merci à tous les membres de Développez, ce site est vraiment le meilleur !
A très bientôt.

Cordialement Bourbaky