Fonction de recherche multicritère

[Gontan162]

Bonjour a tous,
Je débute en VBA ( j'en suis a apprendre a faire des macros sans l'enregistrement automatique) et un projet me fut donnée par mon chef.
Je doit faire une recherche de plusieurs critères dans un fichier du type:

Famille Mot clé Référence Description
Alim bla 123 tralala
AOP blabla 456 tsouintsouin
Memoire blablabla 789 pouet pouet

La fonction que je fais doit rechercher deux critères du type : critère 1 = bla critère 2 = 456
Il doit rechercher chaque critère dans chaque case de mon tableau et si le critère est trouvé il doit m'afficher la ligne entière dans une nouvelle feuille nommé résultat. Je précise qu'il faut que ce soit critère 1 OU critère 2, ou critère 1 ET critère 2. Du genre:
Feuille de résultat =

Famille Mot clé Référence Description
Alim bla 123 tralala
AOP blabla 456 tsouintsouin

D'avance Merci.
Gontran162

 

[tototiti2008]

Re : Fonction de recherche multicritère

Bonjour Gontran,

Bienvenue sur XLD,

Je pense que ça t'aurais pris autant de temps de taper tes valeurs tsointsoin et pouetpouet dans un fichier excel, ce qui nous aurait permis de partir sur un fichier
Je pense que le filtre élaboré peut répondre à ta question, essaye de comprendre comment il fonctionne sur le principe avant d'essayer de le programmer en VBA (l'enregistreur aide bien pour ça)

Ce lien n'existe plus

 

[Gontan162]

Re : Fonction de recherche multicritère

J'ai pensé au filtre mais un problème se pose, il faut que je sorte le résultat dans une nouvelle feuille.
Et puis mon chef insiste pour que je fasse du VBA.
Encore merci de m'aider
Gontran162

 

[tototiti2008]

Re : Fonction de recherche multicritère

Re,

Tu peux faire du VBA qui applique un filtre élaboré (le résultat peut être sur une autre feuille)
Maintenant, si tu veux réinventer la roue, tu peux aussi boucler sur les cellules et tester leur valeur
Dans tous les cas, un bout de fichier exemple (avec une exemple du résultat attendu) nous aiderait à t'aider

 

[Gontan162]

Re : Fonction de recherche multicritère

Je vais posé une autre question alors !
Comment utilisé le contenu d'une variable ?
Mes lignes de codes sont :

    mot1 = critere1.Text

    Cells.Find(What:="mot1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate

Je veux utiliser le contenu de mot1 et non écrire mot1 das la recherche.
D'avance merci
Gontran162

 

[tototiti2008]

Re : Fonction de recherche multicritère

Re,

essaye d'enlever les guillemets autour de mot1 dans

What:="mot1"

essaye

What:=mot1

 

[Gontan162]

Re : Fonction de recherche multicritère

ça marche nickel merci.
Autre question :
Dans:

    Cells.Find(What:=mot1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate

Comment je peux récupérer la case activé , et ensuite récupéré la ligne de la case activé, pour la copier ?
Je sais que je suis chiant mais je vous trouve gentils ^^
D'avance merci.
Gontran162

 

[tototiti2008]

Re : Fonction de recherche multicritère

Re,

Je sais que je suis chiant mais je vous trouve gentils

Surement une relation de cause à effet directe... 🙄

essaye

Set C=Cells.Find(What:=mot1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If not C is nothing then 
Msgbox C.Address & " " C.row
C.Entirerow.Copy
end if

 

[Gontan162]

Re : Fonction de recherche multicritère

Re,



Surement une relation de cause à effet directe... 🙄

essaye

Set C=Cells.Find(What:=mot1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If not C is nothing then 
Msgbox C.Address & " " C.row
C.Entirerow.Copy
end if

Le compilateur attend une fin d'instruction pour :

 Msgbox C.Address & " " C.row

Déjà que je comprend ce que tu a fais alors lui donné une fin d'instruction ...

Encore merci pour ton aide !
Gontran162

 

[tototiti2008]

Re : Fonction de recherche multicritère

Re,

Eh oui, sans même un bout de fichier exemple, ça arrive... ça ne fait que la 3ème fois que je te suggère de nous en fournir un

Edit : Oui, j'avais fait une erreur

Msgbox C.Address & " " & C.row

Mais ça ne t'empêche pas de fournir un fichier

 

[Gontan162]

Re : Fonction de recherche multicritère

Voila mon fichier a peu de chose prés.
Nouveau jeu, il faut que je mette plusieurs résultat et non un seul résultat comme j'ai en ce moment.
Des idées, une commande que je ne connais pas encore ?
Encore merci.
Gontran162

 

[tototiti2008]

Re : Fonction de recherche multicritère

Re,

Mon idée, je te l'ai donnée au message #2 mais tu n'en veux pas

 

[Gontan162]

Re : Fonction de recherche multicritère

M'en veut pas mais je suis bien lancé la , me faut juste la commande pour écrire plusieurs résultats.

 

[tototiti2008]

Re : Fonction de recherche multicritère

Re,

OK, mais comment gères-tu les ET entre 2 critères ?
Si tu as un OU sur 2 critères, il se peut que la même ligne réponde aux 2 critères, comment gères-tu les doublons ?
Juste des remarques en passant, comme ça...