Tirage au sort

Bonjour

J'aimerais organiser un tirage au sort, sur une liste d'environ 200 noms.

Mon idée serait d'avoir sur une feuille excel, dans une cellule, les 200 noms qui défilent (par un random ?), pendant quelques secondes, et qui affichent enfin le dernier résultat du random pour donner la personne gagnante.

Donc voila, j'ai mon idée assez précise en tête du résultat dans Excel...... mais je ne sais pas comment le coder en VBA.....

Pouvez vous m'aider ??

Merci !!

Bonjour,

une proposition

C'est nickel ! Merci beaucoup !!

encore une petite question... ayant un peu avancé sur mon projet, j'ai un nouveau soucis !

Pour tirer au sort 10 gagnant parmi la liste complète des participants, je voudrais tester le fait qu'un gagnant n'est pas déjà sorti.

j'ai essayé avec un If, or... mais ça ne fonctionne pas....

Qu'est-ce que j'ai pu louper ??

Je vous joins mon fichier.

Il y a une macro par tirage. et l'ordre du tirage se fait de haut en bas. Les macros étant lancées à l'aide des flèches à coté de chaque cellule jaune.

Merci !!

bonjour,

une adaptation de ton code

Sub tirage(c)
    Dim participants
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim participants(1 To dl)
    k = 0
    For i = 2 To dl
        For j = 3 To c Step 2
            If Cells(i, 1) = Cells(j, 7) Then j = 1000
        Next j
        If j < 1000 Then
            k = k + 1
            participants(k) = Cells(i, 1)
        End If
    Next i
    Cells(c, 7).Interior.Color = RGB(150, 200, 230)
    Cells(c, 7).Font.Bold = False
    Cells(c, 7).Font.Size = 12
    For i = 1 To 100
        q = Application.RandBetween(1, k)
        Cells(c, 7) = participants(q)
        For j = 1 To i * 50000: Next j
    Next i
    Cells(c, 7).Interior.Color = RGB(255, 217, 102)
    Cells(c, 7).Font.Bold = True
    Cells(c, 7).Font.Size = 28
End Sub
Sub tirage1()
    tirage (3)
End Sub
Sub tirage2()
    tirage (5)
End Sub
Sub tirage3()
    tirage (7)
End Sub
Sub tirage4()
    tirage (9)
End Sub
Sub tirage5()
    tirage (11)
End Sub
Sub tirage6()
    tirage (13)
End Sub
Sub tirage7()
    tirage (15)
End Sub
Sub tirage8()
    tirage (17)
End Sub
Sub tirage9()
    tirage (19)
End Sub
Sub tirage10()
    tirage (21)
End Sub

Super !!

je n'ai pas tout compris au code (voire rien du tout)... mais ça marche bien !!

juste, si je peux encore abuser... j'ai une demande de mon chef pour savoir si on peut effectuer un autre tirage au sort du bas vers le haut, de manière à ce qu'on ait visuellement un "classement" du 10ème au 1er prix.

j'ai essayé mais j'obtiens des doublons si je fais le tirage de bas en haut.

Encore merci !

bonjour,

code adapté

Sub tirage(c)
    Dim participants
    If c <> 21 Then If Cells(c + 2, 7) = "" Then MsgBox "vous ne pouvez pas encore faire ce tirage": Exit Sub
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim participants(1 To dl)
    k = 0
    For i = c To 3 Step -2
        Cells(i, 7) = ""
    Next i
    For i = 2 To dl 'on prépare une liste de personnes à tirer au sort
        For j = 21 To c Step -2
            If Cells(i, 1) = Cells(j, 7) Then j = 0
        Next j
        If j > 0 Then 'personne non tirée précédemment
            k = k + 1
            participants(k) = Cells(i, 1)
        End If
    Next i
    Cells(c, 7).Interior.Color = RGB(150, 200, 230)
    Cells(c, 7).Font.Bold = False
    Cells(c, 7).Font.Size = 12
    For i = 1 To 100
        q = Application.RandBetween(1, k)
        Cells(c, 7) = participants(q)
        For j = 1 To i * 50000: Next j
    Next i
    Cells(c, 7).Interior.Color = RGB(255, 217, 102)
    Cells(c, 7).Font.Bold = True
    Cells(c, 7).Font.Size = 28
End Sub
Sub tirage1()
    tirage (3)
End Sub
Sub tirage2()
    tirage (5)
End Sub
Sub tirage3()
    tirage (7)
End Sub
Sub tirage4()
    tirage (9)
End Sub
Sub tirage5()
    tirage (11)
End Sub
Sub tirage6()
    tirage (13)
End Sub
Sub tirage7()
    tirage (15)
End Sub
Sub tirage8()
    tirage (17)
End Sub
Sub tirage9()
    tirage (19)
End Sub
Sub tirage10()
    tirage (21)
End Sub

Encore une fois SUPER !! normalement j'ai tout ce dont j'ai besoin cette fois

Merci beaucoup !!