tirage au sort dans excel

[dominique]

voila je fais un triathlon par equipe : 1 nageur,1 coureur, 1 cycliste
je faire un tirage au sort des équipes j'ai 12 nageurs 12 coureurs 12 cyclistes.
Comment je fais pour que tous soient ds une equipe.
J'aimerais le faire tous seul mais je n'ai pas les competences
merci de me repondre

 

[Celeda]

Bonjour,

Alors j'ai trouvé, sur la toile (voir dans le fichier,l'auteur qui m'a semblé le plus adapté mais il y a d'autres formules et d'autres exemples) Alea.Entre.Bornes et Rang qui pouvaient être d'une grande aide.

Le principe : on fait un choix aléatoire , on donne un rang, par exemple.
Mais tout se recalcule automatiquementet pour trouver la combinaison gagnante, c'est-à-dire sans doublons et bien pas facile.
(si on appuie aussi sur F9 cela recalcule)
(on peut choisir aussi d'arreter le recalcul dans Option - Calcul)


Alors une solution faire un copier coller valeur, d'une combinaison aléatoire, et y ajouter une numérotation des doublons. En fonction du résultat des doublons, faire son propre tri et choisir les compléments des équipes.
(c'est le troisième tableau que j'ai fait)
(on aurait pu aussi faire un format conditionnel pour les visualiser mieux)
(c'est une solution purement terrainCeleda)
(reste à faire les équipes)

Pour le nombre de joueurs proposés cela va encore de le faire à la mimine mais si tu avais 200 personnes, alors là....aye aye aye le casse-tête, à moins d'un complément macro..... mais là cela dépasse cette fois-ci mes propres compétences.

Dans l'attente d'autres solutions,

Celeda

 

[Myta]

Salut Dominique, Celeda et le forum

Regarde en piece jointe Dominique si cela pourrait faire

Mytå

 

[Celeda]

Bonjour,

Et salut Myta et merci pour la macro : je savais que j'allais me faire ramasser par les Macrotistes en beauté. Et voilà, je suis dernière à l'arrivée, mais Dominique va arriver premier avec ta ptite macro.

Bisous Myta.

Celeda

 

[dominique]

Salut myta, je n'arrive pas a lire le fichier zip ???? peux tu me l'envoyer non zippé Merci.

 

[Myta]

Re le forum

Dominique la macro ressemble a ceci (un peu modifier)

Option Explicit
Private Sub CommandButton1_Click()
Dim Derligne As Byte
Dim Myvalue As Byte
Dim Ligne As Byte
Dim Colonne As Byte
Derligne = Range("a65535").End(xlUp).Row
Myvalue = InputBox("Entrer le nombre de participant", "Triathlon", "1")
Range("A3" & Derligne) = ""
For Ligne = 3 To Myvalue + 2
Range("a" & Ligne) = "Equipe " & Ligne - 2
Next Ligne
Randomize
[B3] = Int(Myvalue * Rnd + 1)
[C3] = Int(Myvalue * Rnd + 1)
[D3] = Int(Myvalue * Rnd + 1)
For Colonne = 2 To 4
For Ligne = 1 To Myvalue - 1
Do
Cells(3, Colonne).Offset(Ligne, 0).Value = Int(Myvalue * Rnd + 1)
Loop Until IsError(Application.Match(Cells(3, Colonne). _
Offset(Ligne, 0), Cells(3, Colonne).Resize(Ligne, 1), 0))
Next Ligne
Next Colonne
End Sub

Mytå