Problème avec InStr

Bonjour à tous
J'ai un petit souci avec la fonction InStr
J'utilise cela pour changer la couleur d'un texte suite à une recherche par nom ou morceau de nom
Voici mon code

Code:

---

1 2 3 4

If InStr(TextBoxActeur1.Text, TxtActeur.Text) <> 0 Then TextBoxActeur1.ForeColor = Color.Red ElseIf InStr(TextBoxActeur1.Text, TxtActeur.Text) = 0 Then TextBoxActeur1.ForeColor = Color.Black

---

Exemples : Si je tape gabin ou Gabin ou Jean Gabin ça marche, ça s'affiche bien en rouge
Par contre si je tape le nom exact sans les majuscules, le nom reste affiché en noir

Auriez-vous une idée à me suggérer ?
Merci d'avance

Bonjour
J'ai trouvé la solution
Cela venait du format du champ de mon form de recherche
J'avais codé comme ça

Code:

---

TextBoxActeur.Text = UCase(Microsoft.VisualBasic.Left(TxtActeur.Text, 1)) & Mid(TxtActeur.Text, 2)

---

Ce qui fait que seul le premier mot était en majuscule et pas celui derrière l'espace !!
Après changement comme suit ça fonctionne à tous les coups

Code:

---

TextBoxActeur.Text = StrConv(TxtActeur.Text, VbStrConv.ProperCase)

---

Bonjour,

Peut-être que ceci (avec ToUpper) fonctionnera comme tu le veux :

Code:

---

1 2 3 4 5 6 7 8

If InStr(TextBoxActeur1.Text.ToUpper, TxtActeur.Text.ToUpper) <> 0 Then TextBoxActeur1.ForeColor = Color.Red ' ElseIf InStr(TextBoxActeur1.Text, TxtActeur.Text) = 0 Then ' !!! Pas besoin de ce ElseIf. ELSE suffit car si ce n'est pas <> 0, alors c'est obligatoirement = 0. Pas besoin de le tester. Else TextBoxActeur1.ForeColor = Color.Black ' ... ... ... End If

---

:)

Nos messages viennent de se croiser :D

Je crois ma solution plus simple.

A toi de voir ...

Bonjour,
Instr et Ucase c'est du VB6 Voir du VBA pas du VB.net!

Code:

---

TextBoxActeur1.ForeColor = If(TextBoxActeur1.Text.ToUpper.IndexOf(TxtActeur.Text.ToUpper) = 0, Color.Black, Color.Red)

---