AutoFilter et TextBox : Erreur Objet requis

Bonjour,

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

Code:

---

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.

Bonsoir
je crois que la fonction set lorsqu'il s'agit d'un champs et non pas une seule valeur
essayer de supprimer ce set

Bonjour BENNASR,

Si je supprime "Set" j'obtiens une autre erreur : "Erreur de compilation : Membre de méthode ou de données introuvable"

8O

Je continue de chercher...

(Plus tard) : Ah ! Quelque chose me semble bizarre :

Code:

---

Criterial:=FilterForm.num

---

Je remplace par :

Code:

---

Criterial:=num

---

Mais j'obtiens l'erreur : "Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet"

essaye avec ça :
ajouter .text
et Criteria et non pas Criterial

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Dim num As String num = CStr(FilterForm.TB_Num.Text) ActiveSheet.ListObjects("Liste_Factures").Range.AutoFilter Field:=1, Criteria1:=num End Sub

---

J'avais lu : "Criterial" au lieu de "Criteria1" : c'était ça, l'erreur ! Ca marche ! Merci beaucoup, BENNASR !

A+