Discussion :

[Asdorve]

Bonjour,

J'insère dans une textbox plusieurs mots aléatoires, et j'ai la possibilité d'effectuer une recherche dans cette textBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Command1_Click()
SearchMot = Text2.Text
 
If Text1.Text Like "*" & SearchMot & "*" Then
    MsgBox "Mot trouvé"
 
Else
    MsgBox "pas de résultat"
End If
 
 
End Sub

Si SearchMot est trouvé dans Text1, comment faire pour surligner (ou mettre tout simplement en couleur) le résultat?

MErci d'avance

[avigeilpro]

Pour faire la recherche tu pourrais carrement utiliser InStr, de plus cette fonction te répond en te donnant la place de ce mot dans la chaine ce qui te permet, connaissant la place du mot et sa longueur (len) de le surligner avec les propriété SelStart et SelLength

[avigeilpro]

Voila ce que ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
Dim PosMot As Integer
 
SearchMot = Text2.Text
PosMot = InStr(Text1.Text, Text2.Text)
 
If PosMot <> 0 Then
    MsgBox "Mot trouvé"
 
    'PosMot va de 1 à len(text1.text) alors que SelStart va de 0 à len(text1.text)-1
    'Il faut donc enlever 1
 
    Text1.SelStart = PosMot - 1 'défini position du curseur
 
    Text1.SelLength = Len(SearchMot) 'défini longueur de surlignement
 
    Text1.SetFocus   'donne le focus à la boite text1
 
Else
    MsgBox "pas de résultat"
End If
 
 
End Sub

[Asdorve]

merci beaucoup avigeilpro.

@ bientôt