Discussion :

[rocornet]

Bonjour j'ai un code qui me permets de tirer au sort des données
Mais j'aimerais que ce code fasse 5 tirage et que aucune données
soit les mêmes au fur à mesure des tirages
(de façon 100% fiable)
Alors en resume
a chaque partie chaque "equipier" joue avec un autre equipier contre un autre duo d'equipier
Donc il faut tirer ces equipiers au sort mais a chaque aucun de ces equipiers ne doivent se retrouver dans les matchs d'après
juste une précision les coéquipiers de peuvent pas joué 2 fois un contre l'autre et ni 2 fois ensemble
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Sub tirage_automatique()
 ReDim t(0)
 For Each cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 If cel.Value <> "" Then
 t(UBound(t)) = cel.Value
 ReDim Preserve t(UBound(t) + 1)
 End If
 Next
 ReDim Preserve t(UBound(t) - 1)
 Set dico = CreateObject("scripting.dictionary")
 Randomize
 While dico.Count < UBound(t) + 1
 x = Int((UBound(t) + 1) * Rnd)
 dico(x) = t(x)
 Wend
 Range("C2").Resize(UBound(t) + 1) = Application.Transpose(dico.items)
 End Sub