' ajouter un bouton de commande dans userform selection
'mettre option compare text en haut de chaque userform pour syntaxe like
Private Sub CommandButton1_Click()
Sheets("Base").AutoFilterMode = False
Dim efface As Boolean
efface = True
Dim cel As Range
mot = InputBox("entrer le mot a chercher")
For y = 1 To resultatbase.ListView1.ColumnHeaders.Count
For x = 1 To resultatbase.ListView1.ListItems.Count
On Error Resume Next
If resultatbase.ListView1.ListItems(x).ListSubItems(y) Like ("*" & mot & "*") Then
sel = resultatbase.ListView1.ListItems(x).ListSubItems(y)
col = y + 3
With Sheets("Base")
If efface = True Then
resultatbase.ListView1.ListItems.Clear
efface = False
End If
.AutoFilterMode = False
.Range("C2").AutoFilter Field:=col, Criteria1:=Replace(sel, ",", ".")
With .AutoFilter.Range
Set Plage = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
For Each cel In Plage
With resultatbase.ListView1
.ListItems.Add , , cel
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 7)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 8)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 9)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 10)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 11)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 12)
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Row
End With
GoTo ici:
Next
End With
End With
End If
Next
ici:
Next
Unload Me
End Sub