Private Sub UserForm_Initialize()
Set f = Sheets("BASEDI")
Set Rng = f.Range("A1:E" & f.[E210000].End(xlUp).Row)
Ncol = Rng.Columns.Count
TblTmp = Rng.Value
For i = LBound(TblTmp) To UBound(TblTmp)
ReDim Preserve choix(1 To i)
For K = LBound(TblTmp) To UBound(TblTmp, 2)
choix(i) = choix(i) & TblTmp(i, K) & " * "
Next K
Next i
Me.ListBox1.List = Rng.Value
End Sub
Private Sub TextBox1_Change()
If Me.TextBox1 <> "" Then
mots = Split(Trim(Me.TextBox1), " ")
Tbl = choix
For i = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
Next i
If UBound(Tbl) > -1 Then
Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To Ncol)
For i = LBound(Tbl) To UBound(Tbl)
A = Split(Tbl(i), "*")
For K = 1 To Ncol: b(i + 1, K) = A(K - 1): Next K
Next i
Me.ListBox1.List = b
Me.Label1.Caption = UBound(Tbl) + 1
Else: MsgBox "...::: CLIENT INTROUVABLE :::..."
End If
Else
UserForm_Initialize
End If
End Sub