Addition dans cellule format texte

Bonjour le forum

Je voudrais additionner des chiffres et lettres qui sont dans des cellules au format texte

Quelle formule utiliser

çi-joint fichier qui sera peut-etre plus explicite

merci

Salut Jad,

solution VBA...
- calcul si changement en [J:J] ;
- calcul de la colonne si double-clic sur la feuille

Public Sub Calcul(ByVal iRow%)
'
Dim tSplit, iTot%
'
tSplit = Split(Range("J" & iRow).Value, " ")
For x = 0 To UBound(tSplit)
    If InStr(tSplit(x), "(") = 0 Then iTot = iTot + IIf(IsNumeric(Left(tSplit(x), 1)), Val(Left(tSplit(x), 1)), 10)
Next
Range("K" & iRow).Value = iTot
'
End Sub

Á tester...

A+

Bonjour à tous,

Une alternative avec une fonction personnalisée :

Function SommeLettres(chaine$) As Double

Dim reg As Object, subdiv As Object
Set reg = CreateObject("vbscript.regexp")

motifs = Array("\(\d+\)", "A|D", "a|m")
rplts = Array("", 10, "")

With reg
    .Global = True
    For i = LBound(motifs) To UBound(motifs)
        .Pattern = motifs(i)
        If .test(chaine) Then chaine = .Replace(chaine, rplts(i))
    Next i
    .Pattern = "\d+"
    If .test(chaine) Then Set subdiv = .Execute(chaine)
    For i = 0 To subdiv.Count - 1
        SommeLettres = SommeLettres + subdiv(i).Value
    Next i
End With

End Function

où, si j'ai bien compris, les A et D valent 10, les a et m valent *1 et les (*) valent 0.

Cdlt,

Bonjour curulis57, 3GB, le forum

Merci pour vos reponses je n'ai que l'embarras du choix.

Bonne soirée