Trier les données d'un tableau (Liste() As String)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 54 473 fois - Téléchargée 7 fois

Contenu du snippet

Sub Tri(ByRef Liste() As String, bASC As Boolean)
    Dim i As Long, j As Long
    Dim Temp As String
    
    If bASC Then    '  croissant
        For i = LBound(Liste) To UBound(Liste) - 1
            For j = i + 1 To UBound(Liste)
                If Liste(i) > Liste(j) Then
                    Temp = Liste(j)
                    Liste(j) = Liste(i)
                    Liste(i) = Temp
                End If
            Next j
        Next i
    Else            ' décroissant
        For i = LBound(Liste) To UBound(Liste) - 1
            For j = i + 1 To UBound(Liste)
                If Liste(i) < Liste(j) Then
                    Temp = Liste(j)
                    Liste(j) = Liste(i)
                    Liste(i) = Temp
                End If
            Next j
        Next i
    End If
End Sub
'=================================
Sub Exemple_Utilisation()
    Dim i As Long
    Dim MyList(1 To 10) As String
    
    MyList(1) = "1"
    MyList(2) = "2"
    MyList(3) = "4"
    MyList(4) = "8"
    MyList(5) = "7"
    MyList(6) = "3"
    MyList(7) = "9"
    MyList(8) = "5"
    MyList(9) = "0"
    MyList(10) = "6"
    
    
    Debug.Print "TABLEAU AVANT  TRI  :"
    Debug.Print "==================="
    For i = LBound(MyList) To UBound(MyList)
        Debug.Print MyList(i)
    Next i
    
    Debug.Print ""
    Debug.Print "TABLEAU APRèS  TRI  CROISSANT :"
    Debug.Print "==================="
    Call Tri(MyList, True)
    For i = LBound(MyList) To UBound(MyList)
        Debug.Print "/" & MyList(i) & "\"
    Next i
    Debug.Print ""
    Debug.Print "TABLEAU APRèS TRI DéCROISSANT :"
    Debug.Print "==================="
    Call Tri(MyList, False)
    For i = LBound(MyList) To UBound(MyList)
        Debug.Print "/" & MyList(i) & "\"
    Next i
End Sub
'=================================  

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

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.