Pronos UEFA Euro 2024 6.5.2.3

fredy1435 · 18 Juin 2024

Gégé-45550 à dit:
AVIS AUX UTILISATEURS :
Je vous dois mille excuses et un grand merci à fredy1435, j'ai mal recopié les formules corrigées dans la colonne "U" de l'onglet "Modèle" et, de ce fait, elles fonctionnent mal pour les 0,5 points de consolation à partir du match Slovénie-Danemark et jusqu'à la fin.
Forcément, cette anomalie est reproduite dans tous vos onglets de pronostiqueurs.
Je publie une mise à jour et, comme d'habitude, la voici en attache, avec en prime les résultats des matches déjà déroulés ainsi que les cartons.
Encore toutes mes excuses

bonjour, autre petit point "déconnant", la partie stats dans l'onglet classement ne se développe pas en fonction de l'ajout de joueur supplémentaire, par défaut seule les stats des 2 premiers du classement apparaissent. il est facile de prolonger les cellules mais l’automatisation si elle était prévu ne fonctionne pas.

Gégé-45550 · 18 Juin 2024

fredy1435 à dit:
bonjour, autre petit point "déconnant", la partie stats dans l'onglet classement ne se développe pas en fonction de l'ajout de joueur supplémentaire, par défaut seule les stats des 2 premiers du classement apparaissent. il est facile de prolonger les cellules mais l’automatisation si elle était prévu ne fonctionne pas.

Re-
Pour l'actualiser, il faut double-cliquer sur les cellules A1 et H1, comme le Port-Salut, c'est écrit dessus
[EDIT] Au temps pour moi, vous parlez des colonnes U à Y, effectivement ,je n'ai ajouté ces formules qu'à titre informatif et, considérant qu'elles n'avaient pas forcément grand intérêt, je n'ai rien écrit pour les développer automatiquement.
Et, comme vous dites, ce n'est pas bien compliqué de les étirer pour les développer à la taille voulue.[/EDIT]

Gégé-45550 · 18 Juin 2024

fredy1435 à dit:
bonjour, autre petit point "déconnant", la partie stats dans l'onglet classement ne se développe pas en fonction de l'ajout de joueur supplémentaire, par défaut seule les stats des 2 premiers du classement apparaissent. il est facile de prolonger les cellules mais l’automatisation si elle était prévu ne fonctionne pas.

Re
Si vous tenez à automatiser cette MAJ, dans l'éditeur VBA, ouvrir le Module1 et remplacer la procédure "Classement"
par celle-ci :

VB:

Sub Classement()
'
Dim fin As Long, fin1 As Long
'
    ThisWorkbook.Sheets("Classement").Range("H2:H200") = ""
    ThisWorkbook.Sheets("Classement").Range("I2:M200").Clear
    Resultats
    fin = ActiveWorkbook.Worksheets("Classement").Range("A1").End(xlDown).Row
    ActiveWorkbook.Worksheets("Classement").Range("A2:F" & fin).Copy Destination:=ActiveWorkbook.Worksheets("Classement").Range("H2:M" & fin)
    Range("H2:M" & fin).Select
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "I2:I" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "J2:J" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "K2:K" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "L2:L" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "M2:M" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classement").Sort
        .SetRange Range("H1:M" & fin)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With ActiveWorkbook.Worksheets("Classement")
        fin1 = .Range("U" & .Rows.Count).End(xlUp).Row
        If fin1 > 2 Then .Range("U3:Y" & fin1).Clear
        If fin > 2 And .Range("A2") <> "" Then
            .Range("U2:Y2").Copy .Range("U3:U" & fin)
        End If
    End With
End Sub

PQA · 19 Juin 2024

Gégé-45550 à dit:
Bonjour,
Postez votre fichier, ce sera plus facile pour vous aider.

https://www.sendspace.com/file/wcizoy

le voici, et pour faire la màj vers 6.5... je dois à nouveau copier tous les pronos? j'ai quasi 30 personnes à modifier
En tout cas, merci pour votre aide, c'est super

fredy1435 · 19 Juin 2024

Gégé-45550 à dit:

