Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

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é

là il va falloir passer par l'objet Scripting dictionnaire...
 

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
 

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…