Bonsoir Jad,
J'espère que vous meilleur en musique qu'en calcul.
Ligne 2 51, en fait c'est 49. En ligne 8 96 en fait c'est 92.
En PJ un essai avec une fonction perso :
VB:
Function SumLet(N$)
Dim R%, V$, G$, i%: SumLet = 0: T = Split(N, " ")
For i = 0 To UBound(T)
G = Left(T(i), 1)
If IsNumeric(G) Then SumLet = SumLet + Val(G)
If G = "D" Or G = "A" Or G = "0" Then SumLet = SumLet + 10
Next i
End Function
Bonsoir Jad,
J'espère que vous meilleur en musique qu'en calcul.
Ligne 2 51, en fait c'est 49. En ligne 8 96 en fait c'est 92.
En PJ un essai avec une fonction perso :
VB:
Function SumLet(N$)
Dim R%, V$, G$, i%: SumLet = 0: T = Split(N, " ")
For i = 0 To UBound(T)
G = Left(T(i), 1)
If IsNumeric(G) Then SumLet = SumLet + Val(G)
If G = "D" Or G = "A" Or G = "0" Then SumLet = SumLet + 10
Next i
End Function
Bonjour sylvanu, le forum
Merci pour ta réponse, effectivement il vaut mieux que je compte sur excel que sur mes doigts
(je n'est pas vérifié mon envoi)
une autre question, quelle formule employer pour compter le nombre de courses
Pour hier course de trot c'est parfait
Aujourd'hui c'est une course de plat et le résultat n'est pas correct.
Que faut-il modifier dans la macro
Merci
Bonsoir Jad,
J'ai créé une nouvelle fonction perso avec :
Code:
Function NbCourses(N$)
Dim i%: T = Split(N, " "): NbCourses = 1 + UBound(T)
For i = 0 To UBound(T)
If Left(T(i), 1) = "(" Then NbCourses = NbCourses - 1
Next i
End Function