Bonjour à tous
Je suis désolé mais je n'ai pas du bien comprendre le code car je n'arrive pas à l'adapter
a ma situation ...
Car j'ai déjà des filtres possible qui je pense doivent mettre le "bazard"
Je souhaiterais faire une saisie intuitif via une textbox
et j'ai essayé ce code mais ca ne fonctionne pas...
====================================================================
Private Sub InitDataLVw(Optional k% = 1)
Dim MOTS As Variant
MOTS = Split(Trim(Me.TextBox1), " ")
With ListView1
Me.ListView1.ListItems.Clear
Select Case k
Case 1
For i = 2 To iLR
If CheckBox3 = True Then
If Wsg.Cells(i, 1) = MOTS And Wsg.Cells(i, 8) = "NON" And Wsg.Cells(i, 30) = "OUI" Then
======================================================================
J'ai essayé en mettant le code ci-dessous , mais c'est également KO
if Wsg.Cells(i, 1) = "*" & TextBox1 & "*" And Wsg.Cells(i, 8) = "NON" And Wsg.Cells(i, 30) = "OUI" Then
Merci encore pour votre aide !
Bibbip