XL 2019 Trier les lignes d'un tableau

[bobafric]

Bonjour, comment trier par ordre alphabétique toutes les lignes d'un tableau. Ci-joint un exemple pour essai, mon tableau comporte 500 lignes.
Merci d'avance pour votre aide

 

[djidji59430]

Bonjour à tous,

remets ton fichier avec le resultat attendu

Crdlmt

 

[sylvanu]

Bonjour Bobafric, Djidji,

comment trier par ordre alphabétique toutes les lignes d'un tableau.

Sans plus de précision, faites donc un "Trier" sur votre tableau.

 

[djidji59430]

c'est bien pour ça que j'ai demandé quel resultat il attendait, parce que au vu du tri effectué de la sorte, j'ai rien compris !!

 

[bobafric]

Salut Djidji, salut Sylvanu je joint le fichier avec le résultat escompté, mais j'ai plus de 500 lignes et la solution de Sylvanu va être trop longue. N'y a t'il pas une solution par macro?

 

[sylvanu]

... encore un petit effort et vous nous expliquez ce que vous attendez par "trier par ordre alphabétique toutes les lignes" car dans votre fichier je ne vois pas de tri alpha.
Quelle(s) règle(s) doit on suivre ?

 

[bobafric]

Excusez-moi je n'avais pas contrôlé le fichier joint corrigé

 

[sylvanu]

Quelle(s) règle(s) doit on suivre ?

Désolé, mais je ne détecte aucun tri alpha.
CBDAE n'est pas le tri alpha de DAECB. ( ce serait ABCDE )
En colonne pareil.
Au mieux que j'ai trouvé c'est par le N° de colonne cela ferait 45123 soit bien CBDAE mais ça ne marche pas pour toutes les lignes.
Alors question simple :
Qu'appelez vous "trier par ordre alphabétique toutes les lignes" ?

Autre point, sauf erreur de ma part vos deux PJ sont identiques.

 

[bobafric]

Encore une erreur de fichier Sorry

 

[sylvanu]

On va finir par converger ... 😉
En PJ un essai avec :

Sub Trier()
    Dim T, T0, L, C, C2
    T0 = Timer
    T = [A1].CurrentRegion
    For L = 2 To UBound(T, 1)
        For C = 1 To UBound(T, 2)
            For C2 = C To UBound(T, 2)
                If T(L, C) > T(L, C2) Then
                    Buffer = T(L, C): T(L, C) = T(L, C2): T(L, C2) = Buffer
                End If
            Next C2
        Next C
    Next L
    [G1].Resize(UBound(T, 1), UBound(T, 2)) = T
    [M1] = 1000 * (Timer - T0)
End Sub

En M1 il y a le temps d'éxécution pour 500 lignes, sur mon PC ça prends autour de 35ms.

 

[bobafric]

Bravo Sylvanu, qu'est ce que j'aimerai savoir créer ces codes, tu dois te régaler. Je te dis à bientôt car je voudrai compléter ce thème. Mais là je dois partir, peut-être demain

 

[sylvanu]

Anoter cependant ( j'ai oublié de le préciser ) que le code tient compte de la casse. Le tri est dans l'ordre
0-9, A-Z, a-z, donc suppose que tout soit en majuscules ou minuscules.
Si la casse ne doit pas entrer en ligne de compte alors changez la ligne :

If T(L, C) > T(L, C2) Then
en
If LCase(T(L, C)) > LCase(T(L, C2)) Then