Tri tres rapide alphanumerique

Commenter

Contenu du snippet

Voila c tres court, tres rapide et surtout tres efficace.

fonctionne assurement avec vb 5 et 6 (de toute facon il n'y a rien de complique donc je pense que ca marche aussi avec les autres versions)

je considere ici que les donnees a trier sont dans un tableau (W_Tableau) et que la variable Maxi correspond au nombre d'enregistrement dans ce tableau.
il ne faut pas oublie non plus la variable Temp qui est a declarer en string.

Source / Exemple : 


Ordre croissant :

While I <= Maxi
    J = I
    K = J + 1
    While K <= Maxi
        If W_Tableau(K) < W_Tableau(J) Then
            J = K
        End If
        K = K + 1
    Wend
    If J <> I Then
        Temp = W_Tableau(J)
        W_Tableau(J) = W_Tableau(I)
        W_Tableau(I) = Temp
    End If
    I = I + 1
Wend

ordre decroissant :

While I <= Maxi
    J = I
    K = J + 1
    While K <= Maxi
        If W_Tableau(K) > W_Tableau(J) Then
            J = K
        End If
        K = K + 1
    Wend
    If J <> I Then
        Temp = W_Tableau(J)
        W_Tableau(J) = W_Tableau(I)
        W_Tableau(I) = Temp
    End If
    I = I + 1
Wend

Conclusion :


g mis ce code car en cherchant sur vbfrance je n'ai rien trouve de plus performant. cependant je n'ai pas tout regarde donc si vous connaissez un code comme celui-ci ou mieux, ce serai gentil de me donner le nom de la source.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Laruche82)