Bonjour à tous
Je viens vers vous car j'utilise cette macro qui me permet de rechercher par mot clef dans ma listview
je souhaiterais la modifier pour que au lieu de ce basé sur ma base de donnée la recherche se fasse directement avec les données présent dans la listview et non de la feuille sous se trouvent cette base de donnée.
pouvez vous m'aider svp à résoudre ce probleme merci d'avance
Je viens vers vous car j'utilise cette macro qui me permet de rechercher par mot clef dans ma listview
Code:
Private Sub TextBox1_Change()
Dim i&, fin&
If TextBox1 = "" Then ListView1.ListItems.Clear: Exit Sub
fin = Feuil1.Range("A65536").End(xlUp).Row
aa = Feuil1.Range("A4:L" & fin)
For i = 1 To UBound(aa)
For a = 1 To UBound(aa, 2)
If aa(i, a) Like "*" & TextBox1 & "*" Then aa(i, 12) = "oui"
Next a
Next i
y = 1
For i = 1 To UBound(aa)
If aa(i, 12) = "oui" Then y = y + 1
Next
If y < 2 Then ListView1.ListItems.Clear: GoTo 1
ReDim bb(y - 1, 11)
y = 1
For i = 1 To UBound(aa)
If aa(i, 12) = "oui" Then
For a = 1 To 11
bb(y, a) = aa(i, a)
Next a
y = y + 1
End If
Next i
With ListView1
.ListItems.Clear
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
For i = 1 To UBound(bb)
.ListItems.Add , , bb(i, 1)
For a = 2 To UBound(bb, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , bb(i, a)
Next a
Next i
1 End With
End Sub
je souhaiterais la modifier pour que au lieu de ce basé sur ma base de donnée la recherche se fasse directement avec les données présent dans la listview et non de la feuille sous se trouvent cette base de donnée.
pouvez vous m'aider svp à résoudre ce probleme merci d'avance