Tirage tournoi

Le 04/12/2015 à 21:11

bonjour à tous,

comme je suis débutant en vba, j'ai chercher sur les forum si je trouvais une macro qui pour faire un tirage avec certains paramètres. N'ayant rien trouvé qui ce rapprocher à ce que je souhaite je préfère ouvrir une discussion.

Je souhaiterai que le tirage soit effectuer par division et poule

que tous les clubs ce rencontrent

que les clubs reçoivent 1 fois sur 2 si possible

exemple dans la division 1, journée 1 : St Léonard 1 reçois Nantiat 1

journée 2 : Isle 3 reçois St Léonard 1 ...........

je pense que si j'avais une macro pour la division 1 je pourrais le reprendre pour les autres division/poules

Par contre pour la division 4 je peux avoir des poules 9/10/11/12 équipes

si le nombre d'équipe est impaire j'aurais un exempt à chaque journée

serait il possible dans tenir compte dans la macro

ci joint le fichier dans lequel j'ai copier manuellement le tirage de l'année dernière

merci de votre aide sur cette demande

philippe

122tirage-test.xlsm (27.38 Ko)

Le 04/12/2015 à 23:48

Bonsoir,

une proposition d'algorithme à adapter pour ton fichier

Sub genmatch()
    Sheet1.Cells.ClearContents
    Dim e(30) As Integer
    Dim team(30) As String
    ne = 10 'nombre d'équipes
    For i = 1 To ne
        team(i) = "équipe " & i
            e(i) = i
    Next i
    With Sheet1
        If ne Mod 2 <> 0 Then ne = ne + 1: team(ne) = "Exempt":e(ne)=ne
        nj = ne - 1
        For j = 1 To nj
            col = (j - 1) * 2 + 1
            b = e(2)
            For i = 2 To ne - 1
                e(i) = e(i + 1)
            Next i
            e(ne) = b
            .Cells(1, col) = "journée " & j
            For m = 1 To ne / 2
                If (m = 1 And j Mod 2 = 0) Or m Mod 2 = 0 Then
                    .Cells(m + 1, col) = team(e(m))
                    .Cells(m + 1, col + 1) = team(e(-m + ne+1))
                Else
                    .Cells(m + 1, col) = team(e(-m + ne +1))
                    .Cells(m + 1, col + 1) = team(e(m))
                End If
            Next m
        Next j
    End With
End Sub

Le 05/12/2015 à 09:39

bonjour h2so4

Merci pour ta réponse, mais vue mon niveau en vba , j'ai besoin d'aide car je n'arrive pas à l'adapter à mon fichier.

Serait il possible de me faire un exemple pour la division 1 et que le tirage soit effectuer dans la feuille "tirages test"

ci joint le fichier ou j'ai rajouté la feuille.

merci de vos réponses par avance

Philippe

Ps. serait il possible de mettre plus information dans la macro, pour que je comprenne exactement le traitement

18tirage-test.xlsm (28.35 Ko)

Le 05/12/2015 à 12:41

bonjour;

proposition

mise en forme à peaufiner

49tirage-test.xlsm (51.57 Ko)

Le 06/12/2015 à 12:36

bonjour h2so4

je te remercie pour le temps que tu as passé a reprendre la macro et à la détailler. j'ai quand même un soucis en division 4 il faut rajouter une poule F , j'ai bien que la macro s'exécutée tant qui il y avait des équipes.

mais je ne comprends pas pourquoi elle ne prend pas la poule F

peux tu m'expliquer?

merci de ton aide

ci joint le fichier

Philippe

20tirage-test.xlsm (53.70 Ko)

Le 06/12/2015 à 13:20