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 Lien supprimé 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
 

Pièces jointes

  • Test.xls
    24 KB · Affichages: 40
  • Test.xls
    24 KB · Affichages: 48
  • Test.xls
    24 KB · Affichages: 47

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:
 

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

Pièces jointes

  • Tirage-au-sort-aleatoire-4-fois-de-suite-V1.xls
    90.5 KB · Affichages: 51
  • Tirage-au-sort-aleatoire-4-fois-de-suite-V1.xls
    90.5 KB · Affichages: 44
  • Tirage-au-sort-aleatoire-4-fois-de-suite-V1.xls
    90.5 KB · Affichages: 53
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.
 

Pièces jointes

  • Test excel download.xls
    27.5 KB · Affichages: 51
  • Test excel download.xls
    27.5 KB · Affichages: 44
  • Test excel download.xls
    27.5 KB · Affichages: 42

Discussions similaires

Statistiques des forums

Discussions
311 705
Messages
2 081 733
Membres
101 807
dernier inscrit
foued