Valeur

Valeur numérique à des lettres

Ouri52 -

Bonjour,

J'aimerais trouver une formule me permettant de donner une valeur numérique aux différentes lettres de l'alphabet, de telle sorte que la somme de chaque lettre des mots d'une colonne (Ex. "A") soit automatiquement inscrite dans les cellules de la colonne adjacente (Ex. "B")

Merci,

Afficher la suite

4 réponses

Réponse 1 / 4 - Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
via55
Bonsoir

Tu peux passer par le code ASCI des lettres
Pour les majuscules par exemple le code de A est 65, celui de B 66 etc
tu peux récupérer le code d'une lettre par la fonction code ainsi avec C en A1, en B1 la formule =CODE(A1) renverra 67
et si tu veux 3 au lieu de 67 il suffit bien sûr de mettre=CODE(A1)-64

Par contre pour additionner toutes les valeurs il faut programmer une fonction personnalisée en VBA comme celle-ci qui additionne les valeurs des lettres majuscules en comptant 1 pour A, 2 pour B etc
```
Function addlet(mot As Range)
addlet = 0
For n = 1 To Len(mot)
addlet = addlet + Asc(Mid(mot, n, 1)) - 64
Next
End Function
```
Faire ALt F11 pour ouvrir l'éditeur VBA
Onglet Insertion puis Module
Copier la macro ci-dessus et la coller dans la page blanche
Fermer l'éditeur

La macro est après accessible dans le classeur par son nom comme n'importe quelle fonction, sa syntaxe est donc =addlet(celuule où se trouve le mot)

ex: avec CHEVAL en A1 et =addlet(A1) en B1 on obtient 51 en B1

Cdlmnt
3
1. Ouri52 Auteur
  
  Bonjour Via55,
  
  Je te remercie pour ta réponse, mais je suis encore néophyte dans l'utilisation des formules et des macros dans Excel. Pourrais-tu me donner une illustration des différentes étapes à franchir pour résoudre ce problème. Je précise, que chaque lettre va avoir la valeur que je vais lui attribuer (Ex. "a" pourrait valoir 12 ou 53 ou 128; B = 6 ou 14 ou 242; etc.).
  
  Gratitude!
  
  0
2. via55
  
  @Ouri52Bonjour
  
  Pour pouvoir attribuer la valeur que tu veux il faut appliquer la macro d'Eric qui m'a devancé sur la question
  Bonne suite
  
  0
3. eriiic Contributeur
  
  Je ne t'ai pas devancé, je t'ai suivi ;-)
  Tous mes voeux pour 2015 :-)
  eric
  
  0
4. via55
  
  @eriiicMerci Eric
  Tous mes voeux également
  Je t'avais précédé il est vrai pour répondre mais pas pour la 2eme étape permettant d'attribuer une valeur quelconque à chaque lettre !
  
  Via
  
  0
Réponse 2 / 4
oz@work
Si c'est pour un seul mot, on peut passer par une formule:
>> https://www.cjoint.com/c/EAfaJbfvbv2
Il te suffit de donner la valeur de chaque lettre dans le tableau de l'onglet CODE.

0
1. Ouri52 Auteur
  
  Merci Oz@work pour ta réponse
  
  En fait, c'est pour un très grand nombre de mots (plus de 300 000) dans une langue étrangère. Tous les mots sont inscrits un en dessous de l'autre dans la colonne A et j'aimerais que s'inscrive automatiquement dans la cellule correspondante de la colonne B la somme des lettres composant chacun de ces mots , après avoir attribuer une valeur numérique à chaque lettre de l'alphabet de cette langue. Est-ce possible? ...J'espère que cela ne demande pas trop de magie!
  
  0
2. oz@work
  
  Macro obligatoire dans ce cas.
  
  0
3. Ouri52 Auteur
  
  @oz@workMerci Oz, tu confirmes la conclusion à laquelle j'en arrivais!
  
  J'en profite, également, pour remercier toutes les personnes qui m'ont soumis des solutions à ce problème! La question s'est précisée au cours de cette recherche. J'aurais donc besoin d'une Macro pour associer des lettres à une valeur numérique et qui fasse la somme de ces lettres dans la colonne B devant chaque mot d'une longue liste de mot se trouvant dans la colonne A.
  
  Oz, as-tu une suggestion?
  
  0
4. eriiic Contributeur
  
  Bonjour,
  
  ???
  le classeur que je t'ai fourni te permet ça...
  eric
  
  0
5. Ouri52 Auteur
  
  @eriiicMerci Eric,
  
  Je vais m'attarder à résoudre ce problème avec le classeur que tu m'as fourni. Je n'y étais pas parvenu dans un premier temps, mais je crois maintenant avoir compris pourquoi. Je te signale dès que c'est résolu.
  
  Merci à tous.
  
  0

Réponse 4 / 4
eriiic Contributeur
Bonjour,

et par formule :
```
=SOMMEPROD(CODE(STXT(MAJUSCULE(A1);LIGNE(INDIRECT("1:"&NBCAR(A1)));1))-64)
```
eric
0
1. Ouri52 Auteur
  
  Merci Eric,
  
  Je suis intéressé à bien comprendre ta formule. Pourrais-tu me donner un exemple avec un mot pris au hasard comme "Maison" en A1. Quelle valeur numérique aurait ce mot en B1 si je donne une valeur particulière à chaque lettre (Ex. M = 66; a = 83, i = 7; s = 32; o = 327 et n = 12).
  
  Merci pour ton aide, c'est très apprécié!
  
  0
2. eriiic Contributeur
  
  Si les lettres ont des valeurs différentes ça devient très compliqué par formule, il vaut mieux faire en vba.
  
  Avec une fonction personnalisée : https://www.cjoint.com/c/EAeng7yk1tk
  Alt+F11 pour voir le code dans le Module1
  
  eric
  
  0
3. Ouri52 Auteur
  
  @eriiicMerci infiniment Eric!
  
  Je te suis très reconnaissant pour ton aide! Je vais appliquer ta VBA intégralement en attendant d'en apprendre plus à ce sujet.
  
  Ouri
  
  0

Valeur numérique à des lettres

4 réponses

Discussions similaires

Newsletters