Mettre les premiere lettre d'un mot en chiffres

Bonjour,

J'ai un probleme assez complexe, je m'explique :

J'ai un tableau excel avec des mot, et dans la collonne de droite je doit mettre toute les premiere lettre de chaque lettre en chiffre.

Exemple :

"Je suis en France" se trabnsformerais en "101956" car

"J" de "Je" correspond a la 10e lettre de l'alphabet

"S" de "Suis" correspond a la 19e lettre de l'alphabet

ect..

Il y aurait il une formule sur excel ?

Merci

Bonjour Rayanebtmz, le forum,

Un essai par macro...

Cordialement,

Bonjour,

une solution par fonction personnalisée :

Dans un module standard copier :

Function CodeIni(Cellule)
Dim T, i As Integer
T = Split(Cellule, " ")
For i = LBound(T) To UBound(T)
    CodeIni = CodeIni & Asc(UCase(Left(T(i), 1))) - 64
Next
End Function

et dans une cellule d'une feuille , copier (adapter si la phrase à "coder" n'est pas en cellule B3) :

=CodeIni(B3)

A+

Edit : bonjour xorsankukai et désolé pour l'étrange similitude du code

Re,

Salut AlgoPlus,

J'avais tenté de simplifier en m'essayant avec une formule personnalisée....

Function lettreENchiffre(cible As Range) As Long
  On Error Resume Next
         tb = Split(cible, " ")
          For i = 0 To UBound(tb)
           v = Asc(UCase(Left(tb(i), 1))) - 64
           lettreENchiffre = lettreENchiffre & v
          Next i
End Function

Du coup, c'est ma fonction qui semble similaire à la tienne (ça me rassure, j'étais sur la bonne voie )

Cordialement,

Bonjour Rayanebtmz, xorsankukai, AlgoPlus,

Pour changer...

Function Un(X As String)
Dim One As Variant
One = Split(X, " ")
For M = 0 To UBound(One)
Un = Un & Cells(1, Left(One(M), 1)).Column
Next M
End Function

Et idem faire = Un(A1) dans la cellule B1 pour le texte en A1.

Merci pour vos réponse !

Malheureusement j'ai pas trop compris comment faire exactement pour entrer cette formule.. J'aimerais le faire a partir de la case A3 (c'est en mot) jusqu'au A1200 et les B3 jusqu'au B1200 en chiffre

Merci ^^

Bonjour à tous,

Tu dois copier le code dans un module standard :

1. ALT+F11 pour ouvrir l'éditeur VBA.
2. clic sur INSERTION
3. Clic sur MODULE
4. Colle le code dedans

Ensuite tu utilises la fonction comme une formule normale:

Prenons la fonction d'AlgoPlus , elle se nomme CodeIni :

• En B3 tu tapes =CodeIni(A3) et tu tires la formule vers le bas.

Ton fichier devra être enregistré en .xlsm (prise en charge des macros).

Cordialement,

Salut !

Merci beaucoup j'ai réussi vous êtes au top !

Cordialement