Recherche avancée et critères

[Pepitoww]

Bonjour à tous,
je réalise actuellement une "BDD" avec Excel et j'ai quelques soucis pour ma recherche avancée à effectuer.

Enfaite ma question est toute simple, comment rechercher un mot et tous ce qui suit celui-ci dans une chaine ?
Ex: je recherche "direct" et je veux obtenir donc les chaines par exemple "directeur","directeur de machin" mais pas "machin directeur"

J'ai pourtant entendu dire qu'il suffisait de mettre une * après le mot à rechercher mais celà ne fonctionne pas...

Ex de mon code:
Dim Fonc As String
Fonc = "DIRECT*"
Critere = "(BDD!B2 = """ & Fonc & """) "
Sheets("BDD_Recherche").Range("A2").Value = Critere

Sheets("BDD_Recherche").Activate
Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:T4"), Unique:=False

[...]

Cordialement

 

[CelluleVide]

Re : Recherche avancée et critères

Bonjour Pepitoww,

Je crois qu'en remplacant "*" par "?" tu devrais obtenir ce que tu veux.

(Fonc = "DIRECT?")

A+

 

[tototiti2008]

Re : Recherche avancée et critères

Bonjour à tous

sur le principe, DIRECT* est un critère correct, mais je ne comprends pas bien ce que tu écris en A2 pour faire ton filtre élaboré

 

[Pepitoww]

Re : Recherche avancée et critères

@ CelluleVide : De mémoire il me semble que le "?" ne remplace qu'un seul caractère contrairement à "*" qui lui remplace une chaine, mais il me semble avoir déjà essayer celà ne fonctionnait pas non plus.

@ tototiti2008 : Dans l'ex de mon code j'ai oublier de marquer Dim Critere As String, donc critère est une variable qui va contenir tous mes critères, içi j'ai raccourci mon code mais à la base j'ai tout une série de critère que je multiplie entre eux pour réaliser une recherche précise.
Et donc je place le resultat dans la cellule A2 pour ensuite l'utiliser dans mon filtre élaboré.

 

[tototiti2008]

Re : Recherche avancée et critères

Re,

et la colonne sur laquelle tu veux filtrer, qui contient tes directeurs, elle s'appelle comment (Titre de la colonne) ?

 

[Pepitoww]

Re : Recherche avancée et critères

Le titre de ma colonne s'apelle Fonction, dans la feuille "BDD" elle se trouve en G1 (lors de mon filtre je copie tous les résultats sur une autre feuille et donc le titre ne change pas mais se situe en G4)

 

[tototiti2008]

Re : Recherche avancée et critères

Re,

et si tu remplace

Dim Fonc As String
Fonc = "DIRECT*"
Critere = "(BDD!B2 = """ & Fonc & """) "
Sheets("BDD_Recherche").Range("A2").Value = Critere

par

Dim Fonc As String
Fonc = "DIRECT*"
Sheets("BDD_Recherche").Range("A1").Value = "Fonction"
Sheets("BDD_Recherche").Range("A2").Value = Fonc

ça donne quoi ?

 

[Pepitoww]

Re : Recherche avancée et critères

Hum en adaptant sa passe impeccable merci tototiti2008.
Ex:

[....]
If Cb_Fonc.ListIndex <> -1 Then
     Sheets("BDD_Recherche").Range("B1").Value = "Fonction"
     Sheets("BDD_Recherche").Range("B2").Value = ""
     Select Case Cb_Fonc.ListIndex
        Case 0
            Fonc = "PRESIDENT DIRECTEUR GENERAL"
            Critere = Critere & "find(""" & Fonc & """,bdd!G2) * "
        Case 1
            Fonc = "DIRECT*"
            Sheets("BDD_Recherche").Range("B2").Value = Fonc
        Case 2
            Fonc = "ANIMAT"
            Critere = Critere & "find(""" & Fonc & """,bdd!G2) * "
        Case 3
            Fonc = "CHARGE*"
            Sheets("BDD_Recherche").Range("B2").Value = Fonc
        Case 4
            Fonc = "DELEGUE*"
            Sheets("BDD_Recherche").Range("B2").Value = Fonc
        Case 5 To 8
            Fonc = UCase(Cb_Fonc.Text)
            Critere = Critere & "find(""" & Fonc & """,bdd!G2) * "
        Case 9 To 14
            Fonc = UCase(sansAccents(Cb_Fonc.Text))
            Critere = Critere & "find(""" & Fonc & """,bdd!G2) * "
        Case Else
            MsgBox ("Un problème est survenu")
      End Select
    End If

    Critere = "=" & Critere & "1"
    Sheets("BDD_Recherche").Range("A2").Value = Critere
    
    Sheets("BDD_Recherche").Activate
    Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("A4:T4"),               Unique:=False
[...]

Edit: J'ai une autre question, actuellement quand je cherche "président" le résultat me retourne également "président directeur général", normal vu que le mot "président" est dans cette chaine.
D'ou ma question peut-on limiter cette recherche en disant "président" sauf "directeur général" ?