Classement pour un concours de pêche

  • Initiateur de la discussion Initiateur de la discussion danilo2722
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

danilo2722

XLDnaute Nouveau
Bonjour,

J'ai établi un fichier excel 2010 pour le classement d'un concours de pêche.
Le poids total de la journée donne le rang et des points attribués au rang, no problemo, mais pour la première fois j'ai des exaequo et le suivant décale de 1 rang. Je m'explique, les deux exaequo ont le rang 5 et le suivant le rang 7, excel ne donne pas le rang 6!? Peut-on en modifiant la formule soit mettre les deux exaequo au rang 6 et non au rang 5 ou celui qui est 7 au rang 6, c'est égal. En rouge sur mon fichier les deux exaequo et en jaune le suivant.
Merci d'av
Danilo
 

Pièces jointes

Re : Classement pour un concours de pêche

Bonjour danilo2722,

Une proposition avec colonnes supplémentaires. A Voir si cela correspond à la demande

Cordialement

Nota: Vous avez 2 N°2 et 2 N°10
 

Pièces jointes

Dernière édition:
Re : Classement pour un concours de pêche

Bonjour,

Je m'explique, les deux exaequo ont le rang 5 et le suivant le rang 7, excel ne donne pas le rang 6!? Peut-on en modifiant la formule soit mettre les deux exaequo au rang 6 et non au rang 5 ou celui qui est 7 au rang 6, c'est égal
Premier cas (décaler les 2 au rang 6) :
Code:
=RANG(AC5;$AC$5:$AC$35)+NB.SI($AC$5:$AC$35;AC5)-1
Mais de cette façon tu auras toujours des "trous" (pas de 5 et deux 6).

Second cas (on bouche les trous...) :
Code:
=SOMME(SI(AC5<$AC$5:$AC$35;1/NB.SI($AC$5:$AC$35;$AC$5:$AC$35)))+1
Formule matricielle, à valider par Ctrl+Maj+Entrée.

A+
 
Re : Classement pour un concours de pêche

Bonjour danilo2722, pascal82, GerardCalc

un essai par fonction personnalisée à tester:

en G5 : =Ordre($F$5:$F$34;F5) à tirer vers le bas

dans un module standard:

Code:
Function Ordre(Plage As Range, Cel As Range)
 Dim PT As Object, Dico As Object
 Set PT = CreateObject("system.collections.arraylist")
 Set Dico = CreateObject("Scripting.Dictionary")
 For Each C In Plage
    If C.Value <> "" Then PT.Add C.Value
 Next
 PT.Sort
 PT.Reverse
 For Each elem In PT
    If Not Dico.Exists(elem) Then x = x + 1
    Dico(elem) = x
 Next
 Ordre = IIf(Dico.Exists(Cel.Value), Dico(Cel.Value), "")
End Function

A+
 
Re : Classement pour un concours de pêche

Alors:
pascal82, c'est pas ok, merci quand même
GérardCalc, la première solution sans boucher les trous c'est ok, la seconde où on bouche les trous, celle qui m'intéresse le plus, dans ma case AC5, ça me donne 1 partout!?
Paf, ça fonctionne pas, merci quand même
 
Re : Classement pour un concours de pêche

Bonsour®
probleme également dans l'attribution des points ...
au cas il n'y aurait pas d'exaequos
la liste des points à attribuer n'est pas suffisamment longue :
🙄
correctif :
=SI(E5=0;1;CHOISIR(RANG(E5;E$5:E$35);25;20;16;13;11;10;9;8;7;6;5;4;3;2;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1))
la liste doit contenir autant de valeurs que de rangs possibles (soit =nbr de participants)
ou bien :
=SI(E5=0;1;CHOISIR(MIN(15;RANG(E5;E$5:E$35));25;20;16;13;11;10;9;8;7;6;5;4;3;2;1))

pourquoi attribuer 1 point à un absent ???
=SI(E5="";0,5;CHOISIR(RANG(E5;E$5:E$35);25;20;16;13;11;10;9;8;7;6;5;4;3;2;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1))
 
Dernière édition:
Re : Classement pour un concours de pêche

Pour Modeste, désolé je n'ai pas précisé que dans ma liste certains pêcheurs n'étaient pas présent donc case vide, ceux qui sont présents mais qui n'ont pas fait de poissons reçoivent 1 points. Mais la remarque est juste car dans la solution de GérardCalc le classement décale juste au niveau du rang mais n'attribue pas les points correctement aux deux exaequo en 6 ème position qui devraient recevoir 10 points et non 11...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
1 K
Réponses
11
Affichages
538
Retour