Vérifier que la textbox possède un @

Lanzo - 26 avril 2014 à 15:55
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 26 avril 2014 à 22:36
Bonjour,
Comment faire pour que si la textbox1 ne possède pas de "@" une msgbox s'ouvre ?
ex: If textbox1.text.contient "@" then
[...]
Else
msgbox("blablabla")

Merci

3 réponses

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
26 avril 2014 à 16:06
En quelle version de VB ?
Tu n'as pas précisé.
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
26 avril 2014 à 16:18
Bonjour,
Si VB6 ou VBA, intéresse-toi à la fonction Instr (dans l'aide VB6 ou VBA)
0
damedom41 Messages postés 79 Date d'inscription mercredi 14 avril 2010 Statut Membre Dernière intervention 2 août 2014
26 avril 2014 à 18:58
La fonction instr te renvoie la position du 1er caractère "choisi" dans une zone.
Donc si la position est zéro, c'est qu'il n'y en n'a pas, sinon c'est qu'il y en a au moins 1)
J'ai donc écrit une petite fonction que tu trouveras ci_dessous.
Pour la tester, il faut bien sûr l'appeler en lui fournissant la valeur de ta zone (ici celle de ta text box je crois)

'test existence arobases dans une zone
Public Function dbcararobase(varzone) As Integer
dbcararobase = 0
dbcararobase = InStr(1, varzone, Chr$(64))
MsgBox ("dbcararobase " & dbcararobase)
End Function

0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
26 avril 2014 à 22:36
C'est valable avec VB6, mais pas avec .NET, comme le demandeur n'a pas précisé le langage, on ne peux pas répondre au mieux.
0
Rejoignez-nous