Filtre avancé - "Si une chaîne existe"

Bonjour,

J'ai un fichier dans lequel j'ai un tableau de 3 colonnes, Code, Nom et Localisation. Je peux filtrer selon des critères, mais la recherche ne se fait que via le premier caractère. Hors, la fonction que je recherche est "Si le caractère existe".

Par exemple:

Si j'indique la lettre "x" dans le champs "Nom" et que je click sur "Recherche",

le tableau ne m'indiquera que les lignes "Alex" et "Xavier".

Pourriez-vous m'aider?

Cordialement.

Bonjour

Ajoute *

Steelson a écrit :

Bonjour

Ajoute *

Bonjour,

Il y aurait-il une façon de permettre l'usager de n'entrer que les lettres et d'avoir un résultat similaire?

Merci.

je ne sais pas

on va attendre d'autres experts !

Steelson a écrit :

je ne sais pas

on va attendre d'autres experts !

Parfait.

Merci Steelson!

Bonjour à tous,

Voir si ça convient ...

Sub AdvFilt()
    Range("A10", Range("C" & Rows.Count).End(xlUp)).ClearContents
    Sheet2.[B8] = "*" & Sheet2.[B8] & "*"
    Sheet1.Range("A1", Sheet1.Range("C" & Rows.Count).End(xlUp)).AdvancedFilter 2, Sheet2.[a7:c8], [a10]
End Sub

ric

Bonjour,

Une autre version où les * ne s'affichent pas dans la cellule après la recherche ...

Sub AdvFilt()
    Range("A10", Range("C" & Rows.Count).End(xlUp)).ClearContents
    Sheet2.[B8] = "*" & Sheet2.[B8] & "*"
    Sheet1.Range("A1", Sheet1.Range("C" & Rows.Count).End(xlUp)).AdvancedFilter 2, Sheet2.[a7:c8], [a10]
    Sheet2.[B8] = Replace(Sheet2.[B8], "*", "")
End Sub

ric

ric a écrit :

Bonjour,

Une autre version où les * ne s'affichent pas dans la cellule après la recherche ...

Sub AdvFilt()
    Range("A10", Range("C" & Rows.Count).End(xlUp)).ClearContents
    Sheet2.[B8] = "*" & Sheet2.[B8] & "*"
    Sheet1.Range("A1", Sheet1.Range("C" & Rows.Count).End(xlUp)).AdvancedFilter 2, Sheet2.[a7:c8], [a10]
    Sheet2.[B8] = Replace(Sheet2.[B8], "*", "")
End Sub

ric

Merci bien!

micheltkl a écrit :

Il y aurait-il une façon de permettre l'usager de n'entrer que les lettres et d'avoir un résultat similaire?

en fait je n'y avais pas pensé ... voici, sans changement de ta macro

Bonjour,

Excellent ... lignes 7 et 8 pourraient même être masquées.

ric

Vous êtes super!

Merci!

Oui

ou même déportées plus loin dans la feuille !

Bonne idée

Bonjour à tous,

@Steelson ...

- Cela revient sensiblement à mon code où j'insère des * que j'enlève après.

ric

Absolument !!

Ici j'ai juste évité de toucher au code ... mais in fine nous avons tous convergé vers la même solution avec des habillages légèrement différents !

En cas de date, c'est du reste ce qu'il faut faire, car <04/09/2018 ne fonctionne pas sur un filtre ! mais <43347 oui.