Chercher dans Feuille entière et filtrer (VBA)

Bonjour à tous,

je souhaiterais écrire une macro qui chercherai dans toute la feuille (et pas uniquement dans une seule colonne) les valeurs égales à la cellule A1 et qui ensuite filtre les resultats de maniere à ce que seule les lignes contenant la valeur restent.

un genre de moteur de recherche filtrant dans toute la feuille en gors

j'y suis parvenu avec le code ci dessous mais cela ne cherche que dans la colonne A ...

Sub Inversev()

ActiveSheet.Range("$A$4:$AA$65536").AutoFilter Field:=1, Criteria1:="A1"

End Sub

si quelqu'un a une idée ...

Merci d'avance

Nico

Bonjour,

ce n'est pas possible,

a= oui

par exemple si

B2 = oui et C2 = non

B3 = non et C3 = oui

si vous appliquez un filtre sur la colonne C la ligne 2 sera masquée

si vous ajoutez un filtre sur la colonne B la ligne 3 sera masquée

au final les lignes 2 et 3 seront masquées

Bonsoir,

Une proposition :

Sub PseudoFiltre()
    Dim i&, j%, k%, vf
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        vf = .Cells(1, 1)
        k = .Columns.Count
        For i = 1 To .Rows.Count
            For j = 1 To k
                If .Cells(i, j) = vf Then Exit For
            Next j
            If j > k Then .Rows(i).Hidden = True
        Next i
    End With
End Sub

à essayer...

Cordialement.

sabV,

Merci pour ta reponse oui effectivement vu comme ca c'est imposible avec mon petit bou de code ...

MFerrand,

merci !

Apparemment ca fait le boulot ! (je comprend pas encore tout le détail mais je vais me pencher dessus).

Je vais tenter de l'adapter à mes besoins

Bravo en tout cas !

Merci à vous 2

Nico

Par contre petite question :

Est-il possible de faire en sorte que la correspondance avec la valeur cherchée soit partielle et pas totale ?

Par exemple si je cherche "toto" comme valeur je veux que cela prenne "to" ou "tot" ...

Et est-il possible de rendre la recherche non sensible à la casse ?

avec Option Compare Text peut etre ?

Merci bcp

Est-il possible de faire en sorte que la correspondance avec la valeur cherchée soit partielle et pas totale ?

Par exemple si je cherche "toto" comme valeur je veux que cela prenne "to" ou "tot" ...

oui si en cellule A1 il y a "to" ou "tot" et que le mot à chercher est "toto"

en reprenant le code de MFerrand que je remercie au passage,

Sub PseudoFiltre()
Dim i&, j%, k%, vf
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    vf = .Cells(1, 1)
    For i = 2 To .Rows.Count
       n = Application.CountIfs(.Rows(i), "*" & vf & "*")
       If Not n > 0 Then .Rows(i).Hidden = True
    Next i
End With
End Sub

C'est jute ce qu'il me fallait !!

1000 merci à tous les 2

Nico