XL 2013 Conversion nombre en lettre

[eddy1975]

Bonjour,

Je cherche une fonction qui peut convertir une lettre en chiffre.
Plus précisément :
EX : 12345A52CD

Je souhaite obtenir :

1234515234

Dans deux colonnes j'ai noté des valeurs à coté de chaque lettre A 1 ; B 2 ; C 3.....etc

Merci pour votre aide.

 

[gilbert_RGI]

Re : Conversion nombre en lettre

Bonjour,

avec cette fonction perso

Public Function ExtractChiffre(ByVal Cellule As Range) As String

    Dim Chaine As String, Bcl As Integer

    Chaine = Cellule.Value
    ExtractChiffre = ""

    For Bcl = 1 To Len(Chaine)
        Select Case Mid(Chaine, Bcl, 1)
            Case "0" To "9"
                ExtractChiffre = ExtractChiffre & Mid(Chaine, Bcl, 1)
            Case "A"
                ExtractChiffre = ExtractChiffre & "1"
            Case "B"
                ExtractChiffre = ExtractChiffre & "2"
            Case "C"
                ExtractChiffre = ExtractChiffre & "3"
            Case "D"
                ExtractChiffre = ExtractChiffre & "4"
        End Select
    Next Bcl
    ExtractChiffre = UCase(ExtractChiffre)
End Function

 

[gilbert_RGI]

Re : Conversion nombre en lettre

à améliorer si les lettres sont au delà de D

 

[Victor21]

Re : Conversion nombre en lettre

Bonjour, eddy1975.

Pas de fichier ???
En colonne E, depuis E1 : A, B, C, D
En colonne F, depuis F1 : 1, 2, 3, 4
Votre valeur en A : 12345A52CD
La formule :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;E1;F1);E2;F2);E3;F3);E4;F4)

renvoie 1234515234

Edit : Bonjour, Gilbert

 

[gilbert_RGI]

Re : Conversion nombre en lettre

Voilà le fichier si problèmes

 

[eddy1975]

Re : Conversion nombre en lettre

Merci pour vos réponses.
Mon premier soucis est résolu.

Maintenant que j'ai ma série de chiffres avec ou sans lettre, je souhaite la faire apparaître en plusieurs morceaux.

Ex : A234567890 je souhaite afficher dans une cellule suivante A234; la seconde cellule 567 et la dernière 890.

Merci pour votre aide

 

[Victor21]

Re : Conversion nombre en lettre

Re,

Rien à voir avec le titre du fil.
Toujours pas de fichier.
Regardez l'aide sur la fonction STXT()

=STXT($A$1;1;3)

renverra les 3 premiers caractères de la chaine contenue dans A1, à partir du premier.

 

[gilbert_RGI]

Re : Conversion nombre en lettre

peut-être comme ceci si le nbre de caractères est identique à l'exemple

 

[eddy1975]

Re : Conversion nombre en lettre

Merci
Même s'il n'y a pas le fichier vos réponses m'ont suffit à trouver la solution.

Encore merci.