Tri dans une chaine de caractères.
Fermé
RoshMe
Messages postés
2
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
22 avril 2013
-
Modifié par RoshMe le 22/04/2013 à 20:23
RoshMe Messages postés 2 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 22 avril 2013 - 22 avril 2013 à 21:55
RoshMe Messages postés 2 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 22 avril 2013 - 22 avril 2013 à 21:55
A voir également:
- Tri dans une chaine de caractères.
- Caractères ascii - Guide
- Caractères spéciaux symboles clavier - Guide
- Chaine tnt gratuite sur mobile - Guide
- Caractères spéciaux - Guide
- Clavier mac caractères spéciaux - Guide
1 réponse
RoshMe
Messages postés
2
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
22 avril 2013
22 avril 2013 à 21:55
22 avril 2013 à 21:55
Après avoir bien bien galéré, je m'en sors avec une fonction qui fait ce que je voulais, je vous la colle ici :
Option Compare Text
Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
Dim i%, j%, sTemp$
For j = 1 To Len(iRange) - 1
For i = 1 To Len(iRange) - 1
If Mid(iRange, i, 1) > Mid(iRange, i + 1, 1) Then
sTemp = Mid(iRange, i, 1)
Mid(iRange, i, 1) = Mid(iRange, i + 1, 1)
Mid(iRange, i + 1, 1) = sTemp
End If
Next
Next
If Croissant = False Then
For i = Len(iRange) To 1 Step -1
SortString = SortString & Mid(iRange, i, 1)
Next
Exit Function
End If
SortString = iRange
End Function
Je me suis bien inspiré de ce que j'ai trouvé sur un forum.
Option Compare Text
Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
Dim i%, j%, sTemp$
For j = 1 To Len(iRange) - 1
For i = 1 To Len(iRange) - 1
If Mid(iRange, i, 1) > Mid(iRange, i + 1, 1) Then
sTemp = Mid(iRange, i, 1)
Mid(iRange, i, 1) = Mid(iRange, i + 1, 1)
Mid(iRange, i + 1, 1) = sTemp
End If
Next
Next
If Croissant = False Then
For i = Len(iRange) To 1 Step -1
SortString = SortString & Mid(iRange, i, 1)
Next
Exit Function
End If
SortString = iRange
End Function
Je me suis bien inspiré de ce que j'ai trouvé sur un forum.
