Datagrid et array() non trié

Version imprimable

11/05/2007, 14h36
totoche

Datagrid et array() non trié

Bonjour,
je rempli mon datagrid avec les valeurs d'un array() ce tableau n'est pas trié, Je n'ai pas su trouver de méthode dans le datagrid(onSort), permettant après son remplissage de le trier...:oops:
J'imagine donc qu'elle n'existe pas il faut passer par un algorithmes de tri (Bubble Sort) sur le tableau puis l'injecter dans le datagrid
Merci de vos suggestions.
11/05/2007, 19h06
ProgElecT

Quel type de données contient ton array ? String, Integer, Single ....

Bonsoir ProgElecT,
En réalité c'est une Type structure que je voudrais trier puis injecter dans un datagrid...
Code:

1 2 3 4 5 6 7 8 9 10 Public Type UneEquipe Nom as string Points as interger ButsPour as integer ButsContre as integer ButsDiff as integer LesResultats(1 to 3) as UnResultat End Type Public UnGroupe(1 to nbEquipe) as UneEquipe
Je cherche donc a trier (décroissant)les equipes contenues dans UnGroupe en fonction du nombre de Points qu'elles ont, puis afficher le nom de l'équipe, son nombre de points dans un datagrid.
Merci de ton aide

[/CODE]

11/05/2007, 22h04
ProgElecT

Je vais en faire hurler certain :aie:
Je suis pas specialiste là dedans, donc je me servirai d'un listbox avec sorted = true, les additems pour le nom, et dans le Itemdata les points, puis je remplirai le grid avec.
11/05/2007, 22h13
totoche

Merci je vais explorer ta piste
Heu c'est les "...Itemdata les points..." qui sont gérés par le sorted = true?

et si veux trier en fonction des points et des Buts pour en cas d"égalité de point?:oops:
11/05/2007, 22h20
ProgElecT

le tri proposé est par Nom, le tri se fait sur le Additem de la listbox

Desolé, pour les chiffres je ne sais pas faire, mis a part depuis une BD avec Order By Points, Order By Nom, Order By ......, là cela serai facile
Le listbox pour le tri de nombre etant trié au niveau du code ascii, sa ne fait pas

Truc du style peut etre pour trier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
For i = 1 To NbEquipe - 1
  For j = i + 1 To NbEquipe
    If UnGroupe(j).Points > UnGroupe(i).Points Then
      GoSub Inverse
    ElseIf UnGroupe(j).Points = UnGroupe(i).Points Then
      If UnGroupe(j).ButsDiff > UnGroupe(i).ButsDiff Then
        GoSub Inverse
    End If
  Next j
Next i
Exit Sub
 
Inverse:
  UnGroupe(0) = UnGroupe(j)
  UnGroupe(j) = UnGroupe(i)
  UnGroupe(i) = UnGroupe(0)
  Return

Merci ohMonBato
je pars sur un code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Do
        test = False
        For i = 1 To 3
            ' comparaison
            If t(i) < t(i + 1) Then 'Du plus grand au plus petit
                'Echange
                test = True
                tmp = t(i)
                t(i) = t(i + 1)
                t(i + 1) = tmp
            End If
        Next i
    Loop While test = True

Dans lequel je vais inclure le elseIf auquel je n'avais pas pensé.
Pour l'instant je mets de coté la solution ftrie du Hierarchical, je n'arrive pas a voir comment classer sur 2 critères. (cf ProgElect)

Me revoilà.
Ce qui est possible avec un MSHFlexGrid.
Je ne suis pas un footeux :? , donc les données choisies sont sûrement exotiques.
Dans un fichier nommé « BDTableau.txt », qui doit ce trouver dans le dossier du projet, j’y ai mis ceci,
PARIS,26,11,9,2,MARSEILLE,32,17,21,5,LYON,46,55,7,48,LILLE,20,31,15,16,BORDEAUX,15,16,13,3,NANTES,26,12,1,11,STRASBOURG,46,25,9,16,AMIENS,20,25,7,8,DIJON,20,25,9,16,RENNES,20,25,9,16
ATTENTION, sur une seule ligne.

Dans un môdule.bas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Public Type UneEquipe
         Nom As String
         Points As Integer
         ButsPour As Integer
         ButsContre As Integer
         ButsDiff As Integer
         'LesResultats(1 To 3) As UnResultat '?????
End Type
Public NbrEquipe As Integer
Public NumFich As Integer
Public NomFichier As String
Public DecoupeContenu() As String
Public T As Integer, U As Integer
Public Msg$

Dans un Form, 2 CommandButton, 1 MSHFlexGrid, tous est placé et dimensionné par le code.

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Option Explicit
Dim UnGroupe() As UneEquipe
Dim Tri As Integer
 
Public Sub RecupInfos()
'Ouverture d'un fichier texte pour création du tableau
'le fichier doit être dans le dossier du projet
NumFich = FreeFile
Open NomFichier For Input As #NumFich
Msg$ = Input(FileLen(NomFichier), NumFich)
Close #NumFich
 
