Verifier si un text box contient du texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 679 fois - Téléchargée 48 fois

Contenu du snippet

Le titre le dit ... ca sert à Verifier si un text box contient du texte

Source / Exemple :


Private sub Text1_Validate(Cancel As boolean)
'Vérification du texte à la sortie du controle
If text1.text = "" then
     MsgBox "Il faut d'aboud taper un texte !", vbExclamation, "Attention"
     Cancel = True
'Retour dans le controle, car sinon l'arrêt du programme est possible par une nouvelle
'action du bouton quitter
Text1.Setfocus
'Eventuellement affectation en interne, par code d'un texte prédefini
Else
   Cancel = False
End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
39
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
19 juin 2009

Merci bcp booleen59 pour le partage
c généreux de ta part
Messages postés
1
Date d'inscription
mercredi 24 janvier 2007
Statut
Membre
Dernière intervention
14 février 2007

ben écoute tu te permet de mettre 2 à un source et tu n'es meme pas capable de tester ta text box avec l'événement Keypress sur lequel tu pourrez dire que pour pouvoir saisir sur cette text box il faut que le code ASCII soit compris entre tel nombre et tel nombre

Et en tout cas, TOI atoguum, je te mets 0 car sa me soul les mecs comme toi qui critique les sources des autres! Tout n'a pas la science infuse !!!!

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
MsgBox "caractère non valide pour cette boite de texte"
End If
End Sub
Messages postés
17
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
12 janvier 2005

Bon...c pas tres utile ca!!! Qqun saurait plutot comment verifier qu'un ou une text box (ca a un kiki ou pas un text box?) ne contient QUE des lettres de l'alphabet[a..z][A..Z]. L'interet c'est de verifier qu'on a pas taper des caracters speciaux... Merci a tous

PS: ARKKO, je t'ai mis 2. Ta source est a chier. Bon courage man!!
Messages postés
47
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
19 juin 2004

if text1.text <> "" then
'si il y a du text
else
'si il y en a pas
end if
Messages postés
52
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
15 juillet 2004

Private Sub Command1_Click()
if text1.text = "" then
exit sub
end if
'si y'a du text, ici on place la fonction du bouton
End Sub

voila, sans msgbox ca fé pas mal aux oreilles ;)
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.