Filtrer dans un tableau toutes les lignes contenant un mot

[labraise123]

Filtrer dans un tableau toutes les lignes contenant un mot (repondu)

bonjour,
je vous explique mon probleme en esperant avoir une solution de votre part.

donc j'ai un tableau avec plusieurs colonnes :
Colonne A = nom
Colonne B = visite 1
Colonne C = visite 2
colonne D = visite 3
colonne E = visite 4
colonne F = visite 5
colonne G = visite 6

les colonnes de B à G (correspondant aux visite) contiennent un mois (ex: janvier,fervrier..)
Donc j'aimerais si possible avec une macro pouvoir filtrer toutes les lignes contenant un mois en particulier (ex : Janvier) peu importe la colonne ou il apparait ( de Bà G).
et si possible utiliser une cellule precise comme mois recherché àl'interieur de laquelle je saisirais le mois a filtrer.

je vous remercie d'avance pour vos solutions ou idées.
si vous avez des questions ou si cela ne vous semble pas clair n'hesitez pas à me poser des questions.

 

[Pierrot93]

Re : Filtrer dans un tableau toutes les lignes contenant un mot

Bonjour Labraise

le filtre automatique ne suffirait pas ?

Barre de menu => données => filtre automatique

@+

 

[Pierrot93]

Re : Filtrer dans un tableau toutes les lignes contenant un mot

Re bonjour

j'ai peut être répondu un peu vite, essaye la macro ci dessous elle doit répondre un peu plus à ton problème, commence la recherche sur la ligne 2, suppose que ligne 1 est renseignée par les titres :

Sub test()
Dim marecherche As String, i As Integer, c As Range
marecherche = InputBox("Quel mot ?")
If marecherche = "" Then Exit Sub
For i = 2 To Range("A65536").End(xlUp).Row
    Set c = Nothing
    Set c = Range("B" & i & ":G" & i).Find(marecherche, , xlValues, xlWhole, , , False)
    If c Is Nothing Then Rows(i).Hidden = True
Next i
End Sub

bon après midi
@+

 

[labraise123]

Re : Filtrer dans un tableau toutes les lignes contenant un mot

Je te remercie beaucoup Pierrot93, c'est exactement ce que je voulais.
tu m'as évité de monter une usine à gaz lol car j'arrivais à filtrer uniquement sur une colonne à la fois.
merci pour l'efficacité de ta solution et son optimisation.
je l'ai juste adapté pour rechercher la valeur dans une cellule.
pour info si cela peut en aider d'autre :

Sub test()
Dim marecherche As String, i As Integer, c As Range
marecherche = Range("E9")
If marecherche = "" Then Exit Sub
For i = 13 To Range("A65536").End(xlUp).Row
Set c = Nothing
Set c = Range("D" & i & ":I" & i).Find(marecherche, , xlValues, xlWhole, , , False)
If c Is Nothing Then Rows(i).Hidden = True
Next i
End Sub

 

[Bisson]

Re : Filtrer dans un tableau toutes les lignes contenant un mot

Bonjour,

Avec filtre élaboré:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$I$2" Then
    If Target <> "TOUT" Then
      Range("A2:E1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("G1:G2")
    Else
      On Error Resume Next
      ActiveSheet.ShowAllData
    End If
  End If
End Sub

Bisson