Discussion :

[DVano]

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 :

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

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 :

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

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 ^^

[RLX]

Salut DVano,

Dans

Code :

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

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à.

[RLX]

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

[DVano]

J'ai fais plusieurs essais dont :

Code :

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

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"

[RLX]

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

Code :

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

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

[DVano]

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...

[SilkyRoad]

bonjour

tu peux essayer

Code :

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

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

bon apres midi
michel