Private Sub Image1_Click()
RETABLIR_LISTE
Dim RECHERCHE_OK As Boolean
'********************************* pour chercher jusqu'à 10 mots séparés par (1 espace) ***************************
' utilisation de deux tableaux
' ***************************************************************************************************************
' ***************************************************************************************************************
Dim tableau(10)
For i = 0 To 9
tableau(i) = Split(Me.TextBox2.Text, " ", -1, vbTextCompare)
Next
Dim texte As Variant
For j = LBound(tableau) To UBound(tableau) - 1
texte = tableau(j)
Next j
For j = 0 To UBound(texte)
For i = 1 To Me.ListView2.ListItems.Count
'If InStrRev(Me.ListView2.ListItems(i).Tag, Me.TextBox2.Text, -1) <> 0 Then
If InStrRev(Me.ListView2.ListItems(i).Tag, texte(j), -1) <> 0 Then
RECHERCHE_OK = True
Me.ListView2.ListItems(i).ForeColor = &HC00000
Me.ListView2.ListItems(i).Bold = True
Me.ListView2.ListItems(i).ListSubItems(5).Text = 1
End If
Next i
Next j
If RECHERCHE_OK = True Then
With Me.ListView2: .SortKey = 5
.SortOrder = lvwDescending: .Sorted = True
End With
Else
MsgBox "Le Mot : " & Me.TextBox2.Text & " n'a pas été trouvé "
End If
End Sub