XL 2016 Somme des rangs de lettres d'une cellule

[dedef]

Bonsoir,
est-il possible, à partir d'une combinaison de fonctions, de calculer en une fois la somme des rangs de lettres présentes dans une cellule (a=1, b=2, ..., z=26)?
Par exemple, si j'ai "Bonjour" dans une cellule, je veux obtenir 95(2+15+14+10+15+18+21).
Merci d'avance.

 

[job75]

Bonsoir dedef,

Function SommeRangLettres(t)
Dim i, rang
t = UCase(t)
For i = 1 To Len(t)
  rang = Asc(Mid(t, i, 1))
  If rang > 64 And rang < 91 Then _
    SommeRangLettres = SommeRangLettres + rang - 64
Next
End Function

Bonne fin de soirée.

 

[ODVJ]

Bonsoir à tous,

une formule, si "Bonjour" est en H12 :

=SOMMEPROD(CODE(STXT(MAJUSCULE(H12);LIGNE(INDIRECT("1:"&NBCAR(H12)));1))-64)

Si il faut gérer les caractères non alpha, la formule s'allonge :

=SOMMEPROD((CODE(STXT(MAJUSCULE(H12);LIGNE(INDIRECT("1:"&NBCAR(H12)));1))>64)*(CODE(STXT(MAJUSCULE(H12);LIGNE(INDIRECT("1:"&NBCAR(H12)));1))<91)*(CODE(STXT(MAJUSCULE(H12);LIGNE(INDIRECT("1:"&NBCAR(H12)));1))-64))

Cordialement