Code en chiffre

roross

XLDnaute Junior
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.
 

Modeste geedee

XLDnaute Barbatruc
Re : Code en chiffre

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

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

:confused: la prochaine sera un mélange des deux ???

TextBox2=CodeNumLettre(Textbox1)
Capturebis.JPG
VB:
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
Capture.JPG
 

Pièces jointes

  • Capture.JPG
    Capture.JPG
    27.9 KB · Affichages: 83
  • Capture.JPG
    Capture.JPG
    27.9 KB · Affichages: 83
  • Capturebis.JPG
    Capturebis.JPG
    23.9 KB · Affichages: 98
  • Capturebis.JPG
    Capturebis.JPG
    23.9 KB · Affichages: 95
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 750
dernier inscrit
fred13340