Discussion :

[Guillaume62100]

Bonsoir à tous.

Avant de commencer, je tenais à vous dire que j'ai recherché longuement sur internet une solution à mon problème mais je n'ai pas tout compris aux exemples proposés. J'ai fait un peu de programmation sous excel en DUT (il y a quelques années) mais je ne me souviens plus très bien des syntaxes etc... Je sais toujours programmer en c de petits programmes (je sais qu'il y a quand même quelques similitudes)

Mon problème est le suivant :

Ce vendredi, j'organise un tournoi FIFA 12 (jeu de foot). Je dois donc :

- Classer 8 joueurs en 4 équipes de 2, de façon aléatoire

- Associer un club à ces 4 équipes, parmi une liste de 16 clubs prédéfinie (on pourra avoir deux chances pour choisir un club si on est pas convaincu par le premier) Il faudrait éviter la redondance

- Tirer le calendrier des matchs, sur une base de mini-championnat avec matchs aller-retour

- Gérer le classement de façon automatique, en rentrant simplement les scores au fur et à mesure

- Pouvoir gérer un classement des buteurs (bonus)




J'ai découvert la fonction "ALEA()" qui permet de choisir un nombre en 0 et 1. Bien qu'il n'y ai pas de règle "anti-redondance", le fait de ne pas arrondir, et donc d'avoir plusieurs chiffres après la virgule, me permet d'obtenir des chiffres qui ne sont pas identiques. Je pensais :

