Tirage au sort simple

[gourdin]

Bonjour,

En cliquant sur un bouton, je souhaite tirer au sort 1 nom dans une colonne de noms.
Le nom tiré au sort est placé dans un autre colonne et disparait de la liste initiale.

A chaque clic sur le bouton un nouveau nom est choisi etc..

Merci

Voir fichier joint

 

[job75]

Re : Tirage au sort simple

Bonjour gourdin, le forum,

Affectez au bouton la macro suivante :

Sub Tirage()
If Application.CountA([B9:B28]) = 0 Then MsgBox "Plus de nom à tirer...": Exit Sub
Dim lig As Integer
Randomize
1 lig = 9 + Int(20 * Rnd)
If Cells(lig, 2) = "" Then GoTo 1
[D29].End(xlUp)(2) = Cells(lig, 2)
Cells(lig, 2) = ""
End Sub

A+

 

[gourdin]

Re : Tirage au sort simple

Merci beaucoup

C'est parfait

 

[Naynouk]

Re : Tirage au sort simple

J'aimerais utiliser le document de gourdin pour faire un tirage au sort pour un coucours mais j'ai une liste de nom beaucoup plus longue.

Comment dois-je faire? Je dois modifier la macro?😕

 

[job75]

Re : Tirage au sort simple

Bonjour Naynouk, bienvenue sur XLD,

Je dois modifier la macro?😕

Bien sûr, mais d'abord il faut tâcher de comprendre sur l'exemple de gourdin.

Ce qui est modifiable est en rouge :

Sub Tirage()
If Application.CountA([[COLOR="Red"]B9:B28[/COLOR]]) = 0 Then MsgBox "Plus de nom à tirer...": Exit Sub
Dim lig As Integer
Randomize
1 lig = [COLOR="Red"]9[/COLOR] + Int([COLOR="Red"]20[/COLOR] * Rnd)
If Cells(lig, [COLOR="Red"]2[/COLOR]) = "" Then GoTo 1
[[COLOR="Red"]D29[/COLOR]].End(xlUp)(2) = Cells(lig, [COLOR="Red"]2[/COLOR])
Cells(lig, [COLOR="Red"]2[/COLOR]) = ""
End Sub

A+

 

[camarchepas]

Re : Tirage au sort simple

Bonjour ,

Voici un fichier qui ce débrouille seul pourvu que ta liste soit dans la colonne A

 

[Naynouk]

Re : Tirage au sort simple

Merci bcp camarchepas.
C'est parfait ! Il me fallait rien de plus.

Bonne journée.