Re bonjour a tous,
Alors une nouvelle, j'ai mis en place un USF composé de :
Un textbox ; une listbox; et 2 bouton filtrer et fermer
elle fonctionne (au depart il n'y avait que la listbox), je voudrais juste des compléments de code si possible, pour faire ceci :
Je clique sur mon bouton "Filtrer par OI", mon USF s'ouvre (il faudrait qu'il me trie le tout de A>Z, les valeurs sont de type "N0234434"
Ensuite le textbox sert à entrer le N° de l'OI, pour simplifier la saisie.
Je vous présente le code actuel
Private Sub CommandButton1_Click()
'code du filtre à mettre en place
Dim lbVal As String
Dim arrCriteres()
If ListBox1.ListIndex = -1 Then Exit Sub
'Not sure that I need the next line. Listbox is a SingleSelect.
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
lbVal = ListBox1.List(i)
ReDim Preserve arrCriteres(i)
arrCriteres(i) = lbVal
End If
Next i
Range("$C$3:$C$65536").AutoFilter Field:=1, _
Criteria1:=arrCriteres, _
Operator:=xlFilterValues
End Sub
Private Sub CommandButton3_Click()
On Error Resume Next
ActiveSheet.ShowAllData
'Selection.AutoFilter
End Sub
Private Sub CommandButton2_Click()
'ActiveSheet.ShowAllData
Unload INSP_FiltreOI
End Sub
Comme vous pouvez le voir le code pour le textbox n'y apparait pas,
Si vous auriez un petit coup de pouce
Merci à vous
Chris