bonjour david, cathy, sylvain, bonjour forum,
code à mettre dans un module (mais je ne sais pas à quoi ça sert)
Option Explicit
Option Base 1
Public jj As Long
Public Const iteration = 5
'***********************************************************************
'* Resampling Process *
'***********************************************************************
Sub Resample( )
Dim i As Long
Dim hold(54) As Single, Hold2(54) As Single
Randomize
For i = 1 To 54
Hold2(i) = i
Next i
For jj = 1 To iteration
For i = 1 To 54
hold(i) = Rnd
Next i
Call DoubleSort(54, hold, Hold2)
For i = 1 To 6
Cells(jj + 3, i) = Hold2(i)
Next i
Next jj
End Sub
'***********************************************************************
'* Sorting Process - Sort array y based on array x *
'***********************************************************************
Sub DoubleSort(n As Long, x( ) As Single, y( ) As Single)
Dim xTemp As Double
Dim yTemp As Double
Dim i As Long
Dim j As Long
For j = 2 To n
xTemp = x(j)
yTemp = y(j)
For i = j - 1 To 1 Step -1
If (x(i) <= xTemp) Then GoTo 10
x(i + 1) = x(i)
y(i + 1) = y(i)
Next i
i = 0
10 x(i + 1) = xTemp
y(i + 1) = yTemp
Next j
End Sub