Filtre Personnalisee en fonction d'un mot dans une cellule

[angenoir]

Bonjour a tous

Desoler pour le titre un peu long

Je vous explique mon probleme :

J'aimerais creer un bouton qui puisse filtrer automatiquement une colonne a partir d'un mot saisi dans une cellule defini...

Jusque la tout va bien, j'ai reussi, mais j'aimerais que le filtre soit effectif avec "contient" et non "egal", car par exemple si dans une cellule de la colonne il y a marquer Barcelone et Madrid et que dans la cellule il y a ecris Barcelone, le filtre s'arretera a Barcelone, or j'aimerais qu'il affiche aussi les celulles qui contiennent Barcelone et Madrid dans la meme celulle !!

Je vous joins mon fichier pour que vous compreniez

Merci d'avance.

 

[Larson]

Re : Filtre Personnalisee en fonction d'un mot dans une cellule

Bonjour,

voir la soluce proposée dans le fichier joint si cela convient

 

[angenoir]

Re : Filtre Personnalisee en fonction d'un mot dans une cellule

Effectivement, en 5mn tu as mis fin a 2h de recherche, je ne pensais pas pouvoir inclure des IF et des Then, il me reste encore beaucoup a apprendre c'est bien !!

Merci Larson

 

[Staple1600]

Re : Filtre Personnalisee en fonction d'un mot dans une cellule

Bonjour



A essayer

Sub filtrage()
Dim crit As String
crit = "*" & Range("E1").Text & "*"
If Not ActiveSheet.AutoFilterMode Then ActiveSheet.Range("A1:B1").AutoFilter
ActiveSheet.Range("A1:B1").AutoFilter 2, "=" & crit, xlAnd
End Sub