Discussion :

[delnic]

désolé , je suis sur que cette info est dispo en recherchant dans le forum mais je ne peux pas acceder a la fonction recherche parcfe que trop d'utilisateurs dans le forum

j'ai 30 num et je veux faire un random pour en resortir un puis un autre random pour resortir un numero (pas le meme que le premier...)... pendant 5 coups...

quelqu'un peut il me donner une indication sur le fonctionnement de randomize...

merci


PS : Je précise que j'ai pas installé le MSDN...

[DarkVader]

Jettes un œil à cette fonction, tu comprendras mieux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function TirageAléatoire(nbTirage As Integer)
    Dim k As Integer, x As Integer, chain As String, nb As Integer
    chain = "1/2/3/4/5/7/8/9/10/11/12/13" ' etc.
    Dim temp
    temp = Split(chain, "/")
 
    Dim rep()
    ReDim rep(0 To nbTirage - 1)
 
    Randomize
    Do
        ' Définir l'intervale Marge sup: (UBound(temp) + 1) Marge Inf : 1
        k = Int(((UBound(temp) + 1) - 1 + 1) * Rnd + 1)
        If temp(k - 1) <> "" Then
            rep(nb) = temp(k - 1)
            temp(k - 1) = ""
            nb = nb + 1
        End If
        If nb >= UBound(temp) Then
            TirageAléatoire = rep
            Exit Function
        End If
        If nb >= nbTirage Then Exit Do
    Loop
 
    TirageAléatoire = rep
End Function

Concernant la MSDN qui n'est pas installée, tu peux toujours consulter l'aide en ligne de VBA qui est installé avec les applications Office

[Dra_Gun]

fais un tableau avec tes données à tirer au hasard:

Code :

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

1
2
 
Dim donnees(30)

fais un tableau avec tes données tirées

Code :

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

1
2
 
Dim tirees(5)

tu tires un nombre, tu le places dans le tableau tirees(1)
ensuite, tu tires un deuxième nombre, tu regardes s'il n'est pas dans le tableau tirees.
s'il y est, tu en tires un deuxième etc.. puis tu mets le nombre dans le tableau tirees(2)
s'il n'y est pas, tu le met directement dans tirees(2)

et tu recommences 3 autres fois.

j'ai pas de code, car VB n'est pas insatllé sur ma machine, donc je préfère pas de donner de code buggé.

[DarkVader]

En fait, ta solution, c'est de refaire le code que je lui ai passé
Je n'y avais pas pensé.

[Dra_Gun]

sauf ke s'il est comme moi, il a pas trop compris!


Désolé, je doi avoir l'esprit embrouillé.
mon horoscope me l'avait prédis ce matin!!!

Tu peux me commenter ton code stp?

[DarkVader]

chain est une variable qui contient la liste des valeurs à tirer
(ça peut aussi bien être des objects ; dans l'exemple fourni
j'ai volontairement oté le 6 à titre de démo)
temp est le tableau qui reçoit les objects à tirer

Code :

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

1
2
3
4
5
Function TirageAléatoire(nbTirage As Integer) 
    Dim k As Integer, x As Integer, chain As String, nb As Integer 
    chain = "1/2/3/4/5/7/8/9/10/11/12/13" ' etc. 
    Dim temp 
    temp = Split(chain, "/")

Pour le reste, c'est exactement la méthode que tu as décrite, je ne ferai donc pas de commentaires superflus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Dim rep() 
    ReDim rep(0 To nbTirage - 1) 
 
    Randomize 
    Do 
        ' Définir l'intervale Marge sup: (UBound(temp) + 1) Marge Inf : 1 
        k = Int(((UBound(temp) + 1) - 1 + 1) * Rnd + 1) 
        If temp(k - 1) <> "" Then 
            rep(nb) = temp(k - 1) 
            temp(k - 1) = "" 
            nb = nb + 1 
        End If 
        If nb >= UBound(temp) Then 
            TirageAléatoire = rep 
            Exit Function 
        End If 
        If nb >= nbTirage Then Exit Do 
    Loop 
 
    TirageAléatoire = rep 
End Function