Discussion :

[manhes]

Bonjour,

J'aimerais créer une commande rapide pour faire une recherche sur un mot quelconque à taper et qui deviendrait le critère de recherche dans tout le tableau :

On tape par exemple TOTO et il faut afficher toutes les lignes pour lesquelles n'importe laquelle des colonnes contient le mot TOTO.

J'ai réussi avec la commande ci-dessous sauf que cela ne marche QUE pour les cellules de la colonne 5 qui sont égales à la cellule Q1, moi je veux ET contient Q1 ET dans toutes les colonnes.

Code :

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

1
2
3
4
Selection.AutoFilter
    Range("A2").Select
    Selection.AutoFilter Field:=5, Criteria1:=Range("Q1"), Operator:=xlAnd
    Range("C100").Select

Merci de votre aide.
Leeloo Manhes

[SilkyRoad]

Bonsoir

tu peux tester cette macro qui masque les lignes si une des cellules contient la même donnée que la cellule Q1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MasqueLignesConditionnel()
    Dim Cible As String
    Dim i As Integer
 
    Cible = Range("Q1")
 
    For i = Range("A65536").End(xlUp).Row To 2 Step -1
        On Error Resume Next
        If Application.WorksheetFunction.Match(Cible, Rows(i), 0) = 0 Then _
            Rows(i).Hidden = True
        On Error GoTo 0
    Next i
 
End Sub

Et pour réafficher toutes les lignes:

Code :

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

1
2
3
Sub ReafficheToutesLesLignes()
    Rows.Hidden = False
End Sub

michel

[manhes]

Merci Michel mais ce n'est pas tout à fait cela que je souhaitais.
Ta macro recherche seulement les cellules = à Q1 alors que moi je veux faire la recherche sur les cellules qui CONTIENNENT Q1.
De plus, cela est très long.

Leeloo Manhès

[SilkyRoad]

bonsoir

pour faire une recherche sur les cellules qui "contiennent", remplace

Code :

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

    Cible = Range("Q1")

par

Code :

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

    Cible = "*" & Range("Q1") & "*"

effectivement c'est long ... ;o)


michel

[manhes]

En fait, j'ai trouvé un autre moyen mais grâce à ton information sur "contient" cela fonctionne très bien:

Code :

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

1
2
3
4
5
6
Sub Recherche()
'
    Selection.AutoFilter
    Range("C1").Select
    Selection.AutoFilter Field:=3, Criteria1:="*" & Range("Q1") & "*", Operator:=xlAnd
End Sub

Merci pour tout
Leeloo Manhès