Tirage Au Sort Excel

[qbouvier]

Bonjour à tous.
Je souhaiterai réaliser un tirage au sort.
J'ai 32 concurrents qui doivent d'affronter en 16 matchs à élimination directe.
Comment faire pour ne pas retrouver 2 fois le même concurrent ?
(Explication détaillé, Je suis peu expérimentée.)

Merci D'avance.

 

[DL_13]

Re : Tirage Au Sort Excel

Bonjour et Bienvenue

Sur la base d'un code de pierrejean ici

Sub Tirage() 'Code de pierrejean
ligne = 4
colonne = 3
Set liste = New Collection
While liste.Count < 32
  Randomize
  num = Int((32 * Rnd) + 1)
  On Error Resume Next
   liste.Add num, CStr(num)
  On Error GoTo 0
Wend
For n = 1 To liste.Count
 Cells(ligne, colonne) = Range("A" & liste(n))
 ligne = ligne + 2
 If ligne > 34 Then
   ligne = 4
   colonne = colonne + 1
 End If
Next n
End Sub

Bonne journée

 

[phlaurent55]

Re : Tirage Au Sort Excel

Bonjour à tous,

voir fichier joint sans macro

à+
Philippe

 

[qbouvier]

Re : Tirage Au Sort Excel

Merci Beaucoup DL_13
Ce site est vraiment le top pour l'utilisation d'excel !
Encore Merci !