recuperer du texte d'une texte box

Objet 1 txtbox 2 label

Je m'explique j'ai une texte box qui ressemble a:

abcd efgh 'l'ordre des ligne est aleatoire
0123 4567 'je ne peut pa recuperer une ligne il faut
'que je cherche une chaine caracteres

je souhaite faire changer la couleur de mes labels en fonction du contenu de ma texte box
si la chaine "abcd efgh" est presente dans ma texte box alors label1 en vert sinon en rouge (pour le changement de couleur je sais faire quand meme) si "0123 4567" est present ds textbox label2 en vert sinon en rouge

J'esper que qq pourra m'aider

Merci d'avance

Vinsus (b)

private sub text1_change()
select case text1.text
case "abcd efgh"
label1.backcolor = vbgreen
label2.backcolor = vbred
case "1234 5678"
label1.backcolor = vbred
label2.backcolor = vbgreen
case else
label1.backcolor = vbred
label2.backcolor = vbred
end select
end sub

"la vitesse de la lumière est supérieure à celle du son, c'est pourquoi un imbécile parait intelligent jusqu'a ce qu'il parle !!"

en fait mon texte serai plutot :

ryetry abcd efgh jrlktu
rjerhr 1234 5678 djdh

il faut donc chercher "abcd efgh" et "1234 5678" dans une multitude d'autre caractere qui ne me serve a rien

Vinsus (b)

Utilise la fonction instr

private sub text1_change()
if instr (1, case text1.text, "abcd efgh") <> 0 then
label1.backcolor = vbgreen
label2.backcolor = vbred
elseif instr (1, case text1.text, "1234 5678") <> 0 then
label1.backcolor = vbred
label2.backcolor = vbgreen
else
label1.backcolor = vbred
label2.backcolor = vbred
end if
end sub

je preconise l'utilisation du select case dans l'eventualite d'un developpement ulterieur (si apres il y a plus que 2 label c lassant les elseif)

"la vitesse de la lumière est supérieure à celle du son, c'est pourquoi un imbécile parait intelligent jusqu'a ce qu'il parle !!"

Oui .. voir les réponses au même mail qu'il a posté 2 fois

Fanny

a Shivan0910 : comment fais-tu pour utiliser un Select Case quand tes tests sont différents ???? Les deux n'ont pas la même fonctionnalité !