Re : Les ALEAS des aléatoires ... définis !
bonjour ya_v_ka Moritz_Fiege le forum une macro a adapter
Sub test2()
Dim tablo() As Double, mini As Byte, maxi As Byte, i As Byte, j As Byte, k As Byte
Dim temp As Double
Application.ScreenUpdating = False
mini = 1
maxi = 36
ReDim Preserve tablo(1 To maxi, 1 To 2)
For i = 1 To maxi
tablo(i, 1) = i
tablo(i, 2) = Rnd
Next i
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i, 2) > tablo(j, 2) Then
For k = 1 To 2
temp = tablo(i, k)
tablo(i, k) = tablo(j, k)
tablo(j, k) = temp
Next k
End If
Next j
Next i
For i = 1 To UBound(tablo)
Cells(i, 1) = tablo(i, 1)
Next i
End Sub
ps : salut bernard