Tri dans une table VBA

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:

---

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:

---

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

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:

---

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:

---

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.

Merci pour votre aide !

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

Code:

---

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

---

Bon week-end,

Charles