Chiffrer des lettres

Bonjour le forum

Je cherche une formule pour attribuer des chiffres a des lettres.

J'ai aussi trouver sur le forum une macro mais elle ne fait que pour un mot.

Je joint un bout de fichier.

merci

14nomchiffre.xlsm (17.72 Ko)

Bonjour

Tiens cela faisait longtemps qu'on avait pas eu de numérologie (il manque 11 et 22 le cas échéant)

Par formule

=CHOISIR(MOD(SOMMEPROD((MOD(CODE(STXT(MAJUSCULE(K2);LIGNE(INDIRECT(1&":"&NBCAR(K2)));1))-65;9)+1)*1);9)+1;9;1;2;3;4;5;6;7;8)

Bonjour,

Ci-joint ta macro adaptée ...

En espèrant que cela t'aide

20nomchiffre.xlsm (21.46 Ko)

Bonjour à tous,

allez, par formule aussi pour se mettre en forme avant une bonne nuit :

=MOD(SOMMEPROD(MOD(CODE(STXT(MAJUSCULE(K2);LIGNE(INDIRECT("$1:$"&NBCAR(K2)));1))-65;9)+1)-1;9)+1

(je ne met que le résultat final directement)

eric

Bonsoir

Merci pour vos réponses.

Mais il semblerait que les réponses ne soient pas exactes lorsqu'il y a un mot composé séparé(pont ramy).

Pour les dates comment faut-il faire.

Pour la macro elle aussi, elle affiche "erreur 91".

Merci

a+

5nume.xlsm (20.27 Ko)

Bonjour,

elles sont exactes pour ce que tu avais demandé.

Tu as Supprespace() pour supprimer les espaces. Et avec substitue() tu peux supprimer d'autres caractères.

eric

Bonjour à tous,

Salut Eriiic

Eric a entièrement raison ...

Tous les contributeurs ne font que s'en tenir à la requête du demandeur ...

Dire qu'il aurait simplement suffit que tu glisses ...les cas cités ...parmi tes 5 exemples ...

Ci-joint ta macro modifiée ...

En espèrant que cela t'aide

17nomchiffre-v2.xlsm (21.76 Ko)

bonjour

une modeste contribution tardive

14jad83.xlsx (14.45 Ko)

cordialement

Rechercher des sujets similaires à "chiffrer lettres"