Comment créer des tirages au sort de noms dans Excel ?

Dans votre travail quotidien, il peut arriver que vous deviez sélectionner aléatoirement certains employés dans une longue liste de noms pour désigner les gagnants. Dans Excel, comment pourriez-vous sélectionner des noms au hasard pour organiser un tirage au sort ? Dans cet article, je vais vous parler de quelques méthodes utiles pour accomplir cette tâche dans Excel.

Extraire des noms aléatoires pour un tirage au sort avec une formule

Sélectionner des noms aléatoires pour un tirage au sort avec Kutools pour Excel

Extraire des noms aléatoires pour un tirage au sort avec du code VBA

Extraire des noms aléatoires pour un tirage au sort avec une formule

Par exemple, si je veux extraire 3 noms quelconques de la liste de noms, la formule suivante complexe peut vous aider, procédez comme suit :

Entrez cette formule dans une cellule vide où vous souhaitez afficher le résultat : =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , puis faites glisser la poignée de recopie vers le bas sur les cellules dont vous avez besoin, voir capture d'écran :

Remarques :

1. Dans la formule ci-dessus : A2:A16 est la liste de noms à partir de laquelle vous souhaitez extraire aléatoirement, B2 est le nombre requis de noms à extraire, C2 est la cellule où entrer la formule, et C1 est la cellule au-dessus de la cellule de la formule.

2. Vous pouvez appuyer sur la touche F9 pour obtenir un autre groupe de nouveaux noms aléatoirement.

Sélectionner des noms aléatoires pour un tirage au sort avec Kutools pour Excel

Les deux méthodes ci-dessus peuvent être difficiles pour la plupart d'entre nous. Ici, si vous avez Kutools pour Excel, avec sa fonction Trier une plage aléatoirement, vous pouvez rapidement sélectionner des noms de manière aléatoire.

Après avoir installé Kutools pour Excel, procédez comme suit :

1. Sélectionnez la liste de noms que vous souhaitez sélectionner aléatoirement. Ensuite, cliquez sur Kutools > Plage > Trier, Sélectionner ou Aléatoire, voir capture d'écran :

2. Dans la boîte de dialogue Trier, Sélectionner ou Aléatoire, sous l'onglet Sélectionner, entrez le nombre de noms que vous souhaitez sélectionner dans la zone de texte Nombre de cellules à sélectionner, puis choisissez Sélection aléatoire dans la section Type de sélection, voir capture d'écran :

3. Cliquez ensuite sur le bouton OK, et le nombre spécifique de noms que vous souhaitiez a été sélectionné, voir capture d'écran :

Cliquez pour télécharger Kutools pour Excel et essayez-le gratuitement maintenant !

Extraire des noms aléatoires pour un tirage au sort avec du code VBA

Ici, un code VBA peut également vous aider à accomplir cette tâche, procédez comme suit :

1. Maintenez les touches Alt + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Extraire des noms aléatoires d'une liste :

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

Remarque : Dans le code ci-dessus, B2 est la cellule contenant le nombre de noms que vous souhaitez extraire.

3. Après avoir inséré le code, cliquez sur Outils > Références dans la fenêtre Microsoft Visual Basic pour Applications ouverte, puis, dans la boîte de dialogue Références – Projet VBA qui s'affiche, cochez l'option Microsoft Scripting Runtime dans la liste des références disponibles, voir capture d'écran :

4. Cliquez ensuite sur le bouton OK pour quitter la boîte de dialogue, puis appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue contextuelle apparaît pour vous rappeler de sélectionner la liste de données à partir de laquelle vous souhaitez extraire les noms, voir capture d'écran :

5. Cliquez sur OK, et une autre boîte de dialogue contextuelle apparaît, veuillez sélectionner une cellule où vous souhaitez placer le résultat, voir capture d'écran :

6. Cliquez ensuite sur OK, et le nombre souhaité de noms a été créé aléatoirement en une seule fois, voir capture d'écran :