Bonjour
j'ai un Useform avec un CommandButton1_Click() et un TextBox1
J'aimerais quand j'écris par exemple : toto dans le Text Box obtenir wrwr et quand j'écrit TOTO obtenir WRQR.
W = T + 3 caractères dans l'alphabet (T U V W)
R = O + 3 caractères dans l'alphabet (O P Q R)
J'ai déjà coder ceci
Cette macro me change seulement une lettre en majuscule en la lettre qui vient 3 fois apres dans l'alphabet avec la fonction Asc mais je ne trouve pas comment prendre un string en entier et aussi en minuscule
Je joint mon fichier ci dessous!
Thanks in advance
j'ai un Useform avec un CommandButton1_Click() et un TextBox1
J'aimerais quand j'écris par exemple : toto dans le Text Box obtenir wrwr et quand j'écrit TOTO obtenir WRQR.
W = T + 3 caractères dans l'alphabet (T U V W)
R = O + 3 caractères dans l'alphabet (O P Q R)
J'ai déjà coder ceci
Code:
Private Sub CommandButton1_Click()
Dim lettre As String, decalage As Integer
lettre = TextBox1
decalage = 3
MsgBox (Cesar(lettre, decalage))
End Sub
Function Cesar(lettre As String, decalage As Integer) As String
Dim LResult As Integer
Dim Declettre As String
Dim DecResult As Integer
LResult = Asc(lettre)
DecResult = (LResult + 3)
If DecResult > 90 Then
DecResult = CInt((Fix((DecResult - 65) Mod 26)) + 65)
End If
Declettre = Chr(DecResult)
Cesar = Declettre
End Function
Private Sub TextBox1_Change()
End Sub
Cette macro me change seulement une lettre en majuscule en la lettre qui vient 3 fois apres dans l'alphabet avec la fonction Asc mais je ne trouve pas comment prendre un string en entier et aussi en minuscule
Je joint mon fichier ci dessous!
Thanks in advance