Discussion :

[marty456]

bonjour,

Concernant excel 2003, je voulais savoir s'il était possible de mettre plusieurs valeurs numériques dans une cellule séparées par une virgule et s'il y avait possibilité avec une fonction de les mettre en ordre croissant.

merci

[alsimbad]

salut
j'ai eu un peu de mal a trouver, mais c'est faisable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function trierlacellule(u As Range)
tableau = Split(u, ",")
NbMin = LBound(tableau)
For var1 = UBound(tableau) To LBound(tableau) Step -1
    For var2 = NbMin + 1 To var1
        If tableau(var2 - 1) > tableau(var2) Then
vartemp = tableau(var2 - 1)
            tableau(var2 - 1) = tableau(var2)
            tableau(var2) = vartemp
        End If
    Next var2
Next var1
For i = 0 To UBound(tableau)
j = j & "," & tableau(i)
Next i
trierlacellule = Mid(j, 2)
End Function

pour etre honnete, le code de tri n'est pas de moi mais proviens du forum et s'appelle triabulle, je ne connais pas l'auteur
il existe toujour un probleme récurent (que je ne sais résoudre) c'est le tri avec des chiffre de longueur diferrente. si les 0 sont omis, le tri n'est pas exacte
trier 1 . 9 . 20.11donnera 1.11.20.9
alors que si tu écris
01.09.20.11, tu obtiendras le bon tri 01.09.11.20
j'espere que ça te conviendras, tu dis