Formule pour tableau melee 102 joueurs

Bonsoir,

qui peux m'aider a faire mon tableau melée en 4 tours

et mettre les scores a l'inverse dans le tableau des scores

exemple dans le fichier ci joint

Bonjour,

Essayez ceci:

Cdlt

Bonsoir, pourquoi les scores ne se mettent pas dans le tableau

le bouton rapatrier les scores ne fonctionne pas

merci de bien vouloir y regarder

je vous renvoie le fichier complété

Bonjour,

Je ne comprends pas, je viens de faire les essais et ça marche bien, la preuve en vidéo:

je renvoie le fichier avec les dernières données

Cdlt

bonsoir,

il n'y a toujours rien qui ne fonctionne ni le 2 tableau ainsi que les 2 autres

Bonjour,

tigre5 a écrit :

il n'y a toujours rien qui ne fonctionne ni le 2 tableau ainsi que les 2 autres

C'est à dire, vous utilisez le dernier fichier que j'ai retourné et les colonnes D et E ne se remplissent pas chez vous, ou bien, procédez-vous autrement? Car il n'y a pas de raison qu'il fonctionne bien chez moi et pas chez vous. Vous avez pu le constaté sur la vidéo.

Avez-vous bien enregistré le fichier avec l'extension "Xlsm"?

Cdlt

re

désoler meme avec l'extension

ça ne fonctionne pas

le bouton rapatrier les scores ne fonctionne pas

Bonjour,

Il n' y a pas de raison pour que cela fonctionne chez moi et pas chez vous, renvoyez-moi le fichier qui ne fonctionne pas afin que je puisse voir ce qui ne va pas.

Cdlt

re ,voici le fichier

Bonjour,

Je ne comprends pas, j'ouvre le fichier et je constate que les colonnes D et E sont bien remplies, alors qu'est-ce qui ne va pas? souhaitez-vous autre chose?

Cdlt

bonjour, mettre le fichier en xlsx et non xlsm

car l'extension chez moi est defectueuse

bien merci a vous

C'est normal que ça ne marche pas, "Xlsm" est fait pour les fichiers contenant des macros, "Xlsx" pour les fichiers sans macro. Je vous retourne le fichier avec l'extension "Xlsb" (cela peut permettre de contourner certains problèmes).

Cdlt

Bonjour Arturo83, tigre5

Arturo je viens de voir dans le fichier un hic pour la partie 2 j'ai rentré 4 résultats dont un 13 0,

tu verras dans le récap de la partie 2 ce résultat n'y est pas

re, y aurait-il une autre façon de réaliser ce projet

je devrais l'employer mercredi

bien à vous

Bonjour Joco7915,

Merci de m'avoir signalé cette erreur. Effectivement il manquait une ligne de contrôle, voilà qui est corrigé:

Sub Recup_Score()
    Dim i As Long, j As Long, k As Long, Col As Long, Tabl As Long
    Dim Eq As Long, Eq_1 As Long, Eq_2 As Long, Eq_3 As Long
    Application.ScreenUpdating = False
    'Effacement des prédédents scores dans les tableaux de synthèse
    Range("D5:E313,H5:I313,L5:M313,P5:Q3132").ClearContents

    Tabl = 1
    For i = 70 To 85 Step 5 'on balaye chaque tableau entre les colonnes BR et CJ
        Col = i
ListeSuivante:
        For j = 5 To 53 Step 3
            If Col = i Then
                Score_1 = Cells(j, Col + 1)
                Score_2 = Cells(j, Col + 2)
                If Score_1 <> "" And Score_2 <> "" Then
                    Eq_1 = Cells(j, Col)
                    Eq_2 = Cells(j + 1, Col)
                    Eq_3 = Cells(j + 2, Col)
                End If
            Else
                Score_1 = Cells(j, Col - 1)
                Score_2 = Cells(j, Col - 2)
                If Score_1 <> "" And Score_2 <> "" Then
                    Eq_1 = Cells(j, Col)
                    Eq_2 = Cells(j + 1, Col)
                    Eq_3 = Cells(j + 2, Col)
                End If
            End If

           'Recopie dans le tableau des classements
            For k = 1 To 3
                Select Case k
                    Case 1
                        Eq = Eq_1
                    Case 2
                        Eq = Eq_2
                    Case 3
                        Eq = Eq_3
                End Select
                If Score_1 <> "" And Score_2 <> "" Then '********* Ligne de contrôle suppléméntaire ******************
                    With Range("A1:A313")
                        Set x = .Find(Eq, lookat:=xlWhole)
                        If Not x Is Nothing Then
                            Select Case Tabl
                                Case 1
                                    Range(Cells(x.Row, "D"), Cells(x.Row, "E")).Value = Array(Score_1, Score_2)
                                Case 2
                                    Range(Cells(x.Row, "H"), Cells(x.Row, "I")).Value = Array(Score_1, Score_2)
                                Case 3
                                    Range(Cells(x.Row, "L"), Cells(x.Row, "M")).Value = Array(Score_1, Score_2)
                                Case 4
                                    Range(Cells(x.Row, "P"), Cells(x.Row, "Q")).Value = Array(Score_1, Score_2)
                            End Select
                        End If
                    End With
                End If
            Next k
        Next j

        If Col = i Then
            Col = i + 3
            GoTo ListeSuivante
        End If
        Tabl = Tabl + 1
    Next i
End Sub

A tigre5:

Avec le fichier en Xlsb, ça ne marche toujours pas? Les macros sont-elles activées dans les options excel?

Sinon, patientez un peu et je vais essayer de vous le faire par formule.

re, oui tout est ok mais j'ai trouver une erreur chez moi dans le tableau

je vous renvois le fichier pour rapatrier les scores

si vous etes toujours d'accord de bien vouloir m'aider

voici le fichier

Quelle erreur?

re, dans le tableau de BJ A BN

J'ai omis une partie des formules

pouvez vous le renvoyer avec les macros ou j'attendrai

si vous savez le faire avec formule

bien a vous

Mais le fichier que j'ai retourné à 12h01 est complet, les formules sont bien présentes.