Discussion :

[uado]

Bonjour à tous,

Depuis plusieurs jours, j'essaye de mettre en place un fonction qui permet de tirer aléatoirement 3 chiffres différents parmi 15.

Je n'arrive pas, entre autre, à gérer le tableau qui me sert de tampon.

Est ce que quelqu'un peut m'aider ?

Merci d'avance.

uado.

[pc75]

Bonjour,

Peux-tu nous montrer ce que tu as commencé à faire ?

[uado]

En fait, ma logique est la suivante :

1. Je tire un nombre aléatoire comme ceci :

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

    nombre = Int((UBound(questions) - 1 + 1) * Rnd + 1)

   (questions étant mon tableau contenant ... mes questions ^^)
2. Je vérifie que ce nombre n'est pas dans mon tableau qui me sert de tampon
3. Si "nombre" est dans le tableau, je retire une nouvelle fois
4. Si "nombre" n'est pas dans le tableau, je l'insère.
5. Lorsque j'ai 3 lignes dans mon tableau, je sors et je fais l'affichage.

Voilà comment j'essaye de le faire.

J'utilise la fonction in_array suivante pour réaliser mes tests :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function in_array(element,tableau)
 For i=0 To Ubound(tableau) 
  If trim(tableau(i)) = trim(element) Then 
   in_array = True
   Exit Function
  Else 
   in_array = False
  End if  
 Next
End Function

[uado]

Permets moi de te contredire (et par la même de te redonner espoir en ce qui concerne Cecile de France).

Si je n'ai que 15 questions dans la base et que je veux en afficher 5, la probabilité augmente sévèrement.

Cependant, j'ai trouvé une fonction permettant de mélanger un tableau et de sortir les "n" premiers résultats. Je vous la donne, ça peut vous intéresser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Fonction qui permet de mélanger un tableau "inArray" et de conserver les "needed" premiers résultats
Randomize
Function Shuffle( inArray, needed )
    incnt = UBound( inArray ) -1 
    dim outArray
    redim outArray( needed )
    For i = 1 To needed
        choose = Int( incnt * Rnd(1) ) + 1
        outArray( i ) = inArray( choose )
        inArray( choose ) = inArray( incnt )
        incnt = incnt - 1
    Next
    Shuffle = outArray
End Function