Fonction de recherche multicritère

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #2

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

 

Vote positif 0 Vote négatif

G

Gontan162

XLDnaute Nouveau

• 2 Mai 2012

• #3

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #4

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

 

Vote positif 0 Vote négatif

G

Gontan162

XLDnaute Nouveau

• 2 Mai 2012

• #5

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 :

Code:

    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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #6

Re : Fonction de recherche multicritère

Re,

essaye d'enlever les guillemets autour de mot1 dans

What:="mot1"

Cliquez pour agrandir...

essaye

What:=mot1

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

G

Gontan162

XLDnaute Nouveau

• 2 Mai 2012

• #7

Re : Fonction de recherche multicritère

ça marche nickel merci.
Autre question :
Dans:

Code:

    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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #8

Re : Fonction de recherche multicritère

Re,

Je sais que je suis chiant mais je vous trouve gentils

Cliquez pour agrandir...

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

essaye

Code:

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

 

Vote positif 0 Vote négatif

G

Gontan162

XLDnaute Nouveau

• 2 Mai 2012

• #9

Re : Fonction de recherche multicritère

tototiti2008 à dit:

Re,



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

essaye

Code:

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

Cliquez pour agrandir...

Le compilateur attend une fin d'instruction pour :

Code:

 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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #10

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

Cliquez pour agrandir...

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

 

Dernière édition: 2 Mai 2012

Vote positif 0 Vote négatif

G

Gontan162

XLDnaute Nouveau

• 2 Mai 2012

• #11

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

 

Dernière édition: 3 Mai 2012

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #12

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

 

Vote positif 0 Vote négatif

G

Gontan162

XLDnaute Nouveau

• 2 Mai 2012

• #13

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mai 2012

• #14

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...

 

Vote positif 0 Vote négatif