Salut...

J'ai 2 tableaux et je suis capable d'en trier un mais l'autre je suis incapable et je ne saisis vraiment pas pourquoi...

Je vous montre le code et le tableau qui ne se tri pas.

Voyez-vous d'ou peut venir le problème ????

Merci d'avance

Dim j AsInteger, k AsInteger = 0
Dim TableauTriCoordX(0) AsString
DimTableauTriCoordY(0)AsString

For j = 0 To UBound(Tableau)
If k = 0 Then
ReDim TableauTriCoordX(k)
ReDim TableauTriCoordY(k)
Else
ReDimPreserve TableauTriCoordX(k)
ReDimPreserve TableauTriCoordY(k)
EndIf

If lblPoint_.Text = "Point"And txtPoint1.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0)) Or lblPoint_1.Text = "Point"And txtPoint2.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0)) Or lblPoint_2.Text = "Point"And txtPoint3.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0)) Or lblPoint_3.Text = "Point"And txtPoint4.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0)) Then

TableauTriCoordY(k) = Tableau(j).Split(Separateur)(1)
TableauTriCoordX(k) = Tableau(j).Split(Separateur)(2)

If k = 3 Then
Else
k = k + 1
EndIf
EndIf
Next j
Array.Sort(TableauTriCoordY)
Array.Sort(TableauTriCoordX)

je pense que tes clauses dans if sont pas assez explicites

attention aux parenthèses

condition1 OR condition2 AND condition3 OR condition4
est différent de
(condition1 OR condition2) AND (condition3 OR condition4)
sera aussi different de
condition1 OR (condition2 AND condition3 OR condition4)

donc vérifie que ton tableau contient bien des données..

Le savoir n'est que le filtre de l'experience

Merci Stéphanne...

Mais je crois que je viens tout juste de trouver....

J'ai mis mes tableaux en Double et ca se tri super bien...a part avec des valeurs négatives..

merci