Tirage aleatoire
Fermé
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
17 févr. 2013 à 16:10
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 18 févr. 2013 à 16:26
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 18 févr. 2013 à 16:26
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
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
17 févr. 2013 à 16:32
17 févr. 2013 à 16:32
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
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
18 févr. 2013 à 10:03
18 févr. 2013 à 10:03
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
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
18 févr. 2013 à 11:08
18 févr. 2013 à 11:08
je reviens sur le sujet je pense que si l'on parvient à avoir que 50 Numéro de chaque coté
du tirage on doit pouvoir éviter les doublons
du tirage on doit pouvoir éviter les doublons
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
18 févr. 2013 à 13:07
18 févr. 2013 à 13:07
Bonjour
je n'arrive pas à ouvrir ton fichier
Excel me dit que l'extension ne correpond pas!
Réenregistre le sours un format prenant en charge les macros et renvoie moi le nouveau lien
je n'arrive pas à ouvrir ton fichier
Excel me dit que l'extension ne correpond pas!
Réenregistre le sours un format prenant en charge les macros et renvoie moi le nouveau lien
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
18 févr. 2013 à 13:33
18 févr. 2013 à 13:33
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
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
18 févr. 2013 à 14:56
18 févr. 2013 à 14:56
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
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
18 févr. 2013 à 16:26
18 févr. 2013 à 16:26
re
Apparemment tout à l'air d'être bon
Je te tiens au courant
Merci
Cordialement
Apparemment tout à l'air d'être bon
Je te tiens au courant
Merci
Cordialement
17 févr. 2013 à 18:52
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
17 févr. 2013 à 21:40
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
17 févr. 2013 à 23:18
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