Tirage aléatoire 5000 sur 10'000
Résolu
Xin
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de faire un travail d'étude et je ne suis pas très calé en Excel...
Bref, j'aimerais savoir comment faire sur Excel pour réussir à choisir 5000 prénoms sur 10'000 que j'ai à ma disposition aléatoirement.
Etant donné que ce ne sont pas des chiffres, j'ai pensé à mettre =NBVAL pour sélectionner toutes les cases... mais ça va me sélectionner QU'UNE seule adresse aléatoirement... alors que j'en aimerais 5000 sur 10'000.
Et recopier tous les noms entre guillemets dans la formule.... humm... non merci lool ^^
Merci pour vos réponses =)
Xin
Je suis en train de faire un travail d'étude et je ne suis pas très calé en Excel...
Bref, j'aimerais savoir comment faire sur Excel pour réussir à choisir 5000 prénoms sur 10'000 que j'ai à ma disposition aléatoirement.
Etant donné que ce ne sont pas des chiffres, j'ai pensé à mettre =NBVAL pour sélectionner toutes les cases... mais ça va me sélectionner QU'UNE seule adresse aléatoirement... alors que j'en aimerais 5000 sur 10'000.
Et recopier tous les noms entre guillemets dans la formule.... humm... non merci lool ^^
Merci pour vos réponses =)
Xin
A voir également:
- Tirage aléatoire 5000 sur 10'000
- Tirage au sort excel aléatoire sans doublon ✓ - Forum Excel
- Port 5000 - Forum Virus
- Tirage diapositives sur papier fnac - Forum Graphisme
- Port 5000 - Forum Réseau
- Port 5000 normal ou pas - Forum Virus
3 réponses
Bonjour,
Peut-être un peu tard !!
A+
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 SubAdapter 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..
Au milieu tu met Tirage5000 pour avoir
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.
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
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
En fait je voulais une formule sur Excel.... C'est possible de faire ça directement sur Excel ?
Merciiiii pour tes infos et ton aide ^^
Xin (xinoux)
Possible sur Excel mais en VBA.
Pas possible en formule.
A+