tri

Bonjour tout le monde

Je sais que plusieurs messages ainsi que plusieurs sources concernent déjà ce sujet, mais je n'ai rien trouvé d'assez simple pour moi :s

Donc voilà, j'ai un tableau contenant 10 valeurs mélangées, et je veux les trier dans l'ordre décroissant...

J'ai déjà tenté un code, mais il ne fonctionne pas :

For j = 1 To IndexScore

For i = 1 To IndexScore

 MsgBox Mid(ScoreF(i), 4, Len(ScoreF(i)) - 3)

 If ScoreF(i) < ScoreF(i+1) Then
  Temp(1) = ScoreF(i)
  ScoreF(i) = ScoreF(i + 1)
  ScoreF(i + 1) = Temp(1)
 End If
 
Next i

Next j

Si quelqu'un pouvait se pencher sur mon cas, ce serait gentil, merci

P.S : Sachant que IndexScore est le nombre de valeurs dans le tableau...

le code est normalement juste il y a juste quelque remarque

remplacer
For i = 1 To IndexScore  
par
For i = 1 To IndexScore  - 1


et 


  Temp(1) = ScoreF(i)
  ScoreF(i) = ScoreF(i + 1)
  ScoreF(i + 1) = Temp(1)

par

  Temp= ScoreF(i)
  ScoreF(i) = ScoreF(i + 1)
  ScoreF(i + 1) = Temp

mais il faut faire attention en vb si tu declare un tableau dim
t(2) as integer
ca veut dire que t'a les valeur suivante t(0),t(1) et non t(1), t(2)


Hassen TUNISIE

Euh... Ben si le code est juste, il reste un problème :

J'ai quatre valeurs dans mon tableau : ScoreF(1) = 112
                                                         ScoreF(2) = 123
                                                         ScoreF(3) = 25
                                                         ScoreF(4) = 247

Et le classement final est : 25 > 247 > 123 > 112.

Pourquoi le 25 vient-il en premier ?!

j'ai essayer le code avec les parametre que t'a donnee et il m'a donnee un bon resultat




Hassen TUNISIE

Ah oui ça fonctionne impec maintenant !

Merci beaucoup d'avoir pris le temps de m'aider