Tirage aux sort sur 4 tours sans doublons
Bonsoir le forum
mon clubs de basket organise un concours de belote
j ai trouvé plusieurs fichier pour l organiser mais il ne me convient pas après plusieurs recherche
j ai trouver ce fichier qui fait un tirage au sort sur 1 tour
et j essai de le modifier pour qu il face un tirage sur 4 tours
les équipes ne doivent pas se rencontrer deux fois
quel code dois je utilise pour modifier cette macro et comment la mettre en place
en A1 le nombre d’équipe
le résultats du 1 er tour se trouve en C et D
le résultat du 2 eme tours doit se trouver en E et F
le résultat du 3 eme tours doit se trouver en G et H
le résultat du 4 eme tours doit se trouver en I et J
Voici la macro
Function DistinctRandomNumbers(NumCount As Long, LLimit As Long, ULimit As Long) As Variant
Dim RandColl As Collection, i As Long, varTemp() As Long
DistinctRandomNumbers = False
If NumCount < 1 Then Exit Function
If LLimit > ULimit Then Exit Function
If NumCount > (ULimit - LLimit + 1) Then Exit Function
Set RandColl = New Collection
Randomize
Do
On Error Resume Next
i = CLng(Rnd * (ULimit - LLimit) + LLimit)
RandColl.Add i, CStr(i)
On Error GoTo 0
Loop Until RandColl.Count = NumCount
ReDim varTemp(1 To NumCount)
For i = 1 To NumCount
varTemp(i) = RandColl(i)
Next i
Set RandColl = Nothing
DistinctRandomNumbers = varTemp
Erase varTemp
End Function
Sub Test()
Dim varrRandomNumberList As Variant
varrRandomNumberList = DistinctRandomNumbers(Range("nombre_eq"), 1, Range("nombre_eq"))
Range(Cells(3, 3), Cells(Range("nombre_eq") + 2, 3)).Value = _
Application.Transpose(varrRandomNumberList)
x = Range("Nombre_eq") / 2
Derligne = Sheets("Séries").Range("C2").End(xlDown).Row
Range(Cells(x + 3, 3), Cells(Derligne, 3)).Cut (Cells(3, 4))
End Submerci d'avance pour votre aide
Cordialement
Wazizou
bonsoir,
dépendant du nombre d'équipes à répartir sur 4 tours, les méthodes pourraient être différentes.
10 à 20 équipes sur 4 tours, on utilise un tableau des rencontres et on tire au hasard la position des équipes dans le tableau.
plus de 20 équipes, on peut faire un tirage sans doublon sur 4 tours.
tu peux également utiliser la méthode suisse.
Bonsoir h2so4 et le forum
merci pour ta reponse
pour le concours le minimum de participant est de 6 joueurs et le maximum est de 100 joueurs
j ai déjà regarder le fichier que tu me propose mais je n arrive pas a déchiffrer la macro pour avoir la solution
il me faudrait beaucoup d explication pour que je puisse exploiter la macro tu fichier suisse
cordialement
Wazizou
bonsoir,
une version basée sur un canevas fixe. mettre le nombre d'équipes en A1 sur sheet2. et lancer la macro via alt-F8
Re bonsoir
avec 6 joueurs on peux faire 4 tours
dans mon fichier dans le nombre de joueur j ai mis 6 j ai fait un tirage j ai eu mon premier tour et les trois autres tours j ai remplie le tableau manuellement
cordialement
Wazizou
bonsoir,
tu as lu mon message trop rapidement,
re bonsoir
ton fichier est bien mais peut on avoir le résultat sans avoir tout le tableau
pour l affichage des tour il me les faut comme dans mon exemple je vais faire des tableau pour faire les tables avec la fonction recherche
cordialement
Wazizou
Bonjour h2so4 et le forum
merci pour le fichier ça marche comme je veux
j ai une dernière demande :comment enlever la couleur et le quadrillage ou le modifier car dans mon exemple c est des couleurs au hasard pour mieux voir le tableau
et si c est possible pouvez vous me mettre quelques explication pour que je puisse comprendre la macro et la mise en forme
merci d'avance
Cordialement
Wazizou
re bonjour
merci pour ta réponse mais je ne vois pas le code et ses explications
cordialement
Wazizou
bonjour,
fichier ajouté, voir message précédent