- Dresser ma liste de joueurs dans une colonne (A1 à A8)
- Mettre la fonction "ALEA()" dans une autre colonne (B1 à B8) afin d'obtenir 8 chiffres, chaque chiffre étant associé à un prénom
- Classer ces chiffres obtenus (peu importre l'ordre) dans la colonne C, j'aurais alors les chiffres 1, 2, 3, 4, 5, 6, 7, 8 associés à chaque joueur
- Je décide ensuite que l'équipe 1 est composée des joueurs 1 et 2, l'équipe 2 composée des joueurs 3 et 4...

De cette façon, le tirage sera complètement aléatoire non ? Pour classer les nombres, je dois utiliser la fonction "RANG()" ?

Comment procéder pour la suite ?

Dans l'idéal, j'aurais un bouton associé à la fonction "tirage" qui me sélectionnerai mes équipes.

D'avance merci

[kiki29]

Salut, concernant les doublons voir générer une série de nombres entiers aléatoires sans doublons et La gestion des doublons dans Excel

[pc75]

Bonjour,

Une piste pour le tirage au sort :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Sub Macro1()
    Dim NbRows
    Dim NbCols
    Dim NbTirages
    Dim Msg
    Dim MyValue
 
    ' Positionnement en A1
    Range("A1").Select
    ' Sélection du tableau
    Selection.CurrentRegion.Select
    ' Récupération du nombre de lignes et de colonnes
    NbRows = Selection.Rows.Count
    NbCols = Selection.Columns.Count
    NbTirages = "X"
    If NbRows > 0 Then
        ' Boucle tant que la valeur saisie n'est pas valide
        Do While Not IsNumeric(NbTirages)
            NbTirages = InputBox("Entrez un nombre compris entre 1 et " & Str(NbRows), "Tirage aléatoire")
            If NbTirages = "" Then
                ' L'utiliser a cliqué sur Annuler
                End
            ElseIf Not IsNumeric(NbTirages) Then
                ' La saisie n'est pas numérique
                Msg = MsgBox("Entrez un nombre valide.", vbOKOnly, "Tirage aléatoire")
                NbTirages = ""
            ElseIf CInt(NbTirages) = 0 Or CInt(NbTirages) > NbRows Then
                ' Le nombre dépasse le nombre de lignes
                Msg = MsgBox("Entrez un nombre compris entre 1 et " & Str(NbRows) & ".", vbOKOnly, "Tirage aléatoire")
                NbTirages = ""
            End If
        Loop
        ' Tirage au sort
        i = 0
        Do While i < CInt(NbTirages)
            ' Tirage d'un numéro compris entre 1 et le nombre de colonnes
            Randomize
            MyValue = Int((NbRows * Rnd) + 1)
            ' Positionnement sur la première colonne vide de la ligne aléatoire
            Range(Chr(65 + NbCols) & MyValue).Select
            If Trim(Range(Chr(65 + NbCols) & MyValue).Value) = "*" Then
                ' La ligne est déjà sélectionnée
                'NbTirages = NbTirages + 1
            Else
                ' Marquer la ligne comme sélectionnée
                Range(Chr(65 + NbCols) & MyValue).Value = "*"
                i = i + 1
            End If
        Loop
        Msg = MsgBox("Tirage terminé.", vbInformation, "Tirage aléatoire")
    End If
    End
End Sub

[Guillaume62100]

Merci pour vos réponses !

@kiki29 : je vais regarder le lien de près

@pc75 : ouch ! Je vais essayer de décortiquer le code pour le comprendre. Je ne sais même plus créer un bouton et y associer un code ^^ J'ai posé quelques question (en vert) pourrais-tu y répondre ?

Merci, vraiment !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub Macro1()
    Dim NbRows//on déclare ici toutes nos variables ?
    Dim NbCols
    Dim NbTirages
    Dim Msg
    Dim MyValue
 
    ' Positionnement en A1
    Range("A1").Select //Ca veut dire que l'on va "ranger" nos valeurs en A1 ? ?
    ' Sélection du tableau //Quel tableau ? Mon tableau de joueurs pour tirer les équipes ? Cela veut dire que mon premier joueur doit être en A1, le suivant en A2.. ?
    Selection.CurrentRegion.Select
    ' Récupération du nombre de lignes et de colonnes
    NbRows = Selection.Rows.Count //Pourquoi récupérer plusieurs colonnes ? Mon tableau de joueurs ne comprends qu'une seule colonne ?Ou alors c'est pour récupérer le tableau des joueurs ET des équipes disponibles, dans ce cas mes équipes sont en B1:B16 ?
    NbCols = Selection.Columns.Count
    NbTirages = "X"//Pas compris
    If NbRows > 0 Then //Alors là je ne comprends plus, on propose quand à l'utilisateur de rentrer un nombre ?
        ' Boucle tant que la valeur saisie n'est pas valide
        Do While Not IsNumeric(NbTirages)
            NbTirages = InputBox("Entrez un nombre compris entre 1 et " & Str(NbRows), "Tirage aléatoire")
            If NbTirages = "" Then
                ' L'utiliser a cliqué sur Annuler
                End
            ElseIf Not IsNumeric(NbTirages) Then
                ' La saisie n'est pas numérique
                Msg = MsgBox("Entrez un nombre valide.", vbOKOnly, "Tirage aléatoire")
                NbTirages = ""
            ElseIf CInt(NbTirages) = 0 Or CInt(NbTirages) > NbRows Then
                ' Le nombre dépasse le nombre de lignes
                Msg = MsgBox("Entrez un nombre compris entre 1 et " & Str(NbRows) & ".", vbOKOnly, "Tirage aléatoire")
                NbTirages = ""
            End If
        Loop
        ' Tirage au sort
        i = 0
        Do While i < CInt(NbTirages)
            ' Tirage d'un numéro compris entre 1 et le nombre de colonnes
            Randomize
            MyValue = Int((NbRows * Rnd) + 1)
            ' Positionnement sur la première colonne vide de la ligne aléatoire
            Range(Chr(65 + NbCols) & MyValue).Select
            If Trim(Range(Chr(65 + NbCols) & MyValue).Value) = "*" Then
                ' La ligne est déjà sélectionnée
                'NbTirages = NbTirages + 1
            Else
                ' Marquer la ligne comme sélectionnée
                Range(Chr(65 + NbCols) & MyValue).Value = "*"
                i = i + 1
            End If
        Loop
        Msg = MsgBox("Tirage terminé.", vbInformation, "Tirage aléatoire")
    End If
    End
End Sub

[pc75]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Macro1()
    Dim NbRows//on déclare ici toutes nos variables ? => OUI
    Dim NbCols
    Dim NbTirages
    Dim Msg
    Dim MyValue
 
    ' Positionnement en A1
    Range("A1").Select //Ca veut dire que l'on va "ranger" nos valeurs en A1 ? ? => On se positionne en A1 (Commentaire sur la ligne précédente)
    ' Sélection du tableau //Quel tableau ? Mon tableau de joueurs pour tirer les équipes ? Cela veut dire que mon premier joueur doit être en A1, le suivant en A2.. ? => OUI
    Selection.CurrentRegion.Select
    ' Récupération du nombre de lignes et de colonnes
    NbRows = Selection.Rows.Count //Pourquoi récupérer plusieurs colonnes ? Mon tableau de joueurs ne comprends qu'une seule colonne ?Ou alors c'est pour récupérer le tableau des joueurs ET des équipes disponibles, dans ce cas mes équipes sont en B1:B16 ? => Pour marquer avec le caractère "*" les joueurs tirés au hasard dans la prernière colonne vide à droite
    NbCols = Selection.Columns.Count
    NbTirages = "X"//Pas compris => A priori, tu peux supprimer
    If NbRows > 0 Then //Alors là je ne comprends plus, on propose quand à l'utilisateur de rentrer un nombre ? => 3 lignes plus bas
        ' Boucle tant que la valeur saisie n'est pas valide
        Do While Not IsNumeric(NbTirages)
            NbTirages = InputBox("Entrez un nombre compris entre 1 et " & Str(NbRows), "Tirage aléatoire")
            If NbTirages = "" Then
                ' L'utiliser a cliqué sur Annuler
                End
            ElseIf Not IsNumeric(NbTirages) Then
                ' La saisie n'est pas numérique
                Msg = MsgBox("Entrez un nombre valide.", vbOKOnly, "Tirage aléatoire")
                NbTirages = ""
            ElseIf CInt(NbTirages) = 0 Or CInt(NbTirages) > NbRows Then
                ' Le nombre dépasse le nombre de lignes
                Msg = MsgBox("Entrez un nombre compris entre 1 et " & Str(NbRows) & ".", vbOKOnly, "Tirage aléatoire")
                NbTirages = ""
            End If
        Loop
        ' Tirage au sort
        i = 0
        Do While i < CInt(NbTirages)
            ' Tirage d'un numéro compris entre 1 et le nombre de colonnes
            Randomize
            MyValue = Int((NbRows * Rnd) + 1)
            ' Positionnement sur la première colonne vide de la ligne aléatoire
            Range(Chr(65 + NbCols) & MyValue).Select
            If Trim(Range(Chr(65 + NbCols) & MyValue).Value) = "*" Then
                ' La ligne est déjà sélectionnée
                'NbTirages = NbTirages + 1
            Else
                ' Marquer la ligne comme sélectionnée
                Range(Chr(65 + NbCols) & MyValue).Value = "*"
                i = i + 1
            End If
        Loop
        Msg = MsgBox("Tirage terminé.", vbInformation, "Tirage aléatoire")
    End If
    End
End Sub

[ZebreLoup]

Je me suis amusé à faire un petit fichier qui te fait ça sans VBA.

Mode d'emploi :

Onglet "Equipes" : On rentre les noms des 8 joueurs et on copie une série aléatoire de 8 (pour cela on se rend sur l'onglet "Génération alea distinct", on met le nombre d'éléments à 8 et copie la liste en bleu, et on colle le résultat en valeur - Edition / Collage Spécial... / Valeur).

Onglet "Clubs" : On entre la liste des 16 clubs disponibles et on copie une série aléatoire de 16 (cf explication précédente en remplaçant 8 par 16).

Onglet "Calendrier" : On copie juste une série aléatoire de 12.

Il n'y a plus qu'à se rendre dans l'onglet "Tableau" et à rentrer les scores au fur et à mesure.