Chiffre en code de lettre

[roross]

Salut;
les chiffres 0.1.2.3.4.5.6.7.8.9 = q.s.d.f.g.h.j.k.l.m
quand écrire "1" sur texbox1 il va écrire "s" sur textbox2
quand écrire "12" sur texbox1 il va écrire "sd" sur textbox2
quand écrire "1200" sur texbox1 il va écrire "sdqq" sur textbox2
quand écrire "2012" sur texbox1 il va écrire "dqsd" sur textbox2
merci.

 

[Pierrot93]

Re : Chiffre en code de lettre

Bonjour,

regarde du coté des fonctions vba "Switch" ou "Choose".

bonne journée
@+

 

[Modeste geedee]

Re : Chiffre en code de lettre

Bonsour®

Salut;
les chiffres 0.1.2.3.4.5.6.7.8.9 = q.s.d.f.g.h.j.k.l.m
quand écrire "1" sur texbox1 il va écrire "s" sur textbox2
quand écrire "12" sur texbox1 il va écrire "sd" sur textbox2
quand écrire "1200" sur texbox1 il va écrire "sdqq" sur textbox2
quand écrire "2012" sur texbox1 il va écrire "dqsd" sur textbox2
merci.

un fonction personnalisée à placer dans un module standard

usage : textbox2.value=codelettre(textbox1)

Function CodeLettre(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
        temp = "?? Codage [0-9]": Exit For
    End If
Next
CodeLettre = temp
End Function

 

[mutzik]

Re : Chiffre en code de lettre

bonjour,

en reprenant l'idée de Pierrot
Private Sub TextBox1_Change()
TextBox2 = TextBox2 & Choose(Right(TextBox1, 1) + 1, "q", "s", "d", "f", "g", "h", "j", "k", "l", "m")
End Sub

Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
End Sub

 

[roross]

Re : Chiffre en code de lettre

Bonsoir; Modeste geedee
Merci pour ta réponse
ça marche bien avec moi