Fonction tri alphabétique d'un tableau de chaîne de caractères

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 457 fois - Téléchargée 26 fois

Contenu du snippet

Il s'agit de la méthode la plus simple.

J'en avais besoin pour trier des tableaux courts, de moins de 30 éléments, et en cherchant sur ce site, je n'ai trouvé que des fonctions optimisées, récurrentes..

Donc voici ce que j'ai fini par faire.

Complexité : n! pour un tableau de n chaînes.

Source / Exemple :


Sub TriAlpha(stringTab As Variant)
    Dim var_tampon As String    For i = UBound(stringTab) To 1 Step -1
        For j = 0 To i - 1
            If stringTab(j) > stringTab(j + 1) Then
            var_tampon = stringTab(j)
            stringTab(j) = stringTab(j + 1)
            stringTab(j + 1) = var_tampon
            End If
        Next j
    Next i
End Sub

'test :

Sub TestTriAlpha()
    Dim jours, semaine
    jours = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
    
    semaine = ""
    For i = 0 To UBound(jours)
        semaine = semaine & jours(i) & " "
    Next i
    MsgBox semaine
    
    Call TriAlpha(jours)
    
    semaine = "Semaine triée : "
    For i = 0 To UBound(jours)
        semaine = semaine & jours(i) & " "
    Next i
    MsgBox semaine
        
End Sub

A voir également

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.