Mondial2010

VIARD

XLDnaute Impliqué
Bonjour le forum

Le mondial approche à grand pas.
Je mets en place, un programme de suivi du mondial.
Il est modifiable pour les mondials suivants

Je le place sur:Cijoint.fr - Service gratuit de dépôt de fichiers

Salutation à tous

Jean-Paul
 

VIARD

XLDnaute Impliqué
Re : Mondial2010

Bonjour à tous

Plus qu'une journée avant le mondial.
Le ci-joint que j'avais placé expire aujourd'hui.
Je le relance modifié pour un mois.

Cijoint.fr - Service gratuit de dépôt de fichiers

Salutations à tous

Jean-Paul
 

VIARD

XLDnaute Impliqué
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
 

simonB

XLDnaute Nouveau
Re : Mondial2010

Bonjour Jean Paul,

Bravo pour ce superbe travail.

Dans "Correction d'un défaut dans le tri", je crois qu'il conviendrait également de modifier "Key3:=Range("F23"), Order3:=xlDescending, _"
en "Key3:=Range("E23"), Order3:=xlDescending, _"
pour obtenir le tri sur les buts marqués et non les buts encaissés.

Encore bravo pour ce projet très réussi.
 

Statistiques des forums

Discussions
312 247
Messages
2 086 591
Membres
103 248
dernier inscrit
Happycat