Discussion :

[Charles1104]

Bonsoir à tous,

J'ai un petit problème que je n'arrive pas à résoudre:

J'ai créé une userform avec une entrée par l'utilisateur et deux boutons : "ok" et "cancel".

Je veux que quand je clique sur ok, une colonne de la table que j'ai créé soit filtré selon l'entrée que j'ai mise. Plus précisément je veux qu'elle fasse un filtre "contient le texte mis dans l'entrée".

Filtresur la colonne : = "*"& Entrée_utilisateur&"*"

VOilà les codes VBA que j'ai essayé sans succès:

Code :

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

1
2
3
4
5
6
Private Sub Userform1_Click()
Worksheets("Clients").Select
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
   "=*&Entrée_Utilisateur&* "
UserForm1.Hide
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Userform1_Click()
Worksheets("Clientes").Select
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
  "= ""*""&Entrée_utilisateur& ""*"" "
UserForm1.Hide
End Sub

Merci pour votre aide,

Charles

[Philippe Tulliez]

Bonjour,
Je n'ai pas regardé le reste de ta procédure mais déjà il est impossible que tu puisses avoir un résultat en cliquant sur le bouton OK.
En effet, tu utilises la procédure événementielle Private Sub Userform1_Click() alors que tu dois utiliser celle du bouton OK.
Fais un double clic sur ton bouton OK et la procédure va s'ouvrir.
Comme l'exemple ci-dessous

Code :

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

1
2
3
Private Sub CommandButton1_Click()

End Sub

Le nom qui est en rouge dépend du nom que tu auras donné au bouton OK. (propriété Name du bouton.
Ensuite, tu fais un Couper/Coller de ton code
Pour obtenir ceci

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
 Worksheets("Clients").Select
   ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
   "=*&Entrée_Utilisateur&* "
 UserForm1.Hide
End Sub

Attention, que je n'ai pas vérifié si ton code est bon, ma remarque ne concerne que le type de procédure événementielle utilisée.

[Charles1104]

Merci pour votre aide !

j'avais aussi une erreur dans le critère que j'ai résolu:

Code :

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

Criteria1:= "=*" & Num_Cliente & "*"

Bon week-end,

Charles