Re
Si vous tenez à automatiser cette MAJ, dans l'éditeur VBA, ouvrir le Module1 et remplacer la procédure "Classement"
par celle-ci :

VB:

Sub Classement()
'
Dim fin As Long, fin1 As Long
'
    ThisWorkbook.Sheets("Classement").Range("H2:H200") = ""
    ThisWorkbook.Sheets("Classement").Range("I2:M200").Clear
    Resultats
    fin = ActiveWorkbook.Worksheets("Classement").Range("A1").End(xlDown).Row
    ActiveWorkbook.Worksheets("Classement").Range("A2:F" & fin).Copy Destination:=ActiveWorkbook.Worksheets("Classement").Range("H2:M" & fin)
    Range("H2:M" & fin).Select
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "I2:I" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "J2:J" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "K2:K" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "L2:L" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range( _
        "M2:M" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classement").Sort
        .SetRange Range("H1:M" & fin)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With ActiveWorkbook.Worksheets("Classement")
        fin1 = .Range("U" & .Rows.Count).End(xlUp).Row
        If fin1 > 2 Then .Range("U3:Y" & fin1).Clear
        If fin > 2 And .Range("A2") <> "" Then
            .Range("U2:Y2").Copy .Range("U3:U" & fin)
        End If
    End With
End Sub

merci pour votre retour et un grand merci pour votre travail et votre réactivité.

Franckydu91 · 19 Juin 2024

Gégé-45550 à dit:
Re
En PJ le fichier corrigé.
Il y avait une coquille dans la formule qui faisait référence à la ligne 2 au lieu de la ligne 4, une coquille de ma part !

Bonsoir Gégé,

J'ai comparé la nouvelle version 6.5.2.1 avec la 6.5.1 et les classements sont différents. En le faisant manuellement le bon classement se fait avec la 6.5.1
Exemple avec "Arnaud Panaget" le total de points est de 30.5 alors que normalement il devrait avoir 28.5

Gégé-45550 · 20 Juin 2024

Franckydu91 à dit:
Bonsoir Gégé,

J'ai comparé la nouvelle version 6.5.2.1 avec la 6.5.1 et les classements sont différents. En le faisant manuellement le bon classement se fait avec la 6.5.1
Exemple avec "Arnaud Panaget" le total de points est de 30.5 alors que normalement il devrait avoir 28.5

Bonsoir,
non, c'est bien la 6.5.2.1 qui calcule les bons points.
Pour le classement, ne pas oublier de double-cliquer sur la cellule H1 pour l'actualiser lorsqu'on le consulte après saisie d'un nouveau résultat et alors, avant le résultat de Écosse - Suisse, Arnaud Panaget a bien 28,5 points.

SATALKON · 20 Juin 2024

Gégé-45550 à dit:
AVIS AUX UTILISATEURS :
Je vous dois mille excuses et un grand merci à fredy1435, j'ai mal recopié les formules corrigées dans la colonne "U" de l'onglet "Modèle" et, de ce fait, elles fonctionnent mal pour les 0,5 points de consolation à partir du match Slovénie-Danemark et jusqu'à la fin.
Forcément, cette anomalie est reproduite dans tous vos onglets de pronostiqueurs.
Je publie une mise à jour et, comme d'habitude, la voici en attache, avec en prime les résultats des matches déjà déroulés ainsi que les cartons.
Encore toutes mes excuses

Bonjour Gégé-45550, pour info, au niveau du calcul des cartons, 2 petites coquilles (selon le site officiel de l'UEFA) :
La Serbie prend 3 CJ face à l'Angleterre (ald 2) (Gudelj à la 39ème, Tadic à la 75ème et le coach Stojkovic à la 83ème),
la Suisse prend 3 CJ face à la Hongrie (ald 2) (Widmer à la 5ème, Freuler à la 59ème, et le coach Yakin à la 88ème).
Belle journée à vous

PHILIPPE72610 · 23 Juin 2024

Bonsoir GEGE j ai un probleme de 3eme de groupe pour mes 1/8 de finale.
je te joins le fichier.
Cela concerne le pronostiqueur URLIN.
D avance Merci

Gégé-45550 · 24 Juin 2024

PHILIPPE72610 à dit:
Bonsoir GEGE j ai un probleme de 3eme de groupe pour mes 1/8 de finale.
je te joins le fichier.
Cela concerne le pronostiqueur URLIN.
D avance Merci

Bonjour,
Un cas rarissime déniché par URLIN et non géré par la V 6.5.2.1
Voici donc votre fichier mis à jour en V 6.5.2.2 qui corrige en plus des risques d'imprécisions dans le classement des poules et l'affichage mis à jour de la note de fair-play au survol du nom des équipes dans la colonne V.
Vous n'aurez donc pas besoin donc d'appliquer le patch de mise à jour vers la V 6.5.2.2 que je publierai prochainement.
Cordialement,

PHILIPPE72610 · 24 Juin 2024

PHILIPPE72610 à dit:
Bonsoir GEGE j ai un probleme de 3eme de groupe pour mes 1/8 de finale.
je te joins le fichier.
Cela concerne le pronostiqueur URLIN.
D avance Merci

Merci beaucoup pour votre réactivité.
Bon début de semaine

Gégé-45550 · 24 Juin 2024

AVIS AUX UTILISATEURS :
en attache, la V 6.5.2.2 qui corrige des risques d'imprécisions dans le classement des poules et la mise à jour de l'affichage de la note de fair-play au survol du nom des équipes dans la colonne V.
Comme d'habitude, la mise à jour sera en ligne dès validation par un modérateur.
Pour ceux qui ont beaucoup de pronostiqueurs et qui ne veulent pas recopier tous leurs pronostics (même si cette manœuvre est très rapide), je prépare actuellement un fichier patch permettant d'effectuer cette maj en un clic, mais je ne garantis pas que ce "patch" fonctionnera sur toutes les machines, vu le nombre de configurations et de systèmes possibles que bien entendu je suis dans l'incapacité de tester.
Allez la France.

[EDIT] PJ modifiée le 24/06/2024 à 18:44 afin d'obtenir des résultats corrects pour le calcul des 1/8 de finale pour les versions d'Excel antérieures à Excel 2021 (remplacement de la fonction XLOOKUP (RECHERCHEX)). [/EDIT]

Gégé-45550 · 24 Juin 2024

Gégé-45550 a mis à jour Pronos UEFA Euro 2024 avec une nouvelle entrée de mise à jour:

Pronos UEFA 2024 version 6.5.2.2 utilisable au moins à partir de Excel 2013

Correction de risques d'imprécisions dans le classement des poules et mise à jour de l'affichage de la note de fair-play au survol du nom des équipes dans la colonne V.

Lire le reste de cette entrée de mise à jour...

Ed1820 · 24 Juin 2024

Bonjour GEGE,
J'avais un problème avec la version V 6.5.2.1 après la 2eme match de la France le classement provisoire du Groupe D était : Autriche, Pays Bas, France, Pologne au lieu de Pays Bas, France, Autriche, Pologne.
La dernière version V 6.5.2.2 semble avoir corrigé ce bug.

Autre bug: feuille MATCH Cellules AO25 et AP24 le résulat de Pays Bas-France est 0-0 et non 1-1 comme indiqué.

J'ai encore un autre bug qui semble être du à des versions d'excel différentes.
J'ai office professionnel PLUS 2019 avec la dernière mise à jour 2405 17628.20164
En notant les résultats de dimanche soir le nom du pays du 1er et 2è groupe A j'ai #NOM ? en B38 ET B39.
La formule est : =SI(MIN(W3:W6)<R55;"1er Groupe A";_xlfn.XLOOKUP(1;AE3:AE6;V3:V6;"-";0;1))
La fonction XLOOKUP n'est pas supportée par ma version EXCEL.

Peux-tu me dire comment je pourrai corriger ce dernier bug. ?
D'avance merci pour ton aide.
Jacques

Gégé-45550 · 24 Juin 2024

Ed1820 à dit:
Bonjour GEGE,
J'avais un problème avec la version V 6.5.2.1 après la 2eme match de la France le classement provisoire du Groupe D était : Autriche, Pays Bas, France, Pologne au lieu de Pays Bas, France, Autriche, Pologne.
La dernière version V 6.5.2.2 semble avoir corrigé ce bug.

Bonjour, j'avais vu aussi et effectivement, la V 6.5.2.2 corrige ça.

Autre bug: feuille MATCH Cellules AO25 et AP24 le résulat de Pays Bas-France est 0-0 et non 1-1 comme indiqué.

Ce n'est pas normal, je n'ai pas ça sur ma feuille de test

J'ai encore un autre bug qui semble être du à des versions d'excel différentes.
J'ai office professionnel PLUS 2019 avec la dernière mise à jour 2405 17628.20164
En notant les résultats de dimanche soir le nom du pays du 1er et 2è groupe A j'ai #NOM ? en B38 ET B39.
La formule est : =SI(MIN(W3:W6)<R55;"1er Groupe A";_xlfn.XLOOKUP(1;AE3:AE6;V3:V6;"-";0;1))
La fonction XLOOKUP n'est pas supportée par ma version EXCEL.
Peux-tu me dire comment je pourrai corriger ce dernier bug. ?

en B38 :

VB:

=SI(MIN(W3:W6)<R55;"2e Groupe A";INDEX(V3:V6;EQUIV(2;AE3:AE6;0)))

en E38 :

Code:

=SI(MIN(W10:W13)<R55;"2e Groupe B";INDEX(V10:V13;EQUIV(2;AE10:AE13;0)))

en B39 :

Code:

=SI(MIN(W3:W6)<R55;"1er Groupe A";INDEX(V3:V6;EQUIV(1;AE3:AE6;0)))

en E39 :

Code:

=SI(MIN(W17:W20)<R55;"2e Groupe C";INDEX(V17:V20;EQUIV(2;AE17:AE20;0)))

en B40 :

Code:

=SI(MIN(W17:W20)<R55;"1er Groupe C";INDEX(V17:V20;EQUIV(1;AE17:AE20;0)))

en E40 : ne rien changer
en B41 :

Code:

=SI(MIN(W10:W13)<R55;"1er Groupe B";INDEX(V10:V13;EQUIV(1;AE10:AE13;0)))

en E41 : ne rien changer
en B2 :

Code:

=SI(MIN(W24:W27)<R55;"2e Groupe D";INDEX(V24:V27;EQUIV(2;AE24:AE27;0)))

en E42 :

Code:

=SI(MIN(W31:W34)<R55;"2e Groupe E";INDEX(V31:V34;EQUIV(2;AE31:AE34;0)))

en B43 :

Code:

=SI(MIN(W38:W41)<R55;"1er Groupe F";INDEX(V38:V41;EQUIV(1;AE38:AE41;0)))

en E43 : ne rien changer
en B44 :

Code:

=SI(MIN(W31:W34)<R55;"1er Groupe E";INDEX(V31:V34;EQUIV(1;AE31:AE34;0)))

en E44 : ne rien changer

Code:

=SI(MIN(W24:W27)<R55;"1er Groupe D";INDEX(V24:V27;EQUIV(1;AE24:AE27;0)))

en E45 :

Code:

=SI(MIN(W38:W41)<R55;"2e Groupe F";INDEX(V38:V41;EQUIV(2;AE38:AE41;0)))

Puis faire éventuellement les mêmes modifications dans chaque onglet de pronostiqueur et dans l'onglet "Modèle" ... ouf !
Cordialent,

Pronos UEFA Euro 2024 6.5.2.3

fredy1435

XLDnaute Nouveau

Gégé-45550

XLDnaute Accro

Gégé-45550

XLDnaute Accro

PQA

XLDnaute Nouveau

fredy1435

XLDnaute Nouveau

Franckydu91

XLDnaute Nouveau

Gégé-45550

XLDnaute Accro

Pièces jointes

SATALKON

XLDnaute Nouveau

PHILIPPE72610

XLDnaute Nouveau

Pièces jointes

Gégé-45550

XLDnaute Accro

Pièces jointes

PHILIPPE72610

XLDnaute Nouveau

Gégé-45550

XLDnaute Accro

Pièces jointes

Gégé-45550

XLDnaute Accro

Ed1820

XLDnaute Nouveau

Gégé-45550

XLDnaute Accro

Pièces jointes

Discussions similaires