Recherche multicritères

Jocelyn

XLDnaute Barbatruc

• 12 Juillet 2006

• #2

Re : Recherche multicritères

Bonjour le Forum,
Bonjour helrous,

A la lecture de te demande j'ai une premiere question quand tu dis que tu dois faire une recherhce en fonction du code ET de la référence cela veut'il dire qu'un même code peut avoir plusieurs référence ou qu'une meme référence peut avoir plusieur code et le toot avec des prix différents

Autremnet si tu pouvais mettre quelque ligne d'exemple dans un fichier en passant par Accueil de Cjoint.com

Jocelyn

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 12 Juillet 2006

• #3

Re : Recherche multicritères

Salut helrous

Ce que je fais quand il y a plusieurs colonnes, je cree une nouvelle a gauche dans les 2 tableaux ou je mets la concatenation des autres cellules (=concatener(b1;c1,...) et ensuite seulement je fais mes recherches.

Si tes données le permettent c'est un moyen tres rapide sans avoir besoin d'ecrire beaucoup.
Attention cependant a ce que dans les deux tableaux tu ais des donnees similaires (texte,nombres..😉

Bon courage

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Juillet 2006

• #4

Re : Recherche multicritères

Salut lapix
une procèdure à adapter surement lol
les données sont en feuil1 plage A3 C derniere ligne détectée
et l'autre tableau se trouve en feuil2
on vérifie le code en colonne A et si colonne prix vide on colle le prix

Sub transfert()
Dim Tabtemp As Variant
Dim L As Byte
Dim cel As Range
With Feuil1
Tabtemp = .Range("A4:C" & .Range("A65536").End(xlUp).Row).Value
End With
With Feuil2
For L = 1 To UBound(Tabtemp, 1)
For Each cel In .Range("A4:A" & .Range("A65536").End(xlUp).Row)
If cel.Value = Tabtemp(L, 1) Then
If cel.Offset(0, 2) = "" Then cel.Offset(0, 2) = Tabtemp(L, 3)
End If
Next
Next
End With
End Sub

Cliquez pour agrandir...

peut il y avoir des codes identiques pour des références différentes pas
clair lol
si oui mettre ceux ci en place
For Each cel In .Range("A4:A" & .Range("A65536").End(xlUp).Row)
If cel.Value = Tabtemp(L, 1) And cel.Offset(0, 1) = Tabtemp(L, 2) Then
If cel.Offset(0, 2) = "" Then cel.Offset(0, 2) = Tabtemp(L, 3)
End If
Next

tient nous au courant

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 12 Juillet 2006

• #5

Re : Recherche multicritères

Bonjour,

Trois plages nommées dans le 1er tableau "Code", "Ref" et "Prix"
Code et Ref du 2ème tableau en E2 et F2

=INDEX(Prix;EQUIV(1;(Code=E2)*(Ref=F2);0))
renvoie la 1ère valeur trouvée
Formule matricielle, à valider par ctrl, maj et entrée

Plus simple à condition qu'il n'y ait pas de doublons :
=SOMMEPROD((Code=E2)*(Ref=F2);Prix)
(à valider simplement par la touche "Entrée"

 

Vote positif 0 Vote négatif

H

helrous

Guest

• 12 Juillet 2006

• #6

Re : Recherche multicritères

Merci pour ces réponses rapides! meme si je comprend pas toutes vos propositions... je vais quand meme les étudier!!!

pr préciser mon pb : je peux avoir plusieurs références pour un meme codes. en fait, j'ai un prix par code+référence.

(désolé je n'ai pas réussi à joindre de fichier... je suis novice...)

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 12 Juillet 2006

• #7

Re : Recherche multicritères

re,
Bonjour Lapix, ChTi160, Monique,

voila je vois que tout le monde a répondu mais j'avais préparé un petit fichier alors je le joint j'ai juste ajouter dedans la proposition de Monique par le Sommeprod qui me semble etre la plus simple.

http://cjoint.com/?hmoab64xQi

Jocelyn

 

Vote positif 0 Vote négatif

H

helrous

Guest

• 12 Juillet 2006

• #8

Re : Recherche multicritères

Merci tout le monde,

j'ai enfin réussie à finir mon tableau grâce à vous...

 

Vote positif 0 Vote négatif