XL 2019 Trier les lignes d'un tableau
- Initiateur de la discussion bobafric
- Date de début
Solution
On va finir par converger ... 
En PJ un essai avec :
En M1 il y a le temps d'éxécution pour 500 lignes, sur mon PC ça prends autour de 35ms.
En PJ un essai avec :
VB:
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
djidji59430
XLDnaute Barbatruc
Bonjour à tous,
remets ton fichier avec le resultat attendu
Crdlmt
remets ton fichier avec le resultat attendu
Crdlmt
Bonjour Bobafric, Djidji,
Sans plus de précision, faites donc un "Trier" sur votre tableau.
djidji59430
XLDnaute Barbatruc
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 !!
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?
... 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 ?
Quelle(s) règle(s) doit on suivre ?
Excusez-moi je n'avais pas contrôlé le fichier joint corrigé
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.
On va finir par converger ...
En PJ un essai avec :
En M1 il y a le temps d'éxécution pour 500 lignes, sur mon PC ça prends autour de 35ms.
En PJ un essai avec :
VB:
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
Solution
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
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 :
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 :
VB:
If T(L, C) > T(L, C2) Then
en
If LCase(T(L, C)) > LCase(T(L, C2)) ThenDiscussions similaires
- Question
- Résolu(e)
