Sub vietnamien()
Rows("1:9").Clear
Dim x
result = 0
test = 1
Do
GenereSerieAleatoireSansDoublons 9, test
x = Range(Cells(1, test), Cells(9, test)).Value
result = x(1, 1) + 13 * x(2, 1) / x(3, 1) + x(4, 1) + 12 * x(5, 1) - x(6, 1) - 11 + x(7, 1) * x(8, 1) / x(9, 1) - 10
If result = 66 Then test = test + 1
Loop Until test = 11
End Sub
Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, test)
Dim Tableau() As Integer, TabNumLignes() As Integer
Dim i As Integer, k As Integer
ReDim Tableau(NbValeurs)
ReDim TabNumLignes(NbValeurs)
For i = 1 To NbValeurs
TabNumLignes(i) = i
Tableau(i) = i
Next
'Initialise le générateur de nombres aléatoires
Randomize
For i = NbValeurs To 1 Step -1
k = Int((i * Rnd) + 1)
Cells(i, test) = Tableau(TabNumLignes(k))
TabNumLignes(k) = TabNumLignes(i)
Next
End Sub
les 10 premières combinaisons trouvées ...