Tirer au sort un nombre variable de personnes parmi une liste de noms

[xgraindo]

Bonjour

Organisant un trail de course à pied, on veut faire gagner des lots par tirage au sort sur les participants.
Par exemple, à partir d'une liste de 500 noms, je veux extraire par tirage au sort 7 noms.

Avec la possibilité de:
-rajouter ou supprimer des noms dans la liste
-paramétrer le nombre de noms à tirer au sort

Pas bien calé en VB, bon utilisateur de EXCEL et des formules sans être expert, je suis en gros capable de modifier du code (exemple, le nombre de noms à tirer). Voilà.

Merci d'avance pour vos aides.

 

[CHALET53]

Re : Tirer au sort un nombre variable de personnes parmi une liste de noms

Bonjour,

Peut-être voir ce fil de Pierrot93

https://www.excel-downloads.com/threads/tirage-au-sort-de-quelques-noms-dune-liste.152611/

a+

 

[mécano41]

Re : Tirer au sort un nombre variable de personnes parmi une liste de noms

Bonjour à tous,

Eventuellement comme ceci avec :

- noms en A1:A500
- Nb de noms à sélectionner en B1
- résultat en C1:Cn

A adapter pour les plages concernées...

Option Base 1
Private Sub EssaiSelection)
Dim T As Variant
Dim Tsel() As String
Dim NbSel As Long
Dim Cpt1 As Long
Dim Cpt2 As Long
Dim PosAleat As Long

NbSel = Range("B1").Value
T = Range("A1:A500").Value
ReDim Preserve Tsel(1)
For Cpt1 = 1 To NbSel
    Randomize
    PosAleat = Int(UBound(T) * Rnd + 1)
    For Cpt2 = 1 To UBound(Tsel)
        If T(PosAleat, 1) = Tsel(Cpt2) Then
            Exit For
        End If
    Next Cpt2
    If Cpt1 < NbSel + 1 Then
        ReDim Preserve Tsel(UBound(Tsel) + 1)
        Tsel(Cpt1) = T(PosAleat, 1)
    End If
Next Cpt1
ReDim Preserve Tsel(UBound(Tsel) - 1)
Range("C1").Resize(NbSel).Value = WorksheetFunction.Transpose(Tsel)
End Sub

Cordialement

 

[GI_GI]

Re : Tirer au sort un nombre variable de personnes parmi une liste de noms

Bonjour a tous
Un essai différent.

 

[ROGER2327]

Re : Tirer au sort un nombre variable de personnes parmi une liste de noms

Bonsoir à tous.

Un essai élaboré.​

ROGER2327
#6786

Jeudi 19 Phalle 140 (Prélote, capucin - fête Suprême Quarte)
12 Fructidor An CCXXI, 6,8156h - fenouil
2013-W35-4T16:21:27Z