[VBA-excel] Filtre automatique et TextBox

Bonjour,

Voici mon dernier problème...

Dans un tableau, je souhaite filtrer des infos à partir du contenu d'un(e) TextBox.

Voici mon code :

Code:

---

1 2 3

Rows("14:14").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Value

---

Et ca donne rien...

Je pense que "Criteria1:=TextBox1.Value" n'est pas interprété par le programme...

Pouvez vous m'éclaircir ?

RESOLU : il faut saisir le contenu exact de la cellule à filtrer

________________________

NOUVEAU/VRAI PROBLEME :

Comment filtrer toutes les cellules comportants un mot ou un numéro ?

Exemple :

Trouver toutes les aptitudes de "Gérard" ou trouver toutes les ressources qui savent "peindre" ou encore toutes les resources qui ont 25 ans...

Mes cellules sont constituées de la manière suivante :

Gérard /25 ans /peintre

SOLUTION :

Code:

---

1 2 3

Rows("14:14").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:="=*" & TextBox1 & "*"

---

La "position" du filtre (rows, range) n'a pas d'importance


Merci ^^

Salut DVano,

Dans

Code:

---

Rows("14:14").Select

---

Tu ne sélectionne qu'une ligne et le filtre automatique fonctionne sur tout ton tableau je suppose, il faut que tu sélectionne donc tout ton tableau déjà.

Petite rectification tu n'as pas besoin de le sélectionner suffit juste de lui fournir le range de ton tableau.

J'ai fais plusieurs essais dont :

Code:

---

1 2 3

Worksheets("planningparaffaire").Rows("14;1000").AutoFilter _ field:=1, _ Criteria1:=TextBox1.Value

---

Rien n'y fait :(

EDIT :

pour ce code le bogue est :
"erreur d'execution '9':
l'indice n'appartient pas a la selection"

Peut etre l'erreur vient du ; de rows essaye ça

Code:

---

1 2 3

Worksheets("planningparaffaire").Rows("14:1000").AutoFilter _ field:=1, _ Criteria1:=TextBox1.Value

---

J'ai compris mon problème mais ca ne le résoud pas.

En fait, je fais un tri à partir d'un mot or la cellule en comporte plusieurs... Si je tape le contenu exact d'une cellule ca fonctionne...

Voici donc le nouveau problème :

Comment filtrer toutes les cellules comportants un mot ou un numéro ?

Exemple :

Trouver toutes les aptitudes de "Gérard" ou trouver toutes les ressources qui savent "peindre" ou encore toutes les resources qui ont 25 ans...

Mes cellules sont constituées de la manière suivante :

Gérard /25 ans /peintre

Je vais éditer mon premier post...

bonjour

tu peux essayer

Code:

---

1 2 3

Feuil2.Range("A1").AutoFilter Field:=2, _ Criteria1:="=*" & TextBox1 & "*"

---

bon apres midi
michel

Impecable, un grand merci pour votre aide...