Valeur numérique à des lettres

Fermé

Valeur

Ouri52 Messages postés 28 Date d'inscription samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015 - 3 janv. 2015 à 21:48
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 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:

Valeur numérique de 65000
Comment calculer la valeur numérique de 65 000FCFA - Forum Bureautique
Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
Pavé numérique bloqué - Guide
La valeur saisie doit être numérique - Forum Bureautique
Clavier numérique bloqué - Guide

4 réponses

Réponse 1 / 4

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
3 janv. 2015 à 22:11

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 samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015
Modifié par Ouri52 le 4/01/2015 à 08:20

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 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734 > Ouri52 Messages postés 28 Date d'inscription samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015
5 janv. 2015 à 17:38

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 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 238
5 janv. 2015 à 17:52

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

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734 > eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024
5 janv. 2015 à 20:21

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 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 238
3 janv. 2015 à 22:35

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 samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015
4 janv. 2015 à 08:29

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 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 238
4 janv. 2015 à 12:59

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 samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015 > eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024
4 janv. 2015 à 14:28

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
4 janv. 2015 à 11:45

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 samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015
4 janv. 2015 à 14:32

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 dimanche 2 novembre 2014 Statut Membre Dernière intervention 20 janvier 2015 3
5 janv. 2015 à 00:28

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 samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015
5 janv. 2015 à 00:57

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 dimanche 2 novembre 2014 Statut Membre Dernière intervention 20 janvier 2015 3
5 janv. 2015 à 09:19

Macro obligatoire dans ce cas.

Ouri52 Messages postés 28 Date d'inscription samedi 10 mai 2014 Statut Membre Dernière intervention 18 février 2015 > oz@work Messages postés 127 Date d'inscription dimanche 2 novembre 2014 Statut Membre Dernière intervention 20 janvier 2015
Modifié par Ouri52 le 5/01/2015 à 14:45

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 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 238
5 janv. 2015 à 16:40

Bonjour,

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

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

faire écrire à Excel la suite des lettres

comment imprimer sous word avec des caractères gothiques ?

Comment faire pour débloquer mon clavier d'ordinateur ?

Comment faire des lettres à l'envers

Comment insérer correctement des caractères spéciaux ou émojis ?

alphabet binaire

Utilisateur anonyme - 29 mai 2008 à 18:45
Utilisateur anonyme - 29 mai 2008 à 18:50