Tirage aléatoire 5000 sur 10'000 [Résolu]

Bonjour,
Peut-être un peu tard !!

Sub Tirage5000()
Dim B(10000) As Boolean
Dim Nb As Integer, Tirage As Integer
    Randomize (Timer)
    While Nb < 5001
        Tirage = Int((10000 * Rnd) + 1)
        If Not B(Tirage) Then
            B(Tirage) = True
            Nb = Nb + 1
            Sheets("Feuil2").Cells(Nb, 1) = Sheets("Feuil1").Cells(Tirage, 1)
        End If
    Wend
End Sub

Adapter les noms des feuilles.
A+

Il me semble que sur le 2011 pour Mac la possibilité de VBA est de retour?
Alors, Tu tape Alt+F11
Dan l'IDE de VBA (éditeur de macros) tu sélectionne >> Insertion >> Module >> Valider
Dans la fenêtre tu colle le code que je t'ai mis plus haut en adaptant les noms des feuilles, Feuil1 = la feuille où se situe tes 10000 noms, Feuil2 où tu veux que les 5000 noms soient inscrit.
Tu referme l'IDE
Dans la feuille Excel tu colle un bouton (Contrôle ActiveX)
Note: la configuration normale ne te donne pas accès à cette fonction, tu dois..
Clic sur le rond (haut gauche) d'excel.
En bas à droite >> clic sur Option d'Excel
Dans la partie "Standard" cocher la propriété > Afficher l'onglet Développeur.
OK
Et c'est dans ce ruban que tu va avoir >> Insérer.
Revenons à nos moutons.
Le bouton coller sur ta feuille tu double clic dessus.
La partie code de la feuille va s'ouvrir dans l'IDE avec écrit..

Private Sub CommandButton1_Click() 

End Sub

Au milieu tu met Tirage5000 pour avoir

Private Sub CommandButton1_Click() 
    Tirage5000 
End Sub

La première fois ça parait bien compliquer mais tu verras qu'avec le temps ce sera beaucoup plus simple.
Reste plus qu'a cliquer sur le bouton.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.

Bonjour,

En supposant que les prénoms se trouve en A1:A10000 (sans doublon), sans VBA, avec plusieurs colonnes, on peut extraire 5000 prénoms aléatoirement (sans doublon).

en B1, à tirer jusqu'en B10000 :
=ALEA()

en C1, à tirer jusqu'en C10000 :
=RANG(B1;B:B;1)

en E1, à tirer jusqu'en E5000 :
=INDEX(A:A;EQUIV(LIGNE();C:C;0))

Cordialement
Patrice