[Résolu] [Calc] Championnat de football

[Dexter83]

Bonjour à tous.

Afin de tenir à jour les résultats & le classement d'un championnat de football, j'utilise naturellement le tableur openoffice.

Comme vous le verrez, à travers la pièce jointe, ma méthode est cependant assez fastidieuse.
Pour résumer, je rentre manuellement, dans un premier temps, le score du match, le nombre de journées, de buts pour, de buts contre, de victoire, de nuls et de défaites.
Par la suite, grâce aux formules contenues dans le "tableau-classement" (voir sur la droite de la feuille), j'ai une automation de ce classement.

Fastidieux, vous disais-je...
J'imagine que via des macros, il est possible que tout soit automatisé du simple moment où je rentre un score. Problème, je ne connais pas du tout ce monde de la macro.
Par conséquent, si quelqu'un a sous le coude un fichier-macro qu'il peut rapidement adapter (ou m'expliquer comment l'adapter) pour correspondre à ma feuille qu'il n'hésite pas à me répondre.

J'en ai trouvé une sous excel mais bien évidemment elle ne fonctionne pas sous Oo.
La voici ci-dessous :

Code : Tout sélectionner

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub CommandButton1_Click()
Dim NomJoueur As String
Dim Équipe As String
Dim NbJoués As Byte
Dim Gagnés As Byte
Dim Nuls As Byte
Dim Perdus As Byte
Dim ButsPour As Integer
Dim BP As Integer
Dim ButsContre As Integer
Dim BC As Integer
Dim Joueurs As Byte
Dim Domi As Byte
Dim Exter As Byte
Dim Delta As Integer

'On défusionne les cellules
Range("L21:Q37").Select
With Selection
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With

Range("L21:Q37").Select
    Selection.NumberFormat = "0.00"
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 16
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
For Joueurs = 1 To 17
    Range("B" & Joueurs + 1).Select
    NomJoueur = ActiveCell.Value
    Range("C" & Joueurs + 1).Select
    Équipe = ActiveCell.Value
    NbJoués = 0: Gagnés = 0: Nuls = 0: Perdus = 0
    ButsPour = 0: ButsContre = 0
    
    For Domi = 1 To 17
        If Domi <> Joueurs Then
            Range(Chr(67 + Domi) & Joueurs + 1).Select
            If ActiveCell.Value <> "" Then
                NbJoués = NbJoués + 1
                BP = Mid(ActiveCell.Value, 1, InStr(1, ActiveCell.Value, "-") - 1)
                BC = Mid(ActiveCell.Value, InStr(1, ActiveCell.Value, "-") + 1)
                ButsPour = ButsPour + BP
                ButsContre = ButsContre + BC
                Delta = (BP - BC)
                
                Select Case Delta
                    Case Is > 0
                        Gagnés = Gagnés + 1
                    Case 0
                        Nuls = Nuls + 1
                    Case Is < 0
                        Perdus = Perdus + 1
                End Select
            End If
        End If
    Next Domi
    
    For Exter = 1 To 17
        If Exter <> Joueurs Then
            Range(Chr(67 + Joueurs) & (Exter + 1)).Select
            If ActiveCell.Value <> "" Then
                NbJoués = NbJoués + 1
                BP = Mid(ActiveCell.Value, InStr(1, ActiveCell.Value, "-") + 1)
                BC = Mid(ActiveCell.Value, 1, InStr(1, ActiveCell.Value, "-") - 1)
                ButsPour = ButsPour + BP
                ButsContre = ButsContre + BC
                Delta = (BP - BC)
                Select Case Delta
                    Case Is > 0
                        Gagnés = Gagnés + 1
                    Case 0
                        Nuls = Nuls + 1
                    Case Is < 0
                        Perdus = Perdus + 1
                End Select
            End If
        End If
    Next Exter
    
    'On reporte les scores
    Range("B" & Joueurs + 20).Select
    ActiveCell.Value = NomJoueur
    
    Range("C" & Joueurs + 20).Select
    ActiveCell.Value = Équipe
    
    Range("D" & Joueurs + 20).Select
    ActiveCell.Value = (Gagnés * 3) + Nuls
    
    Range("E" & Joueurs + 20).Select
    ActiveCell.Value = NbJoués
    
    Range("F" & Joueurs + 20).Select
    ActiveCell.Value = Gagnés
    
    Range("G" & Joueurs + 20).Select
    ActiveCell.Value = Nuls
    
    Range("H" & Joueurs + 20).Select
    ActiveCell.Value = Perdus
    
    Range("I" & Joueurs + 20).Select
    ActiveCell.Value = ButsPour
    
    Range("J" & Joueurs + 20).Select
    ActiveCell.Value = ButsContre
    
    Range("K" & Joueurs + 20).Select
    ActiveCell.Value = ButsPour - ButsContre
    
    If NbJoués > 0 Then
        Range("L" & Joueurs + 20).Select
        ActiveCell.Value = ((Gagnés * 3) + Nuls) / NbJoués
        
        Range("N" & Joueurs + 20).Select
        ActiveCell.Value = ButsPour / NbJoués
        
        Range("P" & Joueurs + 20).Select
        ActiveCell.Value = ButsContre / NbJoués
    Else
        Range("L" & Joueurs + 20).Select
        ActiveCell.Value = ""
        
        Range("N" & Joueurs + 20).Select
        ActiveCell.Value = ""
        
        Range("P" & Joueurs + 20).Select
        ActiveCell.Value = ""

    End If
