Discussion :

[GADENSEB]

Bonjour le forum

Je cherche à faire un filtre d'une zone via un textbox

mais cela ne fonctionne pas tt à fait .....
qqn aurait une idée

Code :

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

1
2
3
4
5
6
7
8
Private Sub Tx_Recherche_Change()
 
    If Tx_Recherche <> "" Then
    ActiveSheet.Range("$b$3:$d$1000").AutoFilter Field:=2, Criteria1:= _
        "=*" & Tx_Recherche & "*", Operator:=xlAnd
  End If
 
End Sub ?

---

Fichiers joints dans les discussions

---

[Philippe Tulliez]

Bonjour,
Très intrigué par le fait que tu signales que ton code ne fonctionne pas, j'ai voulu tester sur une de mes liste de données et je n'ai pas de problème
Pour le test, j'ai utilisé une variable objet nommée rng et pour définir la liste des données j'utilise la propriété CurrentRegion (ma liste commence en cellule A1 et les étiquettes de colonnes en première ligne)

Code :

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

1
2
3
4
5
6
7
Private Sub Tx_Recherche_Change()
 Dim rng As Range
 Set rng = ActiveSheet.Range("A1").CurrentRegion
  If Tx_Recherche <> "" Then
  rng.AutoFilter Field:=2, Criteria1:="=*" & Tx_Recherche & "*", Operator:=xlAnd
 End If
End Sub

Cependant dans ta remarque,

mais cela ne fonctionne pas tt à fait .....
qqn aurait une idée

tu n'es pas très précis.
Qu'est-ce qui ne fonctionne pas tout à fait ?

[clementmarcotte]

Bonjour Philippe,

Bonjour,

Cependant dans ta remarque,

tu n'es pas très précis.
Qu'est-ce qui ne fonctionne pas tout à fait ?

Hélas, ce n'est pas la première fois.

De plus, il n'avait sûrement pas pensé que son fichier-joint pourrait prendre le chemin des oubliettes; malgré l'avertissement de Pierre Fauconnier. Il a maintenant le lien direct; si jamais, il ne l'a pas déjà lu.

[GADENSEB]

bonjour à Tous

Désolé de ne pas avoir été assez clair, je vais faire un effort ;-)

Pour ce qu'il est du fichier joint, je n'avais pas vu le message en début de forum...
Mes données du fichier joint ne sont pas sensibles

Bon reprenons
j'ai suvi les conseil de Philippe Tulliez http://www.developpez.net/forums/d15...x/#post8396842
(ma liste commence en cellule A1 et les étiquettes de colonnes en première ligne)

Code :

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

1
2
3
4
5
6
7
Private Sub Tx_Recherche_Change()
 Dim rng As Range
 Set rng = ActiveSheet.Range("A1").CurrentRegion
  If Tx_Recherche <> "" Then
  rng.AutoFilter Field:=2, Criteria1:="=*" & Tx_Recherche & "*", Operator:=xlAnd
 End If
End Sub

mais cela ne fonctionne pas :
Si par exemple je tape "tel" je m'attends à ce que les lignes 2 et 5 uniquement soit visibles ... mais je n'ais q'une ligne vide

autres exemples :
avec "AI" les lignes 1 2 et 3 devraient être visible
avec "Mi" uniquement la ligne 4 devrait être visible



Est-ce plus clair comme cela ? ;-)

[Philippe Tulliez]

Bonjour,
Comme écrit plus haut, je n'ai pas de soucis le filtre s'effectue parfaitement. Si je tape "au", j'ai bien toutes les lignes ayant en colonne 2, une chaîne contenant "AU".
La seule chose qui ne fait pas, c'est libérer le filtre si la chaîne de recherche (TextBox) est vide mais j'ai ajouté une ligne pour cela.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Tx_Recherche_Change()
 Dim rng As Range
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 With rng
  If Tx_Recherche <> "" Then
    .AutoFilter Field:=2, Criteria1:="=*" & Tx_Recherche & "*", Operator:=xlAnd
   Else
   .Worksheet.ShowAllData
  End If
 End With
End Sub

[GADENSEB]

J'ai compris.....
effectivement je me suis mal exprimé

tu me précise que cela tri sur la colonne 2

moi je voulais que cela filtre sur toutes les colonnes.... que la recherche fouille dans toutes les cellules de la base et que les lignes filtrées soient celles qui comportenent la recherche du textbox peu importe la colonne .

sorry de la mauvaise expression