Filtrer via textbox

bonjour,

je voudrais filtrer les colonnes d'un tableau selon le texte afficher dans une textbox et .... je sait pas du tout comment m'y prendre...

si quelqu'un veux bien m'apporter une solution ce serait top.

ma version d'excel : 2007

je vous joint mon tableau pour mieux comprendre.

je précise qu'il est considérablement réduit car il contient à l'origine plus de 2000 lignes et pas mal de colonne supplémentaires; et il est appelé à encore se développer.

merci d'avance....

Bonjour toutes et tous

@Slygan

pour la textbox outil rech.

Private Sub TextBox_typeoutil_Change()
' recherche dans la colonne outil
 Dim rng As Range
 Set rng = ActiveSheet.Range("E12").CurrentRegion
  If TextBox_typeoutil <> "" Then
  rng.AutoFilter Field:=5, Criteria1:="*" & TextBox_typeoutil & "*", Operator:=xlAnd
 End If
End Sub

pour vider ta textbox et tout les filtres de ta feuille1

Private Sub TextBox_typeoutil_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' double clic gauche supprime contenu
' on défiltre
' en cas d erreur
On Error Resume Next
Sheets("Feuil1").ShowAllData
On Error GoTo 0
TextBox_typeoutil.Value = ""
End Sub

crdlt,

André

merci Andre13 c'est parfait !!!!

mais... comme tu as vu j'ai un bouton nommer : afficher tout

et du coup est il possible d'effacer le contenu des textbox au moment ou l'on clic dessus ?

il y aura surement 6 ou 7 textbox sur mon fichier définitif.

merci à toi.

Re,

merci du retour

je l'avais vu après le bouton afficher tout -;)

@tester sur la textboxtypeoutil au clic de la souris dans la textbox effacera le contenu de la textbox

Private Sub TextBox_typeoutil_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox_typeoutil.Value = ""
End Sub

crdlt,

André

je vais tester ton dernier message.

en revanche j'ai transposé ton code initial dans la colonne diamètre et ça ne fonctionne pas....faut il modifier le code pour les nombres ?

re,

la colonne F est en format Nombre et de plus il y du texte/des caractères style barre oblique (/) dans cette colonne, donc, cela ne fonctionnera pas correctement voir pas du tout, il doit y avoir une façon plus simple

crdlt,

André

@andre13

il n'y a pas de possibilités pour que ça fonctionne en format nombre ??

sans designer le type de variable par exemple...? après les signes ( / ) je n'ai pas le choix il faut que ça soit présent.

je peux modifier deux trois choses dans mon tableau si c'est nécessaire...

Re,

on peut toujours utiliser comme cela sans textbox

oui oui je sait bien @Andre13 mais c'est justement pour supprimer ces manipulations supplémentaires que je souhaite passé par la textbox.

Personne pour m'aider pour la recherche des nombres ?

je me permet de relancer mon sujet....

la solution de @andre13 fonctionne très bien pour les formats textes mais pas du tout avec les nombres.

quelqu'un aurait une idée ou une solution svp ?

merci

Bonjour toutes et tous

avec un petit bidouillage, attention de ,ne pas supprimer la cellule F10 de la feuille c'est grâce à cette cellule +la textbox TxtDIAM pour la macro TxtDIAM (chang)( diamètre)

 Private Sub TxtDIAM_Change()
                                             '             ici
 ' recherche dans la colonne diametre
 Dim rng As Object
 Dim str
 Set rng = ActiveSheet.Range("f10").CurrentRegion
   Range("f10").Value = TxtDIAM.Text
   str = Sheets("feuil1").Range("f10").Text
   rng.AutoFilter Field:=6, Criteria1:=str

End Sub

+ double clic gauche pour effacer la textbox TxtDIAM de la feuille 1, après il suffit de cliquer sur le bouton pour afficher le filtre

Note 1: la cellule F10 doit rester en format Standard et non en Nombre

Note 2: on peut aussi utiliser le filtre de recherche aussi vidéo Andre13 (filtre recherche)

oups: j'ai effacé sans faire exprès le symbole diamètre

ci-joint,

crdlt,

André