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 |
Partager