Discussion :

[gegadin]

Bonjour

Après plusieurs recherches infructueuses, je souhaiterai avoir votre opinion. Comment feriez vous pour ouvrir des fichiers (en ce qui me concerne, des .doc) par ordre alphabétique (l'idée étant de les copier puis de les coller par ordre alphabétique) ? D'après ce que j'ai compris, il faut créer un tableau de données...Et là, je n'ai absolument aucune idée de la marche à suivre, mes compétences sont largement dépassées. Pourriez vous m'aider à résoudre ce problème, si le coeur vous en dit ?

En vous remerciant

[EvaristeGaloisBis]

a brule pour point j'ai bien une idée mais elle risque de ne pas etre très performante. En fait un mot est un nombre particulier :
- il ne s'ecrit pas avec des chiffres habituels
- il est en base 27.
Donc tu peux faire une fonction qui convertit de base 27 en base 10, et son inverse.
Après chaque nom tu le transformes en nombre, et tu tries le tableau de nombre. Pour finir tu reconverti tes chiffres en base 26. AB = 27*1+2=29, BA=2*27+1=55. Tu as bien AB<BA

Problemes de la méthode :
- elle est lente
- elle genere des chiffres très vite immense (par exemple le mot de 6 lettres : "AAAAAA" donnera n=14.900.788, pour info la taille max d'un long est 2.147.483.647)
- elle ne tient pas du tout compte des nom ayant des accens, des caracteres spéciaux (_,@,%,.) et les chiffres, et la casse des caracteres (mais cela peut se corrigier facilement).

[EvaristeGaloisBis]

Je viens aussi de me souvenir que le vb permet la comparaison directe entre chaines de caracteres.
Tu peux faire stMaChaine1<stMaChaine2,il acceptera.

Code :

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

1
2
3
4
5
6
7
Sub tt()
Dim stMaChaine1 As String, stMaChaine2 As String
stMaChaine1 = "Toto3"
stMaChaine2 = "Toto2"
 
Debug.Print stMaChaine1 < stMaChaine2
End Sub

donc il te faut juste faire un algorithme de tri classique.