Discussion :

[Markos22]

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.

[BENNASR]

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

[Markos22]

Bonjour BENNASR,

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



Je continue de chercher...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criterial:=FilterForm.num

Je remplace par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criterial:=num

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Markos22]

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

A+