tirage au sort

R

ruru

Guest
Bonjour, je recherche une macro pour faire un tirage au sort.

Dans ce tirage, je doit entrer un liste de noms de personne, le nombre de personne peut varier, de cette liste de nom il doit en resortir 5 par tirage au sort.


merci.
 

Jacques87

XLDnaute Accro
Bonjour

Une méthode, certainement parmi d'autres.
A chaque nom de personne tu associes un numéro d'ordre.
exemple 1 Dupont
2 durand
etc ...

le tirage au sort tu l'effectues grace à la fonction ALEA ou RANDOM en anglais, sur les numéros
tu sors de cette façon 5 nombres aléatoires compris entre 1 et N, N étant le nombre total de personnes
Il te suffit, pour terminer, de retrouver les noms qui correspondent aux numéros

Bon courage
 

jp14

XLDnaute Barbatruc
Bonjour

Ci joint un fichier qui peut répondre au problème [file name=tirage3_20060119110231.zip size=35821]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tirage3_20060119110231.zip[/file]

Il faut modifier la macro jouer2

Il faudrait modifier modifier la macro jouer2()

au lieu de
For i = 1 To Sheets('travail').Range('A65536').End(xlUp).Row

mettre
For i = Sheets('travail').Range('A65536').End(xlUp).Row To 1 Step -1

Cela supprime une erreur.

A+

Message édité par: jp14, à: 20/01/2006 17:08
 

Pièces jointes

  • tirage3_20060119110231.zip
    35 KB · Affichages: 69

Discussions similaires

Statistiques des forums

Discussions
312 228
Messages
2 086 418
Membres
103 205
dernier inscrit
zch