J'ai une liste de joueurs avec laquelle je voudrai faire un tirage aléatoire. jusque là ça va
- Code: Tout sélectionner
Sub tirage()
Dim melange As New Collection
Dim i%, j%, k%, x%, o, v
If Selection.Columns.Count > 1 Then Exit Sub
x = Selection.Column
For Each o In Selection
melange.Add o.Value
Next
k = melange.Count
Do While k > 0
If k > 0 Then
j = j + 1
i = Int((k * Rnd) + 1)
v = melange(i)
Cells(j, x) = v
melange.Remove i
k = k - 1
End If
Loop
End Sub
mais ce qui se complique c'est que dans la liste il y a des femmes et on souhaiterai que les femmes ne font un duo.
Un duo devra être composé d'une femme et d'un homme ou 2 hommes.
Merci de m'aider sur ce coup.
Amicalement
Noel
par