tirage aléa

[vincent noah]

Bonsoir à tous

je cherche un code simple pour tirer au sort 5 numéros parmi 20 les afficher .
puis tirer une seconde fois 1 numéros parmi ces 5 numéros . et l'afficher


voici mon ficher avec un exemple

merci

 

[camarchepas]

Re : tirage aléa

Bonsoir ,

une possibilité

Option Explicit

Sub tirage()
Dim Tourne As Long
Dim Num(20) As String
Dim Tire As String
Dim Hasard As Long
For Tourne = 1 To 5
encore:
Hasard = Int(Rnd(Timer) * 20 + 1)
If Num(Hasard) <> "" Then GoTo encore
Tire = Tire + "," + CStr(Hasard)
Next Tourne
MsgBox Tire
Hasard = Int(Rnd(Timer) * 5)
MsgBox Split(Tire, ",")(Hasard)
End Sub

 

[Modeste geedee]

Re : tirage aléa

Bonsour®
😎 voici mon fichier avec ma proposition...

 

[vincent noah]

Re : tirage aléa

bonsoir


le code de camarchepa.... il y a un problème de doublon ..


* la proposition de Modeste me convient mais il manque le tirage de 1 numéros parmi les 5 numéros sortie



voici le fichier



Merci

 

[camarchepas]

Re : tirage aléa

Oups , une ligne était resté bloquée dans l'éther.

Voici

Option Explicit

Sub tirage()
Dim Tourne As Long
Dim Num(20) As String
Dim Tire As String
Dim Hasard As Long
For Tourne = 1 To 5
encore:
Hasard = Int(Rnd(Timer) * 20 + 1)
If Num(Hasard) <> "" Then GoTo encore
Tire = Tire + "," + CStr(Hasard)
num(hasard)="1"
Next Tourne
MsgBox Tire
Hasard = Int(Rnd(Timer) * 5)
MsgBox Split(Tire, ",")(Hasard)
End Sub

 

[vincent noah]

Re : tirage aléa

re
ça marche bien maintenant .

peut -tu m'aider à ajouter le tirage de 1 numéros parmi les 5 , dans le code de modeste.
au moins ça me fait deux possibilité de code .


merci de ton aide

 

[Modeste geedee]

Re : tirage aléa

Bonsour®

re
ça marche bien maintenant .

ajouter le tirage de 1 numéros parmi les 5 , dans le code de modeste.
au moins ça me fait deux possibilité de code .


merci de ton aide

voir là :
Lien supprimé

 

[vincent noah]

Re : tirage aléa

RE


Merci beaucoup Modeste










A+