modification pour tirage au sort 5 fois différents

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

rocornet

XLDnaute Junior
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
 
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.
 
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
 
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
179
Réponses
3
Affichages
665
Réponses
33
Affichages
3 K
Retour