recherche multi critères

[Samuel]

Salut à tous,

Merçi pour aide concernant le nombre de colonne. je fais de nouveau appel à vos connaissances.

Sur une feuille (ListeVO) je dispose de la liste complète des véhicules disponibles. dans une 2ème feuille (recheerche) je souhaiterais faire un formulaire de recherche selon un ou plusieurs critères.

J'ai essayé avec la formule si mais elle me met qu'il y a trop d'argument.
Un grand merçi aux personnes qui trouvent la réponse à ma questions.

Bravo à tous.

 

[Patrick MO]

Samuel,

Essaie de classer ta liste suvant 3 critères maxi (limite Exel)
Positionne toi en haut de ta liste
sélectionne la colonne correspondant à ton 1er critère de recherche
fait une recherche
Si la recherche est réussie, positionne toi sur la cellule retrouvée
déplace ta cellule active vers le bas jusqu'à ce que tes autres critères soit retrouvé.

Exemple:
Soit une recherche selon le contenu des 1ère, 4ème et 5ème colonne

Worsheets("Sheet1").activate
cells.sort key1:=cells(1,1), order1:=xlascending, key2:=cells(1,4), order2:=xlascending, key3:=cells(1,5), order3:=xlascending, header:=xlyes
set V_Range = range(cells(1,1), cells(1,1);end(xldown))
set v_Found = v_Range.Find(Critère_Un)
If not V_Found is Nothing then

 

[Patrick MO]

Désolé, j'ai poussé sur une mauvaise touche et ma réponse est partie toute seule.
Je continue l'exemple.

V_Found.Select
Do until activecell <> V_Found or activecell = "" or cells(activecell.row,4) = Critère_Deux
activecell.offset(1).select
Loop
If activecell <> V_Found or activecell = "" then
msgbox prompt:="Pas de record coorespondant à la recherche"
exit sub
else
Do until activecell <> V_found or activecell = "" or cells(activecell.row,4) <> Critère_Deux or cells(activecell.row, 5) = Critère_Trois
Activecell.offset(1).select
Loop
If cells(activecell.row, 5) = Critère_Trois then
msgbox prompt:="Recherche réussie. résultat: ligne " & Activecell.row
else
msgbox prompt:="Pas de record coorespondant à la recherche"
exit sub
endif
endif

En espérant que c'est suffisament clair. Bon courage.