Autres Créer des conditions concernant des chevaux au départ d'une course (RESOLU)

  • Initiateur de la discussion Initiateur de la discussion JBARBE
  • 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 !

JBARBE

XLDnaute Barbatruc
Bonjour à tous,
Serait-il possible en prenant comme référence les performances des chevaux, de leurs attribués les valeurs de ces performances de l'arrivée du 1er au 5éme et de compter dans TOTAUX le Total des courses faites !
Un exemple est fait pour le cheval " Monsieur XOO " !
Merci à l'avance est bonne journée !
 

Pièces jointes

Bonsoir Jbarbe,
Sans VBA difficile, avec ... guère plus simple.
Je me suis inspiré pour les codes de :
https://www.guide-hippique.com/comprendre-performances-cheval.html
Je prends en compte toutes les années. Avec cette fonction perso :
VB:
Function Perf(Chaine$, N%)
' Voir Codes : https://www.guide-hippique.com/comprendre-performances-cheval.html
R = Array("A", "D", "T", "R", "a", "m", "o", "s", "c", "h", "p")
' Remplace type course par x
For i = 0 To UBound(R)
    Chaine = Replace(Chaine, R(i), "x")
Next i
' Supprime années
For i = 10 To 30
    Chaine = Replace(Chaine, "(" & i & ")", "")
Next i
' Tableau perf
T = Split(Chaine, "x")
' Compte les perfs
For i = 0 To UBound(T)
    If T(i) = N Then Perf = Perf + 1
Next i
' Si le param N vaut 0 alors on remonte le nombre de courses
If N = 0 Then Perf = UBound(T)
End Function
La formule est =Perf(Chaine,N) Chaine étant la colonne G, N étant la place. A noter que si N=0 alors on remonte le nombre de courses, colonne Q.
A vérifier car le système de codage des courses n'est pas très évident.
NB : Je ne tiens pas compte des "accidents" comme Th car je n'ai pas trouvé la liste. Si vous l'avez je compléterais.
 

Pièces jointes

Bonjour sylvanu ,
C'est parfait !
Tu m'avais déjà aidé pour les courses mais avec les années et les 3 premiers !
J'ai voulu modifier une fonction sans succès !
Bravo et Merci !
Bonne soirée !
 
- 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
Retour