Bonsoir tout le monde,

J'essaie de trier un tableau à deux dimensions. J'ai vu une méthode sur internet mais je ne sais pas pourquoi elle ne marche pas. Je vous mets le code.

Au début je pensais que c'était un problème de type de variable. Mon tableau est en string et je veux trier mon tableau par rapport à des nombres. C'est pour ça que je trie des variables et c'est variable je les réaffecte au tableau.

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
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
Dim temp0 As String
                        Dim temp1 As String
                        Dim temp2 As Double
                        Dim temp3 As Double
                        Dim temp4 As Double
                        Dim temp5 As Double
                        Dim temp6 As Double
                        Dim temp7 As Double
                        Dim temp8 As Double
 
                        Dim temp0_bis As String
                        Dim temp1_bis As String
                        Dim temp2_bis As Double
                        Dim temp3_bis As Double
                        Dim temp4_bis As Double
                        Dim temp5_bis As Double
                        Dim temp6_bis As Double
                        Dim temp7_bis As Double
                        Dim temp8_bis As Double
 
                        For i = 0 To j - 1
                            For k = 0 To j - 1
 
                                temp8 = tableau(i, 8)
                                temp8_bis = tableau(i + 1, 8)
 
                                If temp8 < temp8_bis Then
 
                                    temp0 = tableau(i, 0)
                                    temp1 = tableau(i, 1)
                                    temp2 = tableau(i, 2)
                                    temp3 = tableau(i, 3)
                                    temp4 = tableau(i, 4)
                                    temp5 = tableau(i, 5)
                                    temp6 = tableau(i, 6)
                                    temp7 = tableau(i, 7)
 
                                    temp0_bis = tableau(i + 1, 0)
                                    temp1_bis = tableau(i + 1, 1)
                                    temp2_bis = tableau(i + 1, 2)
                                    temp3_bis = tableau(i + 1, 3)
                                    temp4_bis = tableau(i + 1, 4)
                                    temp5_bis = tableau(i + 1, 5)
                                    temp6_bis = tableau(i + 1, 6)
                                    temp7_bis = tableau(i + 1, 7)
 
                                    tableau(i + 1, 0) = temp0
                                    tableau(i + 1, 1) = temp1
                                    tableau(i + 1, 2) = temp2
                                    tableau(i + 1, 3) = temp3
                                    tableau(i + 1, 4) = temp4
                                    tableau(i + 1, 5) = temp5
                                    tableau(i + 1, 6) = temp6
                                    tableau(i + 1, 7) = temp7
                                    tableau(i + 1, 8) = temp8
 
                                    tableau(i, 0) = temp0_bis
                                    tableau(i, 1) = temp1_bis
                                    tableau(i, 2) = temp2_bis
                                    tableau(i, 3) = temp3_bis
                                    tableau(i, 4) = temp4_bis
                                    tableau(i, 5) = temp5_bis
                                    tableau(i, 6) = temp6_bis
                                    tableau(i, 7) = temp7_bis
                                    tableau(i, 8) = temp8_bis
 
 
                                End If
 
                            Next
                        Next
Pouvez vous m'aider svp ?

Merci d'avance.