Chercher si un mot est contenu dans une textbox

Résolu/Fermé
minermine Messages postés 26 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 6 août 2017 - 24 juin 2013 à 21:42
minermine Messages postés 26 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 6 août 2017 - 1 sept. 2013 à 09:05
Bonjour,

J'ai visual basic 2010 et je souhaite que lorsque je j'appuis sur le bouton nommé "button1", il cherche un mot contenu dans la textbox nommé "textbox1" défini dans les codes.

Exemple:
Code de button1:
if textbox1.text CONTIENT "AYYETTE" then
msgbox("Trouvé")
else
msgbox("raté")
end sub


J'attend vos réponses et je vous en remercie d'avance,
Cordialement,
Romain Quintaine

5 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 juin 2013 à 12:09
Bonjour,
Sans la casse :
If InStr(1, textbox1.Text, "AYYETTE", vbTextCompare) > 0 Then
Note : Dans l'éditeur Visual Basic, quand on place le curseur texte sur un mot du langage (par ex: InStr) et qu'on appuis sur la touche F1, on obtient l'aide VBA concernant ce mot (avec la solution ci-dessus).
3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
24 juin 2013 à 22:07
If InStr(1, textbox1.Text, "AYYETTE") > 0 Then
1
minermine Messages postés 26 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 6 août 2017 3
25 juin 2013 à 08:32
Bonjour,

Le code marche super et si je souhaite que la casse ne soit pas prise en compte je doit faire:
If InStr(1, textbox1.Text, "AYYETTE") > 0 or InStr(1, textbox1.Text, "Ayyette") > 0 Then

Ou il y a une meilleur méthode,

Cordialement,
Romain Quintaine
0
_shadom Messages postés 1 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 28 août 2013
28 août 2013 à 01:59
Bonjour,
Pour contourner la casse dans votre syntaxe sans poursuivre avec Or dans votre boucle If vous pouvez convertir le texte à comparer en lettre capitale puis comparer directement avec la valeur capitale du comparatif.
Soit : TextBox1.Text.ToUpper avec le comparatif "AYYETTE"
Ou : UCase(TextBox1.Text) avec le comparatif "AYYETTE".
Pour l'instant seuls les accents on échappés à cette règle à ma connaissance.
Bye ;)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
minermine Messages postés 26 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 6 août 2017 3
1 sept. 2013 à 09:05
Bonjour,
Merci, c'est vrai que je n'y avait pas pensé au pars avant. Et pour les accents, je les ai fait convertir ( par exemple é > e | è >e ) et c'set parfait.
Cordialement, Romain Quintaine
0