Next Joueurs

Range("B21:Q37").Select
If Application.Version = "9.0" Then
    Selection.Sort Key1:=Range("D21"), Order1:=xlDescending, Key2:=Range( _
        "K21"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom
Else
   Selection.Sort Key1:=Range("D21"), Order1:=xlDescending, Key2:=Range( _
       "K21"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
       :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
       DataOption2:=xlSortNormal
End If
    
Range("A21:Q28").Select
   With Selection.Interior
       .ColorIndex = 6
       .Pattern = xlSolid
   End With
    
Range("A29:Q37").Select
   With Selection.Interior
       .ColorIndex = 0
       .Pattern = xlSolid
   End With
   
'Puis on s'arrange pour les refusionner
For Colonne = 12 To 16 Step 2
    For Ligne = 21 To 37
        Range(Chr(65 + Colonne - 1) & Ligne & ":" & Chr(65 + Colonne) & Ligne).Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Selection.Merge
    Next Ligne
Next Colonne
    

Range("A19").Select
End Sub

Merci d'avance.

Cordialement.

[Bidouille]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.

Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doit pas être employé car il est implicite. Essayer de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[Dexter83]

D'accord, désolé.
Merci pour votre édition.

[Dude]

Salut,

Et peut être faire aussi un minimum de recherche. Trouvé avec "foot" :
http://user.services.openoffice.org/fr/ ... hilit=foot

Tu peux t'en inspirer et éventuellement l'enrichir à ton tour.

[Dexter83]

J'avais fait une recherche et était effectivement tombé sur ce fil.

Par rapport à ce très bon modèle, la différence c'est que, pour ma part, je ne fonctionne pas par journée. Les matchs sont joués dans un ordre aléatoire. D'où mon tableau à double entrée.

[jjk]

Bonjour Dexter83
Plusieurs remarques pour commencer :
1) Je n'ai pas l'impression que la macro VBA que tu donnes soit adaptée à ton classeur. Peux-tu nous expliquer ce qu'elle est censée faire ?
2) Je n'ai pas compris à quoi correspondent les formules de la partie droite de la feuille.
3) Comment doit-on remplir le tableau A1:R18 ? Que met-on dans les cellules vides ? Je suppose que c'est le résultat du match, mais sous quelle forme ?
4) A-t-on vraiment besoin d'une macro pour obtenir le résultat que je suppose que tu recherches, à savoir un classement en temps réel ? Et peux-tu confirmer que c'est bien cela que tu recherches ?

Cordialement

[Dexter83]

Bonjour Dexter83
Plusieurs remarques pour commencer :
1) Je n'ai pas l'impression que la macro VBA que tu donnes soit adaptée à ton classeur. Peux-tu nous expliquer ce qu'elle est censée faire ?

Bonjour.

J'ai mis en PJ le fichier excel ( ) dont est issu cette macro.
En fait, il suffit de rentrer le résultat du match et de cliquer sur le bouton classement afin que celui-ci soit automatiquement mis à jour, en prenant en compte le nombre de journées, victoires, défaites etc.
C'est ce que je souhaiterai mais sous Oo donc.

2) Je n'ai pas compris à quoi correspondent les formules de la partie droite de la feuille.

Juste à calculer le nombre de journées, victoires, nuls, défaites etc. par rapport à ce que je rentre manuellement dans U2:AA18 et B21:R27.

3) Comment doit-on remplir le tableau A1:R18 ? Que met-on dans les cellules vides ? Je suppose que c'est le résultat du match, mais sous quelle forme ?

Oui, c'est le résultat du match.
Exemple, pour C2 : c'est le résultat du match opposant A à B (A évoluant à domicile).
B3, c'est le résultat du match opposant B à A (B évoluant, cette fois-ci, à domicile).
Et ainsi de suite.

