Discussion :

[Jean-Luc80]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Luc80]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

Nos messages viennent de se croiser

Je crois ma solution plus simple.

A toi de voir ...

[Thumb down]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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