Tableau de nombres aléatoires uniquesRésolu

Question

Bonsoir,

Je voudrais connaitre un moyen simple pour ins&#233;rer des nombres al&#233;atoires de 1 &#224; 10 (par ex) dans un tableau, de telle mani&#232;re que chaque &#233;l&#233;ment soit diff&#233;rent des autres.
Autrement dit, j'ai les nombres de 1 &#224; 10 et je voudrais les m&#233;langer et les stocker dans un tableau.

J'ai essay&#233; &#231;a :

For i = 0 To 9
        Tab(i) = Int((24 * Rnd) + 1)
        If i > 0 Then
            temp(i) = Tab(i)
            While (temp = Tab[i])
                    Tab(i) = Int((24 * Rnd) + 1)
            Wend
        End If
Next i

Mais apparement il teste que l'&#233;l&#233;ment pr&#233;c&#233;dent et pas tous.
Je voudrais tyrouver un moyen de le faire sans passer dans une deuxi&#232;me boucle...
Est-ce possible?

Merci.

Scarhand

Gobillot · Accepted Answer

pourquoi 24 ?

de 1 &#224; 10 c'est Int(Rnd * 10) + 1



tu prends ton tableau de nombre de 1 &#224; 10 d&#233;j&#224; rempli,

tu choisis un nombre al&#233;atoire de 1 &#224; 10

tu permute l'&#233;l&#233;ment choisi avec l'&#233;l&#233;ment 10

et on recommence avec 9



il ya la m&#234;me chose ici:

http://www.vbfrance.com/forum.v2.aspx?ID=482738


Daniel

ScarHand · Answer

oui bon, en fait moi j'ai un tableau de 24 &#233;l&#233;ments mais le principe reste le m&#234;me...

L'id&#233;e est bonne, je vais faire &#231;a. 

Merci

gabrielgarcin · Answer

Bonjour.

Il y certainement plusieurs solutions.
En ce qui me concerne j'utiliserais la suivante:

Gabriel GARCIN

__________________________________________________________________
Dim i As Integer, j As Integer, N As Integer, A(24) As Integer, Test(24) As Boolean
N = 24
For i = 1 To N
A(i) = 0
Test(i) = False
Next i
'______________________________________________
'Pour obtenir la m&#234;me s&#233;rie de nombres
'Call Rnd(-1)
'Call Randomize
'_______________________________________________


For i = 1 To N
Continue:
j = Rnd(13) * (N - 1) + 1
If Test(j) = False Then
A(i) = j
Test(j) = True
Else
GoTo Continue
End If
Next i


For i = 1 To N
MsgBox "A(" & i & ")=" & A(i)
Next i
MsgBox "FIN"

ScarHand · Answer

Merci, je trouve la solution de Daniel plus clair et simple. Cependant, il me semble que sa m&#233;thode ne fonctionne pas si les nombres d'origines ne sont pas cons&#233;cutifs...

Celle de Gabriel n'est pas mauvaise non plus. 

Merci &#224; tous les deux, vous avez r&#233;solu mon probl&#232;me...

Gobillot · Answer

Les donn&#233;es qui sont dans le tableau &#224; l'origine n'ont aucune
importante, que ce soit des nombres, des cha&#238;nes ou n'importe quoi.







    Dim i       As Integer

    Dim x       As Integer

    Dim tmp     As String

    Dim Table() As String



    Randomize Timer

    

    ReDim Table(23)

    List1.Clear

    

'   remplissage du Tableau et mise dans une ListBox

    For i = 0 To 23

        Table(i) = Chr$(Rnd * 25 + 65) + Chr$(Rnd * 25 + 65) + Chr$(Rnd * 25 + 65)

        List1.AddItem Table(i)

        Next



'   m&#233;lange du Tableau

    For i = 23 To 1 Step -1

        x = Rnd * i

        tmp = Table(x)

        Table(x) = Table(i)

        Table(i) = tmp

        Next

    

'controle dans la ListBox

    For i = 0 To 23

        List1.List(i) = List1.List(i) & vbTab & Table(i)

        Next


Daniel

ScarHand · Answer

Ah oui, effectivement, je n'y avais pas pens&#233;, c'est logique apr&#232;s tout.
Et bien, merci...

ScarHand · Answer

Rebonsoir, 

Voila, je vais pas cr&#233;er un nouveau topic pour &#231;a, je veux juste savoir comment je pourrais faire pour int&#233;grer 2 dossiers remplis d'images lors de l'empaquetage (cr&#233;ation de l'install)... pour que ces dossiers soient install&#233;s aussi.

Merci

Tableau de nombres aléatoires uniques

7 réponses

Discussions similaires