Au niveau de la forme c'est du type "1-0" ou "1 - 0".

4) A-t-on vraiment besoin d'une macro pour obtenir le résultat que je suppose que tu recherches, à savoir un classement en temps réel ? Et peux-tu confirmer que c'est bien cela que tu recherches ?
Cordialement

Peut-être y a t-il un moyen via des longues formules de se passer d'une macro, je ne sais pas trop.

Je sais juste que la seule chose que je souhaiterais rentrer manuellement c'est le résultat du match comme sur le fichier excel joint. À partir de là, peut-être y a t-il diverses voies pour atteindre mon but mais n'étant pas un expert je fais légitimement appel à votre aide.

En tout les cas, merci pour ton retour.
En espérant avoir répondu précisément à tes questions.

Cordialement.

[jjk]

Re

Merci, mais il me manque encore une précision : sur quelles règles se fait le classement, en particulier en cas d'ex-aequo aux points. Est-ce la différence entre le nombre de buts pour et contre, ou autre chose ?
Je suis en train de prévoir une solution par formules plutôt que par macro.

[Dexter83]

Re

Merci, mais il me manque encore une précision : sur quelles règles se fait le classement, en particulier en cas d'ex-aequo aux points. Est-ce la différence entre le nombre de buts pour et contre, ou autre chose ?
Je suis en train de prévoir une solution par formules plutôt que par macro.

En cas d'égalité de points entre deux joueurs, la règle est la suivante :

1. Différence de points particulière (lors des matchs opposant les deux joueurs en question)
Exemple :
Match aller : A bat B 2 - 0 et le premier marque donc trois points.
Match retour : A et B font match nul 0 - 0 et marquent donc un point chacun.

En cas d'égalité de points, A passera devant B.

2. Différence de buts particulière
Exemple :
Match aller : A bat B 3 - 1
Match retour : B bat A 1 - 0

Trois points chacun dans leurs confrontations directes mais A passera devant B grâce à une meilleure différence de buts particulière

3. Différence de buts générale


C'est super sympa à toi, en tout cas, de te pencher sur une solution. Merci.

[jjk]

J'ai bien peur que la règle que tu proposes soit irréalisable, et contradictoire dans certains cas.
Supposons par exemple que A, B et C sont en tête avec le même nombre de points et que selon ta règle 1 (différence de points particulière) A devance B, B devance C et C devance A. Dans ce cas le classement sera impossible à faire. Il n'y a pas d'ex-aequo d'après la règle 1, donc les règles 2 et 3 ne s'appliquent pas.
Dans tous les cas où on a plus de 2 ex-aequo aux points, on a le risque de contradictions. Aucun programme ne peut traiter les règles telles que tu les as définies.
De plus les règles habituelles dans les grands championnats européens ne parlent jamais de différences particulières, mais toujours de différences générales. En cas d'ex-aequo aux points, c'est la différence de buts générale qui compte, puis si égalité le nombre de buts marqués.

[Dexter83]

J'ai bien peur que la règle que tu proposes soit irréalisable, et contradictoire dans certains cas.
Supposons par exemple que A, B et C sont en tête avec le même nombre de points et que selon ta règle 1 (différence de points particulière) A devance B, B devance C et C devance A. Dans ce cas le classement sera impossible à faire. Il n'y a pas d'ex-aequo d'après la règle 1, donc les règles 2 et 3 ne s'appliquent pas.
Dans tous les cas où on a plus de 2 ex-aequo aux points, on a le risque de contradictions. Aucun programme ne peut traiter les règles telles que tu les as définies.

