Tirage aleatoire
jc80
Messages postés
5063
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Pouvez vous svp comment composer mon de macro afin que je puisse effectuer
un tirage au sort sur la colonne H comme cela se déroule sur la colonne D.
Je suis un peu pommé dans les macros
https://www.cjoint.com/?CBrqgxUyRao
Merci pour vos réponses
Crdlt
Pouvez vous svp comment composer mon de macro afin que je puisse effectuer
un tirage au sort sur la colonne H comme cela se déroule sur la colonne D.
Je suis un peu pommé dans les macros
https://www.cjoint.com/?CBrqgxUyRao
Merci pour vos réponses
Crdlt
4 réponses
Bonjour,
l'erreur dans la macro Tirage_2 est
If Application.CountE(Range("E2:G2")) <> 3 Or [E2] > ([G2] - [F2] + 1) Then Exit Sub
Il faut écrire
If Application.CountA(Range("E2:G2")) <> 3 Or [E2] > ([G2] - [F2] + 1) Then Exit Sub
Et il ne te reste qu'à créer un 2nd bouton pour appeler cette macro
Cdlmnt
l'erreur dans la macro Tirage_2 est
If Application.CountE(Range("E2:G2")) <> 3 Or [E2] > ([G2] - [F2] + 1) Then Exit Sub
Il faut écrire
If Application.CountA(Range("E2:G2")) <> 3 Or [E2] > ([G2] - [F2] + 1) Then Exit Sub
Et il ne te reste qu'à créer un 2nd bouton pour appeler cette macro
Cdlmnt
Bonjour VIA55
comme tu peux le constater il y a des triplés (mis en couleurs),
et en faisant le compte des chiffres on se retrouve avec 398 numéro par
tirage 199 de chaque coté alors que l'on devrait en avoir 50 de chaque coté.
je pense que là on va laisser tombé trop compliqué
https://www.cjoint.com/?CBsj5nbAggO
Merci tout de même pour ton aide
Crdlt
comme tu peux le constater il y a des triplés (mis en couleurs),
et en faisant le compte des chiffres on se retrouve avec 398 numéro par
tirage 199 de chaque coté alors que l'on devrait en avoir 50 de chaque coté.
je pense que là on va laisser tombé trop compliqué
https://www.cjoint.com/?CBsj5nbAggO
Merci tout de même pour ton aide
Crdlt
re
en espérant que tu puisses ouvrir désolé
https://www.cjoint.com/?CBsnGLHBSCS
Crdlt
en espérant que tu puisses ouvrir désolé
https://www.cjoint.com/?CBsnGLHBSCS
Crdlt
re
voila le nouveau fichier
https://www.cjoint.com/?3BsoYLrBLUJ
Le tirage de 50 paires est un peu plus long en temps que les autres vu la vérification que chaque numéro n'a pas déjà été tiré (voir la macro en module2) mais en principe desormais est évité la sortie d'un même numéro dans un même tirage et la sortie de paires identiques sur les 12 tirages
A verifier sur plusieurs tirages
Cdlmnt
voila le nouveau fichier
https://www.cjoint.com/?3BsoYLrBLUJ
Le tirage de 50 paires est un peu plus long en temps que les autres vu la vérification que chaque numéro n'a pas déjà été tiré (voir la macro en module2) mais en principe desormais est évité la sortie d'un même numéro dans un même tirage et la sortie de paires identiques sur les 12 tirages
A verifier sur plusieurs tirages
Cdlmnt
et merci pour ta réponse
Une autre question comment vérifier que 2 numéros ne se rencontre pas une 2ème fois sur
des tours différents je vais avoir en principe 10 voir 12 tours
https://www.cjoint.com/?CBrsXPWnLrn
Cordialement
alors là c'est compliqué! surtout avec beaucoup de tirages et si on considere que par esemple le tirage 15 87 est identique au tirage 87 15
il faudrait tous les 2 tirages faire comparer avec tous les couples sur la feuille si c'est identique et faire retirage dans ce cas
Je pense qu'il faudrait repenser toute la macro
Faire les tirages par paire et noter dans un tableau(100,100) a double entrée un 1 quand un couple est tiré ainsi avec tirage 15 et 87 les valeurs tableau(15,87) et tableau (87,15) seraient mises à 1 et à chaque tirage on verifie si 1 ou 0 dans le tableau pour les valeurs tirées et si c'est 1 on retire
Pour la mise en oeuvre là j'avoue que je bloque ! SI quelqu'un a une idée ...
Cdlmnt
Finanelemnt n reprenant tout j'ai etabli en feuille 2 une macro qui procede à 12 tirages sans couple identiques (en principe)
https://www.cjoint.com/?3BrxqM3DL2d
A tester sur plusieurs tirages
Et me dire ...
Cdlmt