Faire un teste sur l'exel

123 -  
lermite222 Messages postés 9042 Statut Contributeur -
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

A voir également:

1 réponse

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
0