cs_yasmina13
Messages postés24Date d'inscriptionmardi 16 décembre 2008StatutMembreDernière intervention25 mars 2009
-
25 janv. 2009 à 20:05
Profil bloqué -
26 janv. 2009 à 22:34
bonsoir tous
j'ai probléme dans mon textfield telque je veut que mon textfield accepte seulment les lettre et verouyé les chiffre.
merci d'avance
salutation
Essaie ceci en l'adaptant au non de controle de ta Textbox
Private Sub Textbox_KeyPress(KeyAscii As Integer)
Dim erreur as Bolean
erreur = False
If KeyAscii <> 13 Then Exit Sub
chn$ = Upcase$(Textbox.Text)
For i% = 1 to Len(chn$)
if Mid$(chn$,i%,1) < "A" or Mid$(chn$,i%,1) > "Z" then erreur = True:Exit For
next i%
If erreur = True then
Msgbox "Vous ne devez que des lettres",VbCritical
Textbox.Text = ""
Textbox.Refresh
End If
End Sub
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.