Bonjour,

Je souhaite déclencher un filtre grâce à une Userform. Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    Dim num As String
    Set num = CStr(FilterForm.TB_Num)
 
    ActiveSheet.ListObjects("Liste_Factures").Range.AutoFilter Field:=1, Criterial:=FilterForm.num
 
End Sub
Où "FilterForm" est le nom de mon Userform, TB_Num le nom de la TextBox où je saisis le numéro de contrat à rechercher, et CommandButton1 le bouton de validation qui doit déclencher le filtre.

Et là j'obtiens l'erreur : Erreur de compilation : Objet requis.

Qu'est-ce qui cloche dans mon code ?
Merci de votre aide, parce que j'ai cherché longtemps sans trouver.