DecoupeContenu = Split(Msg$, ",") 'création du tableau intermediaire
 
'trouve le nombre d'equippe (10 dans l'exemple)
NbrEquipe = UBound(DecoupeContenu) / 5
 
ReDim UnGroupe(NbrEquipe - 1) 'dimensionne le tableau Type UneEquipe nomé "UnGroupe"
 
'attribution des données au tableau Type UneEquipe nomé "UnGroupe"
U = 0
For T = 0 To UBound(DecoupeContenu) - 1 Step 5
 UnGroupe(U).Nom = DecoupeContenu(T)
 UnGroupe(U).Points = DecoupeContenu(T + 1)
 UnGroupe(U).ButsPour = DecoupeContenu(T + 2)
 UnGroupe(U).ButsContre = DecoupeContenu(T + 3)
 UnGroupe(U).ButsDiff = DecoupeContenu(T + 4)
 U = U + 1
Next T
 
MSHFlexGrid1.Cols = 4 'création du nombre de colonnes
MSHFlexGrid1.Rows = NbrEquipe + 1 'création du nombre de lignes
MSHFlexGrid1.FormatString = "<Points |<Equipp |<Buts marqués |<Buts contres|<Diff. de buts"
 
'remplis le grid avec les données du tableau Type UneEquipe nomé "UnGroupe"
For T = 1 To NbrEquipe
 MSHFlexGrid1.TextMatrix(T, 0) = UnGroupe(T - 1).Points
 MSHFlexGrid1.TextMatrix(T, 1) = UnGroupe(T - 1).Nom
 MSHFlexGrid1.TextMatrix(T, 2) = UnGroupe(T - 1).ButsPour
 MSHFlexGrid1.TextMatrix(T, 3) = UnGroupe(T - 1).ButsContre
 MSHFlexGrid1.TextMatrix(T, 4) = UnGroupe(T - 1).ButsDiff
Next T
 
'dimensionne les colonnes
For T = 0 To 4: MSHFlexGrid1.ColWidth(T) = 1200: Next T
'dimensionner le Grid en ajoutant la place pour le Scroleur
MSHFlexGrid1.Width = (1200 * 5) + 300
 
Me.Width = MSHFlexGrid1.Width + (4 * MSHFlexGrid1.Left)
 
'le contenu des colonnes peut être fusionné
MSHFlexGrid1.MergeCol(0) = True
MSHFlexGrid1.MergeCol(1) = True
MSHFlexGrid1.MergeCol(2) = True
MSHFlexGrid1.MergeCol(3) = True
MSHFlexGrid1.MergeCol(4) = True
End Sub
 
Private Sub CmdRe_Click()
'permet de recharger les données si le fichier de données a ete modifié
RecupInfos
DoSort ' Trie pour voir le résultat.
End Sub
 
Private Sub Form_Load()
CmdTri.Caption = "1 croissant"
CmdTri.Left = 90: CmdTri.Top = 60: CmdTri.Height = 315: CmdTri.Width = 1125
CmdRe.Caption = "Réinitialiser"
CmdRe.Left = 1320: CmdRe.Top = 60: CmdRe.Height = 315: CmdRe.Width = 1125
MSHFlexGrid1.Left = 60: MSHFlexGrid1.Top = 450: MSHFlexGrid1.Height = 4215
Me.Height = 5160
 
NomFichier = App.Path & "\BDTableau.txt" 'renseigne le fichier à ouvrire
 
RecupInfos
' Trie pour voir le résultat.
Tri = 1: DoSort
End Sub
Private Sub CmdTri_Click()
If Tri = 1 Then
 Tri = 2: CmdTri.Caption = Tri & " décroissant"
 Else
 Tri = 1: CmdTri.Caption = Tri & " croissant"
End If
DoSort
End Sub
 
Public Sub DoSort()
'procedure effectuent le tri
MSHFlexGrid1.Col = 0
MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Sort = Tri   '1 Ordre croissant générique, 2 Ordre décroissant
End Sub
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSHFlexGrid1.Tag = ""
If MSHFlexGrid1.MouseRow <> 0 Then Exit Sub
MSHFlexGrid1.Tag = Str(MSHFlexGrid1.MouseCol)
MousePointer = vbSizeWE
End Sub
 
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = vbDefault
If MSHFlexGrid1.Tag = "" Then Exit Sub
MSHFlexGrid1.Redraw = False
MSHFlexGrid1.ColPosition(Val(MSHFlexGrid1.Tag)) = MSHFlexGrid1.MouseCol
DoSort
MSHFlexGrid1.Redraw = True
End Sub

J’y ai mis du commentaire, les procédures MSHFlexGrid1_MouseDown et SHFlexGrid1_MouseUp s’apparentent à un dragdrop, cliquez exclusivement sur la ligne zero pour le bon fonctionnement en passant d’une colonne a une autre puis relever le clique, le tri ce fait suivant votre nouveau choix.