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

ChTi160

XLDnaute Barbatruc

• 19 Septembre 2018

• #2

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

 

Vote positif 0 Vote négatif

O

olivierk1450

XLDnaute Nouveau

• 20 Septembre 2018

• #3

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Septembre 2018

• #4

Bonjour Olivier
peux tu mettre un fichier de quelques lignes de données !
Merci
Bonne journée
jean marie

 

Vote positif 0 Vote négatif

O

olivierk1450

XLDnaute Nouveau

• 20 Septembre 2018

• #5

Et voilà.
Merci

 

Pièces jointes

• Classeur1.xlsm

  16.9 KB · Affichages: 28

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Septembre 2018

• #6

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

 

Pièces jointes

• Olivier Chti160.xlsm

  39.5 KB · Affichages: 28

Vote positif 0 Vote négatif

O

olivierk1450

XLDnaute Nouveau

• 20 Septembre 2018

• #7

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Septembre 2018

• #8

Re
Qu'entends tu par :

Mais il n'existe vraiment pas de solution plus simple et donc plus facilement ré adaptable pour ce genre de problème ?

Cliquez pour agrandir...

Merci !
Bonne fin de journée
jean marie

 

Vote positif 0 Vote négatif

O

olivierk1450

XLDnaute Nouveau

• 20 Septembre 2018

• #9

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Septembre 2018

• #10

Bonsoir.

 

Pièces jointes

• CBxLiéesOlivierk1450.xlsm

  75.8 KB · Affichages: 39

Vote positif 0 Vote négatif

O

olivierk1450

XLDnaute Nouveau

• 26 Septembre 2018

• #11

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Septembre 2018

• #12

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.

 

Vote positif 0 Vote négatif

O

olivierk1450

XLDnaute Nouveau

• 26 Septembre 2018

• #13

Oui j'avais remarqué . Il existe un mode d'emploi pour les utiliser ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Septembre 2018

• #14

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.

 

Pièces jointes

• CBxL.xlsm

  112.6 KB · Affichages: 25

Vote positif 0 Vote négatif