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.
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