faire un teste sur l'exel

Question

Bonjour,



pour faire une condition qui me permet de sasir seulement des lettres de "a"à"z" et on cas de saisi des chiffres Apparaîtra un message d'erreur.
                                         merci





Configuration: Windows XP / Internet Explorer 6.0

lermite222 · Answer

bonjour,
code à coller dans le module de la feuille où est le textbox
Private Sub TextBox1_Change()
Dim A
    If TextBox1 = "" Then Exit Sub
    TextBox1 = LCase(TextBox1)
    A = Right(TextBox1, 1)
    If Asc(A) < 97 Or Asc(A) > 122 Then
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
        Beep
        MsgBox "Entrée uniquement de a à z en minuscule"
    End If
End Sub
A+

Faire un teste sur l'exel

1 réponse

Discussions similaires

Newsletters