XL 2021 tirage au sort aléatoire sans doublon

[aubaluc]

bonjour
je me penche vers vous car je sèche sur un problème que je vais essayer de vous expliquer clairement
je souhaite effectuer un tirage au sort de 2 tours avec 40 équipes maximum ( le nombre peut être différent )
il faut que dans les 2 tirages il n'y ait pas de doublon c'est à dire que dans chaque match 2 équipes ne se rencontrent pas
j'ai essayé avec la formule ALEA mais je ne suis pas certain de ne pas avoir de doublon
je pense qu'avec une macro se serai plus certain
je vous mets en pièce jointe l'exemple
merci d'avance à celles ou ceux qui voudront bien me dépanner
aubaluc

 

[Dranreb]

Les boucles dans Tirage1vs1OK ne sont que des initialisations.
Le plus gros du traitement est fait par la RencTrouvée qui s'auto-appelle récursivement après chaque paire formée pour établir le reste du tirage. Cette paire est en effet présumée provisoire du fait qu'elle peut empêcher l'appel récursif de trouver la suite s'il ne reste par exemple que 2 dernier joueurs et qu'il se sont déjà rencontrés lors d'une manche précédente.

 

[aubaluc]

bonjour
je me penche vers vous car je sèche sur un problème que je vais essayer de vous expliquer clairement
je souhaite effectuer un tirage au sort de 2 tours avec 40 équipes maximum ( le nombre peut être différent )
il faut que dans les 2 tirages il n'y ait pas de doublon c'est à dire que dans chaque match 2 équipes ne se rencontrent pas
j'ai essayé avec la formule ALEA mais je ne suis pas certain de ne pas avoir de doublon
je pense qu'avec une macro se serai plus certain
je vous mets en pièce jointe l'exemple
merci d'avance à celles ou ceux qui voudront bien me dépanner
aubaluc

Rebonjour,
merci beaucoup pour votre réponse rapide
il y a un problème , j'ai spécifié que le nombre d'équipes pouvait être différent , cela va de 8 à 40 équipes
votre réponse donne un tirage avec 40 équipes même si il y a 24 équipes donc problème
le nombre d'équipe est déterminé dans la colonne B à l'inscription des noms
aubaluc

 

[Dranreb]

@aubaluc, bonsoir.
Il aurait mieux valu mettre les plages sous forme de tableaux. En attendant la solution que j'ai proposée prend comme nombre d'équipes le nombre de lignes renseignées en colonne A à partir de la A3
Pour prendre plutôt la colonne B, mettez dans la macro Tirages :

' Récupération des inscrits
   TDon = WshT1.[A3:B3].Resize(WshT1.Cells(2 ^ 20, "B").End(xlUp).Row - 2).Value

Et effacez les lignes en trop dans la seconde feuille.