Recherche valeur inputbox dans tableau et filtre

Bonjour,

J'ai un tableau excel ou je veux filtrer les colonnes en fonction du mot recherché.

J'ai commencé par écrire ce code mais ceci ne fonctionne que pour une seule colonne.

J'aimerai aussi ajouter un bouton "Reset" dans mon inputbox qui désactivera les filtres.

Merci

Private Sub Bouton2_Cliquer()
Range("START").select
Var =InputBox ("Saisir le mot à rechercher")
If ActiveSheet.autofilterMode then 
Else
Selection.autofilter
end if 

Selection.autofilter Field:=4, Criterial:=("*" & (Var & "*"))
End sub

bonjour

cliquer dans ta table de données, faire Menu Données, Filtrer

utiliser les petites flèches en ligne 1

pas besoin de VBA.

bon travail

Merci pour votre réponse.

Le problème c'est que j'aimerai pouvoir rechercher des valeurs soit à partir d'un ctrl F soit à partir d'une inputbox et le filtre c'est juste pour trier.

Exemple: j'ai un tableau de 4000 lignes et je ne veux voir que les lignes où le mot "Solution" apparaissent.

Merci

Bonjour le fil, bonjour le forum,

Pas sûr d'avoir tout compris... Non testé :

Private Sub Bouton2_Cliquer()
Dim Var As Variant
Dim I As Integer

Var = Application.InputBox("Saisir le mot à rechercher", "RECHERCHER", Type:=2)
If Var = False Then ActiveSheet.FilterMode = False: Exit Sub
If Not ActiveSheet.AutoFilterMode Then Selection.AutoFilter
For I = 4 To 8 'ici faire la boucle sur les colonnes que tu désires
    Range("START").AutoFilter Field:=I, Criterial:="*" & Var & "*"
Next I
End Sub

frt045 a écrit :

Merci pour votre réponse.

Le problème c'est que j'aimerai pouvoir rechercher des valeurs soit à partir d'un ctrl F soit à partir d'une inputbox et le filtre c'est juste pour trier.

Exemple: j'ai un tableau de 4000 lignes et je ne veux voir que les lignes où le mot "Solution" apparaissent.

Merci

heu... le filtre automatique c'est aussi pour filtrer

il possède une zone de type inputbox, mais bien plus efficace car tu prévisualises à chaque nouvelle lettre ajoutée.

note : 4000 ou 40 000 lignes, quelle importance ?

Merci à tous pour vos réponses.

J'ai dû changé le code car les filtres ne sont pas adaptés à mon problème.

Je veux utiliser le hide ligne quand il trouve pas la valeur de la textbox.

j'ai commencé à faire ce code qui cache bien les lignes mais pas les bonnes lignes

Merci encore,

Private Sub TextBox1Select()
Dim Col As Integer
Dim Lig As Integer

    For Col = 3 To 5

        For Lig = 25 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 25

            If ActiveSheet.Cells(Lig, Col).Value <> ("*" & (TextBox1 & "*")) Then

                Rows(Lig).EntireRow.Hidden = True
                Else: Rows(Lig).EntireRow.Hidden = False

            End If

        Next Lig
    Next Col
End Sub

Re,

Peut-être comme ça (non testé) :

Private Sub TextBox1Select()
Dim O As Worksheet
Dim Col As Integer
Dim Lig As Integer
Dim TEST As Boolean

Set O = ActiveSheet
For Lig = 25 To O.Cells(Rows.Count, 1).End(xlUp).Row - 25
    For Col = 3 To 5
        If InStr(1, O.Cells(Lig, Col).Value, TextBox1.Value, vbTextCompare) = 0 Then TEST = True
    Next Col
    O.Rows(Lig).EntireRow.Hidden = TEST
    TEST = False
Next Lig
End Sub