Faire un programme de tirage au sort avec Excel ?

[regis]

bonjour a tous

je precise qu'excel et moi ça fait 3

voici mon probleme

j'organise un tournoi de tennis de table. J'ai 256 participants. Je voudrais gérer mes tirages au sort par informatique pour pas m'embeter avec des papiers et des boules.

tirage au sort jusqu'aux demi-finales

Est-ce possible sous excel ? comment faire ?

une ame charitable pourrait-elle m'aider ?

voila je vous remercie de votre attention

 

[regis]

je precise que je ne souhaite pas un tirage du style du tennis (ou les adversaires connaissent leur adversaire en cas de victoire.

pour chaque tour un tirage integral.

je rentrerais les noms a la main

encore merci

 

[Lord Nelson]

Salut Régis,

Voici une macro qui te permettra de tirer au sort 256 numéros :

Sub Tirage_256_Numéros()
Dim I As Integer, Num As Integer
Dim Temp As String
Temp = Chr(9)
For I = 1 To 256
Randomize Timer
Do
Num = Int(Rnd * 255) + 1
If InStr(Temp, Chr(9) & CStr(Num) & Chr(9)) = 0 Then
Temp = Temp & Chr(9) & CStr(Num)
Range("B" & CStr(I)) = Num
Exit Do
End If
Loop
Next
End Sub

La variable Temp sert à vérifier qu'un numéro n'a pas déjà été tiré.

A+
Horatio

 

[CBernardT]

Bonsoir Regis, Horatio et le forum

Une approche de gestion de tournoi de tennis de table à finaliser.

Automatisation de l'affichage dans la feuille de tournoi. Les noms sont à droite des numéros tirés au sort.

Un mot de passe protège le tirage au sort ( Trois étoiles ***) ainsi que l'accès à la feuille de tournoi.

La mise en page de L'impression de la feuille de tournoi est préparée.

Cordialement

CBernardT

 

[regis]

merci beaucoup

cbernardT, ou rentre-t-on les noms dans ta feuille excel ?

amitiés