Je sais bien mais forte heureusement cette configuration n'est jamais arrivée. Mais dans ces cas là (triple égalité de points), c'est la différence de buts générale qui serait directement prise en compte (et en cas, encore, d'égalité, le nombre de buts marqués).

Après, si cela pose problème en terme de formule, tu peux régler sur la différence de buts générale pour départager deux clubs à égalité de points, pas de souci.
Je n'aurais qu'à faire une copie-liée (collage spécial) du classement sur une autre feuille et à trier selon mes deux premiers critères ensuite.

De plus les règles habituelles dans les grands championnats européens ne parlent jamais de différences particulières, mais toujours de différences générales. En cas d'ex-aequo aux points, c'est la différence de buts générale qui compte, puis si égalité le nombre de buts marqués.

Je sais mais je ne trouve pas ça logique.

[jjk]

Voici le fichier.
Pas de macros, que des formules.
Les règles de départage des ex-aequo que tu proposes sont trop complexes à gérer par des formules et même des macros, à moins que tu fasses l'effort d'écrire l'algorithme. Par exemple le fichier Excel que tu fournis ne traite pas non plus ces règles.
C'est pourquoi je te propose les règles classiques basées sur l'ensemble des matchs et pas seulement sur les duels entre ex-aequo.
En cas d'ex-aequo c'est la différence générale entre les buts pour et contre qui les départage. Si encore égalité, c'est le nombre de buts pour qui compte.

Fonctionnement du fichier :
il suffit de saisir les scores, les classements se mettent à jour pour le peu que le calcul automatique soit activé (menu Outils > Contenu des cellules).
Si tu veux des explications sur les formules, demande-le ici.

[Dexter83]

Un grand merci à toi pour ce fichier. C'est vraiment super.
Quand j'aurai un petit moment, je tenterai de comprendre et de m'imprégner de toutes tes formules.

Pour le moment, j'ai déplacé le classement sur une autre feuille afin de pouvoir gérer la forme des résultats et du classement différemment (largeur et hauteur des colonnes).

Je me demande, néanmoins, comment as-tu fais pour que le tri du classement (celui le plus bas donc) soit automatisé ? Suite à mon partage en deux feuilles il n'y a, en effet, plus automation du classement (mais tout le reste semble fonctionner) et je n'ai pas trouvé la cause de ce dysfonctionnement.

Ci-joint ton fichier que j'ai donc remis en forme pour mes besoins.

Merci encore.

P.S : en attendant ta réponse, je mets un [Résolu] pour ne pas me faire engueuler par les modos ( )

[jjk]

Bonjour
Voici le fichier corrigé. Désormais, en cas d'égalité sur Pts, diff et p., c'est l'ordre initial qui est pris en compte. Sinon on avait une erreur.
Tu avais oublié de recopier la formule de la première colonne du premier tableau de classement lors du déplacement sur l'autre feuille, c'est ce qui expliquait le dysfonctionnement global.

[Dexter83]

Bonjour
Voici le fichier corrigé. Désormais, en cas d'égalité sur Pts, diff et p., c'est l'ordre initial qui est pris en compte. Sinon on avait une erreur.
Tu avais oublié de recopier la formule de la première colonne du premier tableau de classement lors du déplacement sur l'autre feuille, c'est ce qui expliquait le dysfonctionnement global.

Bonjour.

Super, tout a l'air de bien fonctionner. Encore une fois, un grand merci.
À l'exécution du fichier, cela me demande si je veux activer les macros. C'est normal ?

[jjk]

Oui, c'est sans doute normal.
Tout dépend des options de sécurité des macros.
Vois Options > OpenOffice.org > Sécurité > bouton Sécurité des macros.
Si tu veux éviter cet avertissement, tu peux :
- soit choisir Niveau de sécurité faible (à déconseiller), onglet Niveau de sécurité
- soit mettre ton fichier dans un dossier que tu déclares comme source de confiance, onglet Sources de confiance.

[Dexter83]

Je te demandais cela car tu m'as dit que tu n'avais utilisé que des formules et pas de macro. Je me demande donc à quelle macro fait référence Oo.
C'est sans doute un résidu de VBA du fichier de base (sur lequel t'as dû commencer ton travail), que j'avais joint à un précédent post.

[yellow]

jjk, je t'ai envoyé un mp, mais je ne sais pas s'il est parti....

Je souhaitais adapter ton fichier a un championnat a 20 joueurs (le tiens n'en compte que 17), mais impossible de le modifier :/ je sollicite donc ton aide, par avance merci!

[jjk]

Bonsoir yellow

En PJ le fichier avec 20 joueurs.

[yellow]

Merci bien, en regardant par contre les 0 n'apparaissent pas.....

[jjk]

Bonsoir

Oui, c'est une option de Calc : Outils > Options > OOo Calc > Affichage > Cocher la case Afficher Valeurs zéro.

Sinon, le reste, ça fonctionne bien ?

[yellow]

Ca m'a l'air correct, j'entame l'utilisation demain donc je te tiendrais au courant, encore merci! Et désolé au modo, mais je voulais pas polluer le forum en récréant un sujet juste pour une modif...

[Alex__78]

Bonjour a tous,

Je vois que ce fil est relativement vieux mais c'est exactement le tableur que je cherchais a une exception près, j'aimerai un championnat à 10 equipes. Est-ce possible de modifier celui ci pour y arriver ? Merci de votre aide, ca je n'y connais absolument rien en tableur !

Bonne journée merci d'avance

Déterrage = verrouillage
Année de la question : 2009