Discussion :

[Kleon]

Bonjour,

j'aimerai faire un tirage au sort parmi 42 noms, et que le résultat apparaisse dans une msgbox après avoir appuyé sur le bouton du tirage.

J'arrive bien a générer des nombres, mais comment les faire correspondre a un des 42 noms?

Merci.

[Transitoire]

Bonjour, vous faites un tableau comportant en colonne A les noms et en colonne B des numéros de 1 a x en sachant qu'il vous suffit de trouver le numéro identique à celui sortis pour entrer le nom qui y est associé.
Cordialement

[patricktoulon]

bonjour
randomize et rnd

dans une plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test() 'dans une plage
dim plage as Range
Randomize
Set plage = Range("A1", Cells(Rows.Count, 1).End(xlUp))
MsgBox plage.Cells(1 + (Rnd * plage.Cells.Count - 1))
End Sub

dans une variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test2() 'dans une variable tableau
din tabl as variant 
Randomize
tabl = Array("toto", "titi", "riri", "fifi", "loulou", "truc", "machin")
MsgBox tabl(Rnd * UBound(tabl))
End Sub

a chaque lancement d'une des deux sub test tu sortira un nom au hasard
parfois il peut sortir plusieur fois, on peu regler ca tres facilement avec une variable nom en variable global qui memoriserait le nom choisi et l'exepter sur le prochain tirage

pas besoins de l'associer a un numero d'index

edit:
petite precision
la plage peut etre multiligne et multicolonne car je ne choisi pas par ligne/colonne mais par l'index de sa position dans le .count

[kiki29]

Salut, voir la FAQ