Valeur numérique à des lettres

Valeur

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention - 6 janv. 2015 à 06:45

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,

A voir également:

65000 en lettre
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Clavier iphone chiffre et lettre - Guide
Chiffre en lettre - Télécharger - Outils professionnels
Caractere speciaux lettre - Guide
Changer lettre disque dur - Guide

4 réponses

Réponse 1 / 4

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

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

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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!

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746 > Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention

Bonjour

Pour pouvoir attribuer la valeur que tu veux il faut appliquer la macro d'Eric qui m'a devancé sur la question
Bonne suite

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Je ne t'ai pas devancé, je t'ai suivi ;-)
Tous mes voeux pour 2015 :-)
eric

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746 > eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention

Merci 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

Réponse 2 / 4

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

et par formule :

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

eric

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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é!

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention > eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention

Merci 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

Réponse 3 / 4

Maurice

Bonjour

par macro il faut faire toutes les lettres 62 cas

voila un ex pour "Maison"

Sub TestAddlet()
Dim AddLet As String
Dim Mot As String
Mot = "Maison"
AddLet = ""
   For N = 1 To Len(Mot)
      Select Case Mid(Mot, N, 1)
         Case "M"
            Tlet = 66
         Case "a"
            Tlet = 83
         Case "i"
            Tlet = 7
         Case "s"
            Tlet = 32
         Case "o"
            Tlet = 327
         Case "n"
            Tlet = 12
      End Select
         AddLet = AddLet & Tlet
   Next
   MsgBox AddLet
End Sub

a toi de voir
A+
Maurice

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention

Merci Maurice,

Je manque encore de connaissance en VBA, mais je vais étudier la question pour mieux apprécier ta réponse!

Bonne année 2015!

Réponse 4 / 4

oz@work Messages postés 127 Date d'inscription Statut Membre Dernière intervention 3

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.

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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!

oz@work Messages postés 127 Date d'inscription Statut Membre Dernière intervention 3

Macro obligatoire dans ce cas.

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention > oz@work Messages postés 127 Date d'inscription Statut Membre Dernière intervention

Merci 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?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

???
le classeur que je t'ai fourni te permet ça...
eric

Ouri52 Messages postés 28 Date d'inscription Statut Membre Dernière intervention > eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention

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

Discussions similaires

Moyenne si compris entre deux dates

Extraire une chaîne de caractère après un tiret

Valeur MAX entre deux cellules trouvées avec RECHERCHEV

Fonction GRANDE.VALEUR et condition

Recherchev pour afficher données de plusieurs colonnes qui se suivent

copier automatiquement une cellule sur une autre

Votre réponse

Discussions similaires