Formule RECAP

[MARGAR]

Bonjour le forum,
Après mon tirage, j'aimerais transférer mes données vers ma feuille RECAP mais
après de multiples essais, je ne parviens pas à trouver la bonne formule.
Ci-joint mon fichier afin de mieux comprendre.
Cordialement
margar

 

[Dranreb]

Re : Formule RECAP

Bonjour.
J'ai fait le classement

 

[MARGAR]

Re : Formule RECAP

Bonjour,

Bon travail.
Maintenant serait-il possible d' intégrer l'Average dans le Classement via la feuil RECAP ?

Cordialement

 

[Dranreb]

Re : Formule RECAP

Oui si je savais comment vous voulez le calculer…

 

[MARGAR]

Re : Formule RECAP

Bonjour,

Dans la feuil RECAP, j'aimerais y transférer l'Average de chaques équipes des Manches 1,2,3,4, .
L'Average c'est la différence qu'il y a entre les Points de 2 équipes.

Exemple : Manche 1, Equipe 1 (ALBERT/MADELEINE) = 13 POINTS
contre Equipe 2 (FRANZ/RENE) = 6 POINTS
Ce qui donne, Average Equipe 1 = +7
et Average Equipe 2 = - 7

Ce calcul Average serait repris aussi dans le CLASSEMENT

BAV

margar

 

[Dranreb]

Re : Formule RECAP

Leur somme toutes manches est déjà calculée en colonne B du classement.
Enfin plutôt en colonne H puisque pour les test de vérification j'ai provisoirement envoyé le résultat à partir de G3 au lieu de A3

 

[MARGAR]

Re : Formule RECAP

Ok les colonne B et H correspondent à l'Average.
Mais il manque une colonne comptabilisant les POINTS des différentes Manches.

Ex : 1ére Manche : Albert = 13 Pts
2 ème Manche : Albert = 13 Pts
3 ème Manche : Albert = 2 Pts
4 ème Manche : Albert = 13 Pts
Total Albert = 41 Pts

 

[Dranreb]

Re : Formule RECAP

Alors comme ça:

 

[MARGAR]

Re : Formule RECAP

Parfait, mais il faudrait intervertir les colonnes H et I et si c'est possible indiquer 0 dans la colonne des Victoires et non un "blanc".

Merci

 

[Dranreb]

Re : Formule RECAP

Modifier la deuxième ligne derrière la première :

Set Dico = New Dictionary
For Li = 1 To UBound(T): Dico.Add T(Li, 1), Li: T(Li, 4) = 0: Next Li

Derrière la 1ère de ces lignes qui ne change pas, intervertissez ce qu'on ajoute aux deux autres:

         Li = Dico(Mch(Lm, C))
         T(Li, 2) = T(Li, 2) + Diff: If Diff > 0 Then T(Li, 4) = T(Li, 4) + 1
         T(Li, 3) = T(Li, 3) + Pnts

 

[MARGAR]

Re : Formule RECAP

svp, peux-tu me renvoyé le fichier corrigé car losque je fais la correction, j'obtiens une erreur de compil ds le
Worksheet_Activate()

merci

 

[Dranreb]

Re : Formule RECAP

Vous n'êtes pas l'auteur du reste du code de ce classeur, hein ?
Je veux bien vous l'envoyer, mais je préfèrerais que vous ne le regardiez qu'une fois que vous aurez tout fait pour le corriger de votre coté.

 

[MARGAR]

Re : Formule RECAP

Effectivement, je n'ai jamais prétendu être l'auteur de quoique se soit. C'est en fouinant sur le net que j'ai trouvé ce fichier et essaye de le transformer. Mais comme je ne connais pas grand chose en VBA, c'est pour cette raison que j'ai introduis (proposer) une demande sur ce site que je trouve génial vu l'aide que l'on peut y trouver.
Et je suis très content de pouvoir être aider par une personne serviable comme vous.

Pour rappel, je suis préretraité (ArcélorMittal) depuis 2 ans et me suis inscrit dans un petit club amateur de pétanque. Avec lequel on organise de temps en temps lorsque le temps le permet, des petits tournois.
Ceux-ci étant gérés jusque maintenant manuellement sur papier.

Afin d'informatiser ces tournois, je me suis tourné vers le net.

Cordialement

 

[MARGAR]

Re : Formule RECAP

Dans votre dernier fichier envoyé, dans la feui Classement, il faudrait que la colonne H (Average) vienne après les colonnes I (Points) J (Victoires).
En résumé, cela devrait devenir après correction : colonne H (Points), colonne I (Victoires) et colonne J (Average)

Amical Merci

 

[Dranreb]

Re : Formule RECAP

Bon j'espère que cette fois c'est la bonne.

 

[MARGAR]

Re : Formule RECAP

Merci, Merci, Merci,

Ainsi le Classement est au top mais il y a encore un petit problème lorsque l'on veut recommencer un tournoi, il y a une erreur 1004 ds le module 3 : Application.Run "Doublette.xls!RetourMenu" et de ce fait, je ne sais pas relancer l'application.