Mon code est le suivant :
Code :
- Dim contab As String
- Dim i As Integer
- Dim j As Integer
- Dim u As Integer
- Dim var1 As Integer
- Dim tableau(5) As Integer
- Randomize
- tableau(1)=Int(Rnd*6)+1
- tableau(2)=Int(Rnd*6)+1
- tableau(3)=Int(Rnd*6)+1
- tableau(4)=Int(Rnd*6)+1
- tableau(5)=Int(Rnd*6)+1
- For i = 1 To 5
- var1 = tableau(i)
- For u = 1 To (i - 1)
- If tableau(i) <= tableau(u) Then
- j = i - 1
- While j <> u - 1
- tableau(j + 1) = tableau(j)
- j = j - 1
- Wend
- End If
- Next u
- Next i
- contab = Cstr(tableau(1)) & Cstr(tableau(2)) & Cstr(tableau(3)) & Cstr(tableau(4)) & Cstr(tableau(5))
- MsgBox(contab)
|
Mon problème est du au fait que plusieurs cases du tableau peuvent la même valeur.
Ainsi, 2 5 5 2 4 me rend --> 22245 alors que je devrais avoir 22455
ou encore, 1 6 6 2 4 me rend --> 12246 au lieu de 12466
Quelqu'un a-t-il une solution???
Merci
Message édité par Profil supprimé le 25-11-2005 à 14:14:10