XL 2010 [RESOLU] recherche dans userform avec deux critères

olivierk1450

XLDnaute Nouveau
Bonjour
Je galère sur un truc pour pas très compliqué. Bref , dans un userform, je cherche à récupérer une valeur en fonction de deux critères.
Les données sont dans un tableau :
Col A : des fruits
Col B : des couleurs
Col C : des prix

Genre du tableau
Pomme. Rouge. 10€
Pomme bleue. 20€
Poire, bleue 2€ etc

Je cherche à afficher dans une textbox la valeur de la colonne C (le prix) en fonction du type de fruit sélectionné dans la textbox1 et de la couleur dans la textbox2

Cest à dire si j'ai textbox1 = pomme et textbox2= bleue je veux afficher 20€ dans textbox 3
Avec une recherche basée sur le numero de ligne car ma base va s'étoffer et je pourrais récupérer d'autre info plus facilement.
Merci pour vos idées et solution
 

ChTi160

XLDnaute Barbatruc
Bonsoir Olivier K1450
Fait une recherche sur le forum
Avec Combobox en cascades
Ou recherches multicriteres
Etc regarde aussi en bas de ton post dans discussions similaires .
Bonne fin de soiree
Jean marie
 

olivierk1450

XLDnaute Nouveau
Merci pour les conseils Jean Marie,
J'ai déjà écumé le forum et je n'ai pas trouvé la solution. En 2013 Alain90 à poser la même question (recherche à partir de deux textbox d'un userform), il n'a jamais eu de réponse.
Je cherche à trouver le code ou la formule qui permet d'avoir deux critères, voici l'exemple pour 1 seul critère :

Set c = Sheets("feuil1").Range("a:a").Find(textbox1.Value, lookat:=xlWhole)

puis je récupère le n°de ligne qui correspond aux deux critères et après je fais "ma sauce".

J'ai regarder du côté de Application.WorksheetFunction.VLookup mais c'est pas très pratique

Des idées ? Une âme charitable ? Merci d'avance.
 

ChTi160

XLDnaute Barbatruc
Re
Une approche perfectible
je n'ai pas compris l'utilité de la Colonne "Code"
je ne l'ai donc pas utilisée , mais j'ai utilisé les deux colonnes Prix (pour l'exemple)
Dans l'attente
Bonne fin de journée
jean marie
 

Fichiers joints

olivierk1450

XLDnaute Nouveau
Merci jean marie le résultat est tout a fait conforme.
remarque : il n'y a aucune utilité pour la colonne "code" comme pour le reste de la base. J'utilise d'autres données.
Mais il n'existe vraiment pas de solution plus simple et donc plus facilement ré adaptable pour ce genre de problème ?
Mille merci en tout cas
 

olivierk1450

XLDnaute Nouveau
Je recherche la formule magique qui marche sur un critère :
Set c = Sheets("feuil1").Range("a:a").Find(textbox1.Value, lookat:=xlWhole)

idem pour deux critères...
 

olivierk1450

XLDnaute Nouveau
Bonjour et merci pour ta réponse.
C'est aussi exactement ce que je recherche.
Je vais éplucher tout les modules pour essayer d'y comprendre quelque chose
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Attention, ce sont des modules de service, c'est à dire de la programmation toute faite, assez pointue, qui ne se modifie pas mais se pilote entièrement depuis la programmation, par opposition, applicative. Il est peu utile en soit de chercher à comprendre comment elle fonctionne. Il vaudrait mieux étudier ce qu'elle fait et pour qu'elle le fasse comment on doit la commander. Assez simplement pour les besoins courants, comme vous pouvez le voir.
 

Dranreb

XLDnaute Barbatruc
Attention c'est aussi un classeur précurseur d'un complément xlam; à partir duquel on peut l'utiliser dans n'importe quel classeur, en le mettant en référence dans son projet VBA.
 

Fichiers joints

Discussions similaires


Haut Bas