Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim Plage As Range, C As Range
Dim T As String
Dim x As Byte, k As Long, m As Long, n As Long, j As Byte
Dim Tablo()
Lv.ListItems.Clear
If TextBox1 = "" Then Exit Sub
n = 1
For Each F In Worksheets
Set Plage = F.Range(F.Cells(8, 1), F.Cells(F.Rows.Count, F.Columns.Count)).SpecialCells(2)
For Each C In Plage
If C Like ("*" & TextBox1 & "*") Then
ReDim Preserve Tablo(0 To 9, 0 To k)
Tablo(0, k) = F.Name
For x = 1 To 8: Tablo(x, k) = F.Cells(C.Row, x): Next
Tablo(9, k) = C.Address
k = k + 1
End If
Next
Next
If k = 0 Then
MsgBox "Le Texte n'a pas été trouvé" & vbLf & "Faites un essai avec une autre partie du nom", 16, ""
Exit Sub
End If
For k = 0 To UBound(Tablo, 2)
Lv.ListItems.Add , , Tablo(0, k)
For j = 1 To 9
Lv.ListItems(n).ListSubItems.Add Text:=Tablo(j, m)
Next
n = n + 1
Next
End Sub
Private Sub Lv_dblClick()
Dim i As Long
i = Lv.SelectedItem.Index
Application.Goto Sheets(Lv.ListItems(i).Text).Range(Lv.ListItems(i).ListSubItems(9))
Unload Me
End Sub