Discussion :

[Blunet]

Salut, je travaille aussi avec les tableaux. Mais je n'arrive pas à trier les données (integer) par ordre décroissant dans 1 tableau à 1 et n dimensions sans passer par la FlexGril.
J'aimerais pouvoir effectuer ce tri en mémoire tampon et réutiliser les données triées dans 1 autre tableau.
Merçi.

[ouskel'n'or]

Hello,

je pense que si tu nous parles "comme ça", tu es dans VB... Sort n'existe pas ? Tu n'as pas la possibilité de trier en plaçant transitoirement "ailleurs" tes données triées ?

Juste une idée comme ça...

A+

[leroissejp]

Bonjour,
Ce code pourra peut-être t'inspirer ??

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Tri()
Dim MonTab(5) As Integer
Dim x As String
Dim i As Integer
Dim j As Integer
 
' remplissage du tableau
MonTab(0) = "987"
MonTab(1) = "125"
MonTab(2) = "465"
MonTab(3) = "245"
MonTab(4) = "095"
MonTab(5) = "350"
 
' trier le tableau
For i = 0 To UBound(MonTab) - 1
  For j = i + 1 To UBound(MonTab)
    If MonTab(i) > MonTab(j) Then
      x = MonTab(i)
      MonTab(i) = MonTab(j)
      MonTab(j) = x
    End If
  Next j
Next i
 
' Visualiser le résultat
For i = 0 To UBound(MonTab)
  MsgBox MonTab(i)
Next
End Sub

Code :

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

1
2
3
4
 
Private Sub Command1_Click()
Call Tri
End Sub

jpleroisse

[Megaxel]

Mignon, ton algo de tri.
En tout cas, j'aime bien.
Bravo.

[ouskel'n'or]

Hello leroissejp,

Je garde ! J'ai essayé avec des string, j'en reviens pas... J'ignorais qu'on pouvait faire ce type de comparaison là "MonTab(i) > MonTab(j)" avec des string

Si tu en as d'eautres des "comme ça", n'hésite pas !

Et donc, un grand merci.

A+

[avigeilpro]

Ne serait-il pas plus simple de loger les donnée dans un ListBox est d'en mettre la propriété Sorted a True, puis de réccupérer le contenu ?

[Megaxel]

Tu peux les mettre dans n'importe quoi qui sait faire un tri, comme dans une feuille Excel pour faire un "sort", mais très franchement, c'est un peu tiré par les cheveux (ou les plumes... )

[leroissejp]

Bonsoir,
Merci ouskel'n'or pour ces compliments.
Une chose que j'ai oublié, pour un tri décroissant il suffit de remplacer MonTab(i) > MonTab(j) par MonTab(i) < MonTab(j)

jpleroisse

[Xo]

Salut, et bienvenue sur ce forum,

Merci de penser à faire des recherches , il y a des ressources correspondant à votre reqête sur le site.

Ex : http://plasserre.developpez.com/ve1-3.htm