XL 2013 additionner des données sous texte

[jad73]

bonjour le forum
Comment additionner des chiffres, lettres qui sont dans un format texte
je joint le fichier avec quelques explications
merci

 

[sylvanu]

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 :

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

Syntaxe : =SumLet(A2)

 

[jad73]

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 :

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

Syntaxe : =SumLet(A2)

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

 

[sylvanu]

Bonsoir Jad,
J'ai créé une nouvelle fonction perso avec :

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

La syntaxe est : =NbCourses(A2)