Tirage au sort sur plusieurs listes

Bonjour à tous,

pour un match aux cartes, je cherche à faire un tirage au sort aléatoire des parties à jouer.

Pour le test, j'ai pris 32 équipes (colonne A), mais il peut y en avoir plus ou moins en fonction des inscriptions.

J'ai essayer quelque chose avec formule. Dans la colonne V, j'ai mis le numéro de table pour les joueurs.

Mes soucis :

Avec mon système il est possible que 2 équipes avec les mêmes numéros se retrouve face à face

Il est aussi possible que deux matchs identiques se disputent

Existe-t-il une autre solution ou c'est impossible ?

Bonjour

Tu fais combien de tour?

Il y aura 4 tours

Bonjour

Un exemple de tirage

Si cela te convient passes le sujet en résolu

Bonjour,

Un tout grand merci il est vraiment top !

J'ose vous demander les mots de passe histoire que je comprenne le truc ? ou alors de me le donner déverrouillé?

Bonjour

Si tu n'y connais rien en vba ce sera difficile de comprendre les codes

Un exemple d'un des différents codes

Private Sub BtnTirage_Click()

Dim MMax As Long, LMax As Long, TRésult(), L As Long, M As Long, C As Long

Rem. ——— Teste si le tableau Tirage a pu être garni (en essayant).
If TirageOK(NbJInscr:=Me.[JMax].Value, NbTours:=Me.[MMax].Value, NbJEq:=1) Then

   Rem. ——— Versement du tableau Tirage vers un tableau de valeurs de cellules.
   MMax = UBound(Tirage, 1) ' Nombre de tours.
   LMax = UBound(Tirage, 2) ' Nombre de lignes.
   ReDim TRésult(1 To LMax, 1 To 2 * MMax)
   For L = 1 To LMax: For M = 1 To MMax: For C = 1 To 2
      If Tirage(M, L, C) <> 0 Then TRésult(L, 2 * (M - 1) + C) = Tirage(M, L, C)
      Next C, M, L

   Rem. ——— Déchargement du tableau TRésult vers la plage souhaitée.
   ValeurPlageAjustée(Me.[Rencontre], -2, 0, 2) = TRésult
   '        Remarque: vous n'êtes pas obligé de le faire comme ça.
   End If
Me.[A1].Select

End Sub

Rebonjour Ok merci