Tirage au sort simple

job75

XLDnaute Barbatruc

• 24 Juillet 2010

• #2

Re : Tirage au sort simple

Bonjour gourdin, le forum,

Affectez au bouton la macro suivante :

Code:

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+

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 24 Juillet 2010

• #3

Re : Tirage au sort simple

Merci beaucoup

C'est parfait

 

Vote positif 0 Vote négatif

N

Naynouk

Guest

• 3 Août 2010

• #4

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?😕

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Août 2010

• #5

Re : Tirage au sort simple

Bonjour Naynouk, bienvenue sur XLD,

Naynouk à dit:

Je dois modifier la macro?😕

Cliquez pour agrandir...

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

Ce qui est modifiable est en rouge :

Code:

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+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 3 Août 2010

• #6

Re : Tirage au sort simple

Bonjour ,

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

 

Pièces jointes

• tirage.xls

  27.5 KB · Affichages: 139
• tirage.xls

  27.5 KB · Affichages: 145
• tirage.xls

  27.5 KB · Affichages: 149

Vote positif 0 Vote négatif

N

Naynouk

Guest

• 4 Août 2010

• #7

Re : Tirage au sort simple

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

Bonne journée.

 

Vote positif 0 Vote négatif