modification pour tirage au sort 5 fois différents

[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)
parce que si on utilise ce code il peut qu'il aie 2 fois le x en xème position.
Merci d'avance



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

 

[Modeste geedee]

Re : modification pour tirage au sort 5 fois différents

Bonsour®

-
combien de nombres à tirer parmi combien ????

sans macro
sans doublon
sans remise

 

[rocornet]

Re : modification pour tirage au sort 5 fois différents

Alors j'aimerais que quand on appuie sur le bouton tirage des matchs
un tirage ce fasse de façon que les données de la colonne A depuis A5 ce dispachent aléatoirement (tirage au sort)
dans les cases de la colonne C depuis C3.
Mais comme il y a 5 matchs aucuns des numéros doivent se retrouvés au même endroits situé les uns à côté des autres
ex.:
match1 (après tirage) : 1 2 3 4 5 6 7 8
match2(après tirage) : 1 5 9 10 2 6 11 12
etc.

 

[Modeste geedee]

Re : modification pour tirage au sort 5 fois différents

Bonsour®


l'exemple fourni est en effet très explicite !!!!

 

[rocornet]

Re : modification pour tirage au sort 5 fois différents

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

 

[Modeste geedee]

Re : modification pour tirage au sort 5 fois différents

Bonsour®

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

je répéte :
juste une pièce jointe pour faire avancer le schi... schimili...mili...

 

[rocornet]

Re : modification pour tirage au sort 5 fois différents

Ah oui pardon
voilà
les équipiers doivent aterrirent dans les colonnes C des tour 1-5
juste une précision les coéquipiers de peuvent pas joué 2 fois un contre l'autre et ni 2 fois ensemble