Je souhaiterai récupérer la valeur d'un texbox1 qui est une lettre (A, B, C ou D, ..) et la renvoyer dans un textbox 2 incrémenté de 1 en lettre. Si dans ma textbox1 apparaît A alors dans la textbox2 doit apparaître B.
Sachant que la texbox1 ce rempli automatiquement en allant chercher une lettre dans mon tableau. (je pense que ça n'a pas d'importance).
Sub Test()
Dim TabLettres As String
TabLettres = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Me.TextBox2 = Mid(TabLettres, InStr(1, TabLettres, Me.TextBox1, vbTextCompare) + 1, 1)
End Sub
Edit : oups, salut Eljojo_e, c'est également une solution
autre proposition qui prend en charge le cas où la lettre saisie est supprimée (avant d'être remplacée).
Code:
Private Sub DTextBox1_Change()
Dim n As Byte
TextBox2 = ""
If TextBox1 <> "" Then
n = Asc(UCase(TextBox1))
If n > 64 And n < 90 Then TextBox2 = Chr(n + 1)
End If
End Sub