Sub test()
Dim chaine$,i&,e&
chaine = "anticonstitutionnellement"
For i = 1 To Len(chaine)
For e = 2 To Len(chaine)
If Mid(chaine, e, 1) < Mid(chaine, i, 1) Then temp = Mid(chaine, i, 1): Mid(chaine, i, 1) = Mid(chaine, e, 1): Mid(chaine, e, 1) = temp
Next
Next
Debug.Print "> to < :" & chaine
Debug.Print "< to > :"& StrReverse(chaine)
End Sub
heu ??? bha non ...re
bonsoir a tous
heu oui ok
Sub test()
Dim chaine$, i&, e&
chaine = "anticonstitutionnellement"
For i = 1 To Len(chaine)
For e = 1 To Len(chaine)
If Mid(chaine, e, 1) < Mid(chaine, i, 1) Then temp = Mid(chaine, i, 1): Mid(chaine, i, 1) = Mid(chaine, e, 1): Mid(chaine, e, 1) = temp
Next
Next
Debug.Print "> to < :" & chaine
Debug.Print "< to > :" & StrReverse(chaine)
End Sub