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

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