Code en chiffre

[roross]

Salut;
Je cherche le contraire de question Chiffre en code de lettre
les chiffres q.s.d.f.g.h.j.k.l.m = 0.1.2.3.4.5.6.7.8.9
quand écrire "s" sur texbox1 il va écrire "1" sur textbox2
quand écrire "sd" sur texbox1 il va écrire "12" sur textbox2
quand écrire "sdqq" sur texbox1 il va écrire "1200" sur textbox2
quand écrire "dqsd" sur texbox1 il va écrire "2012" sur textbox2
merci.

 

[Dormeur74]

Re : Code en chiffre

Petite proposition (touche retour arrière inhibée).

 

[mutzik]

Re : Code en chiffre

bonjour,

on t'a pas déja répondu sur ton fil de hier ?

 

[Modeste geedee]

Re : Code en chiffre

Bonsour®

Salut;
Je cherche le contraire de question Chiffre en code de lettre

😡 en quelque sorte une question à tiroirs...
Rester dans le même fil !!!!

😕 la prochaine sera un mélange des deux ???

TextBox2=CodeNumLettre(Textbox1)

Function CodeNumLettre(target As String) As String
 Dim temp As String, i As Integer, codage As String
 codage = "qsdfghjklm"
 temp = ""
 For i = 1 To Len(target)
     If IsNumeric(Mid(target, i, 1)) Then
         temp = temp & Mid(codage, 1 + CInt(Mid(target, i, 1)), 1)
     Else
     If InStr(codage, Mid(target, i, 1)) < 1 Then
        temp = "Codage [" & codage & "] [0-9]": Exit For
     Else
         temp = temp & (InStr(codage, Mid(target, i, 1)) - 1)
    End If
     End If
 Next
 CodeNumLettre = temp
 End Function

 

[roross]

Re : Code en chiffre

Bonjour; Modeste geedee

Merci pour la repense
il fait double fonction
Merci infiniment