Re : Mondial2010
Bonjour à tous
Correction d'un défaut dans le tri en 16° de final:
Le résultat dans les groupes "A,B,C" est correct.
Dans le Groupe "D". la situation est particulière à égalité de points.
Il faut privilégié le tri sur le Delta avant le total des buts:
Résultat Groupe"D"
------------------- Classement -- Total but -- But pris -- Delta --
1° Allemagne 6 5 1 4
2° Australie 4 3 6 -3
3° Ghana 4 2 2 0
4° Serbie 3 2 3 -1
avant correction
Le classement (tri) se fait par zone prioritaire en ordre décroissant.
Zone1- Classement (par point engrangé) décroissant, s'il y a égalité de point, le tri se pratique en zone2.
Zone2 - delta - tri décroissant (total but- but pris)
Zone3 - Nombre de but marqué (tri)
Avant correction:
'========== Classement du Groupe , opération de tri ========
Application.CutCopyMode = False
Range("C22:G26").Select
Selection.Sort key1:=Range("D23"), order1:=xlDescending, _
Key2:=Range("E23"), Order2:=xlDescending, _
Key3:=Range("F23"), Order3:=xlAscending, _
header:=xlGuess, OrderCustom:=1, _
MatchCase:=True, Orientation:=xlTopToBottom
Range("c2").Select
'----------------------------------------------------------------------------------
(intervention: Userform2 -- Bouton "Valider")
Après correction:
'========= Classement du Groupe , opération de tri ========
Application.CutCopyMode = False
Range("C22:G26").Select
Selection.Sort key1:=Range("D23"), order1:=xlDescending, _
Key2:=Range("G23"), Order2:=xlDescending, _
Key3:=Range("F23"), Order3:=xlDescending, _
header:=xlGuess, OrderCustom:=1, _
MatchCase:=True, Orientation:=xlTopToBottom
Range("c2").Select
'--------------------------------------------------------------------------------
après ce rectificatif le "Ghana" doit trouver sa place en 8°.
------------------- Classement -- Total but -- But pris -- Delta --
1° Allemagne 6 5 1 4
2° Ghana 4 2 2 0
3° Australie 4 3 6 -3
4° Serbie 3 2 3 -1
Voilà, j'ai apporté la correction, il est plus honnête de rectifié de suite.
Pour ceux qui veulent la version modifiée, je suis prêt à leur envoyer.
Salutation à tous
Jean-Paul