XL 2013 Conversion nombre en lettre

gilbert_RGI

XLDnaute Barbatruc

• 9 Février 2016

• #2

Re : Conversion nombre en lettre

Bonjour,

avec cette fonction perso

VB:

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Février 2016

• #3

Re : Conversion nombre en lettre

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 9 Février 2016

• #4

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)

Cliquez pour agrandir...

renvoie 1234515234

Edit : Bonjour, Gilbert 🙂

 

Dernière édition: 9 Février 2016

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Février 2016

• #5

Re : Conversion nombre en lettre

Voilà le fichier si problèmes

 

Pièces jointes

• Lettres en chiffres.xlsm

  15.1 KB · Affichages: 55

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 9 Février 2016

• #6

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 9 Février 2016

• #7

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Février 2016

• #8

Re : Conversion nombre en lettre

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

 

Pièces jointes

• destructurer.xlsx

  8.5 KB · Affichages: 43

Dernière édition: 9 Février 2016

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 9 Février 2016

• #9

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.

 

Vote positif 0 Vote négatif