Validation d'un textbox en lettre

[Tok-Ra]

Bonjour le forum !

Après un petit temps d'absence du forum, me revoici pour un nouveau projet encore!

Bon, j'ai encore besoin de vous, je vous explique mon problème:

Je souhaiterais que lorsque je saisi quelque chose dans un textbox, seul les lettres sont autorisé et les espaces sur 25 charactères.

J'ai cherché un peu partout mais je ne trouve que les "NotNumeric" ce qui ne correspond pas à ce que je veux !

Merci d'avance à vous !

 

[youky(BJ)]

Re : Validation d'un textbox en lettre

salut ,
essai ceci mais pas tout testé

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
For k = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, k, 1) = " " Then x = x + 1
Next
If x > 25 Then KeyAscii = 0
 Select Case KeyAscii
    Case 32 'espace
    Case 65 To 233
    Case Else
        KeyAscii = 0
    End Select
End Sub

 

[Tok-Ra]

Re : Validation d'un textbox en lettre

Hello Youki !

Merci pour ta réponse supra rapide !
J'ai adapté pour ne garder uniquement les lettres de l'alphabet en minuscule et majuscule, ce qui donne:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    For k = 1 To Len(TextBox1.Text)
        If Mid(TextBox1.Text, k, 1) = " " Then X = X + 1
    Next
    If X > 25 Then KeyAscii = 0
        Select Case KeyAscii
            Case 32 'espace
            Case 65 To 90
            Case 97 To 122
            Case Else
                KeyAscii = 0
        End Select
End Sub

Donc ça marche au poil !

Merci beaucoup et je te souhaite une bonne journée !