Convertir un mot en un nombre

Résolu
SaxGuit Messages postés 38 Statut Membre -  
PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'aimerais savoir comment faire pour convertir un mot en un nombre. Je m'explique. Chaque lettre a un chiffre correspondant: A=1, B=2,... Z=26

Donc, si j'écris un mot dans une cellule, (par exemple: bonjour) j'aimerais qu'Excel calcule (2+15+14+10+15+21+18=95) car B=2, O=15...

Merci de votre aide,

Saxguit

2 réponses

  1. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    Bonjour

    Un petit fichier pour le calcul de la valeur

    https://www.cjoint.com/?3EFqA166evU
    1
    1. SaxGuit Messages postés 38 Statut Membre
       
      Merci énormément! C'est en plein ce que je voulais, ça marche à merveille. En plus, la rapidité de la réponse était incroyable. Je vais cocher le forum comme résolu!
      0
    2. SaxGuit Messages postés 38 Statut Membre
       
      Bonjour PHILOU10120,

      Merci pour votre réponse à ma question. Si vous avez une minute j'aimerais savoir comment refaire votre formule afin qu'elle "fit" dans mon tableau. Je suis débutant avec ce logiciel, et les formules compliquées comme celle-là, je les comprend plus ou moins.

      Je vous envoi mon tableau.
      https://www.cjoint.com/?3EFruqAMzBg

      SaxGuit
      0
    3. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
       
      Votre fichier modifier

      https://www.cjoint.com/?3EFr54cTkTo
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Une autre solution, une petite fonction, à utiliser comme une fonction excel
    EX A2 = PoidsMot(A1) donne 95 si dans A1 on a bonjour

    Function PoidsMot(s As String) As Long
    If s = "" Then
      PoidsMot = 0
    Else
      s = UCase(s)
      PoidsMot = (Asc(Left(s, 1)) - 64) + PoidsMot(Right(s, Len(s) - 1))
    End If
    End Function

    Alt-F11 puis Insertion/module et coller le code

    Bonne suite
    0