tirage au sort

[toutoune95]

Bonjour,

Je voudrais savoir comment on fait à partir d'une liste allant de 10 à 20 joueurs générer 2équipes de manière aléatoire.

Merci beaucoup pour votre aide

 

[mutzik]

Re : tirage au sort

bonjour,

regardes à la fin de ton post, il y a déjà des discussions similaires (sujet moulte fois traité)

 

[job75]

Re : tirage au sort

Bonjour toutoune95, bienvenue sur Xld, salut mutzik,

Ici du VBA serait le marteau pour écraser des mouches 😱

Voir le fichier joint, les colonnes A et B sont masquées.

A+

 

[toutoune95]

Re : tirage au sort

Merci beaucoup,

Serait il possible d'effectuer ce tirage au sort en prenant en compte le niveau des joueurs ( de 1 à 3 par exemple)

 

[job75]

Re : tirage au sort

Re,

Et comment le niveau des joueurs doit-il intervenir dans la constitution des 2 équipes ?

Là il faudra peut-être le marteau.

A+

 

[job75]

Re : tirage au sort

Re,

Bon, voici un exemple avec le fichier (2).

La liste comprend 12 joueurs dont le niveau (1 2 3) est inscrit à la droite des noms.

On veut que dans chaque équpe chaque niveau soit représenté 2 fois.

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub CommandButton1_Click()
Calculate
While Application.CountIf([D4:D9], "*1") <> 2 Or Application.CountIf([D4:D9], "*2") <> 2
Calculate
Wend
End Sub

A+

 

[job75]

Re : tirage au sort

Re,

Du VBA un peu plus élaboré :

Private Sub CommandButton1_Click()
[D4:E9].Formula = "=VLOOKUP(ROW()-3+6*(COLUMN()-4),$B$4:$C$15,2,0)"
While Application.CountIf([D4:D9], "*1") <> 2 _
  Or Application.CountIf([D4:D9], "*2") <> 2
Calculate
Wend
[D4:E9] = [D4:E9].Value
End Sub

Les formules sont entrées dans la plage puis supprimées.

A+

 

[job75]

Re : tirage au sort

Bonjour le fil, le forum,

Pour ceux qui sont allergiques au VBA, on peut s'en passer même avec les niveaux.

Un essai avec le fichier (4), voir les formules en démasquant les colonnes A:E.

Noter que dans les équipes les niveaux sont classés...

A+