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
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


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
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
0
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
17 févr. 2013 à 18:52
bonjour

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
0
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 à 21:40
bonsoir;

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
0
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 à 23:18
re,

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
0
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
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
0
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
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
0
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
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
0
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
re

en espérant que tu puisses ouvrir désolé
https://www.cjoint.com/?CBsnGLHBSCS
Crdlt
0
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
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
0
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
re

Apparemment tout à l'air d'être bon

Je te tiens au courant

Merci
Cordialement
0

Discussions similaires