Tirage au sort aléatoire 4 fois de suite

Didier59156

XLDnaute Nouveau
Bonjour à toutes et tous,
J"étais déjà inscrit sous un autre pseudo mais avec la boite mail de mon ancien boulot, j'ai donc été obligé de recréer un compte. Voilà pour resituer.
Ma demande est la suivante, certes il y a une profusion de discussion à ce sujet mais je n'ai pas trouvé ce que je cherchais. En bref,
En colonne A1 j'ai un aléa sans doublon : de A2 à A65 =aléa()+ligne()/1000
En colonne B j'ai un rang : de B2 à B65 =rang(a2;a2:a65;1)
Par macro je copie la colonne B en colonne C puis D puis E puis F, soit 4 fois.
A partir de C j'organise un tirage au sort.
Je voudrais organiser la même chose avec les colonnes D, E et F avec la contrainte : jamais le même partenaire ni jamais le même adversaire. J'ai juste besoin de cette requête, le reste je m'en occupe.
Un grand merci pour vos réponses.
 

Staple1600

XLDnaute Barbatruc
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour à tous

Didier59156 [ReBienvenue sur le forum]
Voilà pour resituer.
De mon côté, je resitue aussi ;) car tu as du zappé ce petit paragraphe qui vient de s'afficher sur ton écran il y a quelques minutes ;)
IMPORTANT :
- CHARTE DU FORUM : Lisez LA CHARTE avant votre première intervention.

- ILLUSTREZ VOTRE DEMANDE : Afin de faciliter la compréhension de votre demande il est conseillé de joindre un PETIT fichier qui illustre votre question précise et montre les résultats que vous cherchez à obtenir.
Pour l'envoyer, cliquez sur le trombone ci-dessous ou sur le bouton "Gérer les pièces jointes" dans la zone "Options supplémentaires".Ensuite, cliquez sur le bouton "Parcourir" et sélectionnez-le (après l'avoir compressé s'il dépasse les 250Ko).
 

Didier59156

XLDnaute Nouveau
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour,
Avec toutes mes excuses mais je pensais que mon explication était claire. Mais il est vrai qu'un exemple est toujours plus parlant.
En pièce jointe ce que j'obtiens avant d'effectuer mon tirage.
Merci
 

Fichiers joints

Modeste geedee

XLDnaute Barbatruc
Re : Tirage au sort aléatoire 4 fois de suite

Bonsour®
En colonne A1 j'ai un aléa sans doublon : de A2 à A65 =aléa()+ligne()/1000
En colonne B j'ai un rang : de B2 à B65 =rang(a2;a2:a65;1)
l'ajout de ligne()/1000 est superfétatoire...
"by design" la fonction alea() est sans doublon sur plus d'un million de cellule lors d'un tirage simultané
Par macro je copie la colonne B en colonne C puis D puis E puis F, soit 4 fois.
A partir de C j'organise un tirage au sort.
Je voudrais organiser la même chose avec les colonnes D, E et F avec la contrainte : jamais le même partenaire ni jamais le même adversaire. J'ai juste besoin de cette requête, le reste je m'en occupe.
Un grand merci pour vos réponses.
là il va falloir passer par l'objet Scripting dictionnaire...:rolleyes:
 

Didier59156

XLDnaute Nouveau
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour,
Effectivement la ligne()/100 aurait pu être placé dans la colonne suivante. Peux-tu me préciser ce qu'est "l'objet Scripting dictionnaire".
Merci
 

CBernardT

XLDnaute Barbatruc
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour Didier59156 et le forum,

Bonjour Staple1600

Un tirage tel que souhaité par tableau dynamique avec utilisation de dictionnaires pour la rapidité.

Le tirage d'origine pourrait être avantageusement remplacé par un tirage en VBA, plus pro :)
 

Fichiers joints

Dernière édition:

Didier59156

XLDnaute Nouveau
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour,

CBernardT, merci de t'être penché sur la question mais pour information c'est la méthode que j'ai utilisé. Néanmoins, celle-ci ne certifie pas que chaque joueur ne jouera qu'une seule fois avec le même partenaire ni qu'il ne rencontrera jamais le même adversaire.
Encore merci pour vos réponses.
 

Didier59156

XLDnaute Nouveau
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour au forum et merci à ceux qui ont répondu.
Pour être plus clair dans ma demande, voici un fichier test avec exactement le résultat attendu.
Je pense que les "maîtres de VBA" devraient pouvoir m'aider.
Merci d'avance et bonne journée à toutes et tous.
 

Fichiers joints

JBARBE

XLDnaute Barbatruc
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour à tous,

Il y a un problème pour ouvrir le fichier !!!!

bonne journée
 

Didier59156

XLDnaute Nouveau
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour JBARBE, et le forum
Quel est le problème ? De mon coté j'arrive à l'ouvrir. C'est un excel 2003
 

JBARBE

XLDnaute Barbatruc
Re : Tirage au sort aléatoire 4 fois de suite

Bonjour JBARBE, et le forum
Quel est le problème ? De mon coté j'arrive à l'ouvrir. C'est un excel 2003
Problème réglé après avoir répété l'enregistrement avec Excel 2007 !

Toutes mes excuses !
 

Discussions similaires


Haut Bas