Trier une séquence de chiffres en VBA

Bonjour

Comment remettre cette séquence 376429815 dans l'ordre croissant 123456789 avec des instructions Vba dans une Msgbox par macro ?

Merci

Bonjour,

Un exemple.

Cdlt.

Public Sub SortString()
Dim vValue, n As Long, i As Long, j As Long, a(), tmp
    vValue = 376429815
    n = Len(vValue)
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = VBA.Mid(vValue, i, 1)
    Next i
    For i = 1 To n
        For j = i To n
            If a(j) < a(i) Then
                tmp = a(j)
                a(j) = a(i)
                a(i) = tmp
            End If
        Next
    Next i
   MsgBox VBA.Join(a, vbNullString)
End Sub

Bonjour,

à tester,

Sub testAL()
Dim AL1 As Object, t, r, resultat, i As Integer
Set AL1 = CreateObject("System.Collections.ArrayList")
t = 376429815

For i = 1 To Len(t)
   AL1.Add Mid(t, i, 1)
Next

AL1.Sort
r = AL1.Toarray()

For i = LBound(r) To UBound(r)
    resultat = resultat & r(i)
Next

Range("A1") = resultat
End Sub

merci de votre participation;.

je vais décortiquer cela de prés...