Sub Alimente_ListView()
'Mettre en Surbrillance le Texte Recherché'
Dim i, L, x
Dim TabDataSheet As Variant
Dim TabDataArray() As Variant
'Vide le Contenu de la ListView'
UserForm_Telep.ListView_Telep.ListItems.Clear
TabDataSheet = Ws.Range("B4:T" & Ws.Range("B" & Rows.Count).End(xlUp).Row)
For L = 1 To UBound(TabDataSheet, 1)
If TabDataSheet(L, 1) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 2) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 3) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" _
Or TabDataSheet(L, 4) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 5) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 6) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 7) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" _
Or TabDataSheet(L, 8) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 9) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 10) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 11) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Or TabDataSheet(L, 12) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Then
ReDim Preserve TabDataArray(12, i)
For x = 1 To 12
TabDataArray(x, i) = TabDataSheet(L, x)
Next
i = i + 1
End If
Next L
On Error Resume Next
For i = 0 To UBound(TabDataArray, 2)
UserForm_Telep.ListView_Telep.ListItems.Add , , (TabDataArray(1, i))
If UserForm_Telep.TextBox_Rech <> "" And TabDataArray(1, i) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Then
UserForm_Telep.ListView_Telep.ListItems(UserForm_Telep.ListView_Telep.ListItems.Count).Bold = True
UserForm_Telep.ListView_Telep.ListItems(UserForm_Telep.ListView_Telep.ListItems.Count).ForeColor = &H800000
End If
For x = 2 To UBound(TabDataArray, 1)
UserForm_Telep.ListView_Telep.ListItems(i + 1).ListSubItems.Add , , (TabDataArray(x, i))
If UserForm_Telep.TextBox_Rech <> "" And TabDataArray(x, i) Like "*" & UserForm_Telep.TextBox_Rech.Text & "*" Then
UserForm_Telep.ListView_Telep.ListItems(UserForm_Telep.ListView_Telep.ListItems.Count).ListSubItems(x - 1).Bold = True
UserForm_Telep.ListView_Telep.ListItems(UserForm_Telep.ListView_Telep.ListItems.Count).ListSubItems(x - 1).ForeColor = &H800000
End If
Next x
Next i
End Sub