Recherche Multi Critères erreur 438

[Provence Vintage]

Bonjour Le Forum,

Je cherche à débugger mon code
Mieux vaut un fichier exemple!

Merci à toutes et tous pour votre aide!


Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Robert]

Re : Recherche Multi Critères erreur 438

Bonjour Province Vitage, bonjour le forum,

Chez moi ça plante dès l'ouverture à cause de MAJHeure (Sub ou Fonction non définie...). Attention au danger de Désactiver les événements à l'ouverture surtout si ça plante avant d'être pepassé par Application.EnableEvents = True.
Tu pourrais faire l'effort avec un peu plus d'explications ! Et arrêter de picoler aussi...

 

[job75]

Re : Recherche Multi Critères erreur 438

Bonjour Provence Vintage ,

Félicitations pour la magnifique ouverture, ça commence bien 😛

Edit : salut Robert ça fait un bout de temps 🙂

A+

 

[Provence Vintage]

Re : Recherche Multi Critères erreur 438

Robert, job75, Le Fil

Pour l'apéro, c trop tôt ;-)
Je n'avais pas tout effacé dans le fichier Test, en effet...
Ci-Joint Maj:
Cijoint.fr - Service gratuit de dépôt de fichiers

Ce que je cherche à Faire:
Il me faudrait un USF qui me balaye ma base de données en fonction de différents critères:
Villes, Prix, . . .

Objectif: Par une méthode en entonnoir, affiner la recherche et afficher les lignes qui correspondent au mieux au valeurs Filtres! + Possibilité d'imprimer le résultat affiché ds une ListBox

Ci-joint un fichier similaire à ce que je recherche
Cijoint.fr - Service gratuit de dépôt de fichiers

Autres interrogations:
Problème avec Prix; comment dire en fonction d'un coût X, d'effectuer la recherche de cette valeur entre la colonne N et O afin d'extraire toutes les lignes ou X est compris dans cette fourchette de prix!

Idem avec les Surfaces: peut-on mettre un % de variation de la valeur ou utiliser par exemple la colonne Q et R de la feuille Liste!

Ou la la, soirée Alcaselzer........
Merci à Vous

 

[Provence Vintage]

Re : Recherche Multi Critères erreur 438

Zut, le fichier exemple n°2:

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[job75]

Re : Recherche Multi Critères erreur 438

Re,

Pas encore regardé le 2ème fichier.

Sur le 1er j'ai renommé l'USF Accueil mais impossible d'exécuter Accueil.Show. Je sèche 🙁 et toi Robert ???

Edit : en fait c'est à cause de UserForm_Initialize, où il doit y avoir un bug.

Je vais enlever On Error Resume Next pour voir où.

A+

 

[Robert]

Re : Recherche Multi Critères erreur 438

Bonjour le fil, bonjour le forum,

T'est sûr que c'est trop tôt pour l'apéro ...???
Là je n'ai pas le temps mais j'essaie de regarder ça plus tard dans la soirée.

 

[job75]

Re : Recherche Multi Critères erreur 438

Re,

Toujours dans le 1er fichier je ne trouve pas le contrôle RechercheC1. Il semble pourtant exister puisqu'on ne peut pas donner ce nom à ComboBox1...

Qu'avez-vous donc bricolé sur ce fichier Provence Vintage ? Je suppose que ce n'est pas vous qui l'avez créé, non ?

A+

 

[Provence Vintage]

Re : Recherche Multi Critères erreur 438

Robert, Job75, Le Fil,

L'Usf je l'ai crée, mais j'ai du faire une connerie avec un Combo
Par contre le code, je tente d'adapter....

 

[job75]

Re : Recherche Multi Critères erreur 438

Re,

J'ai travaillé sur le 1er fichier.

Maintenant l'USF s'ouvre et les ComboBox sont remplies.

Vous aviez donné le nom RechercheC1 au 1er Frame que j'ai renommé "Localisation".

Par ailleurs pour les Range j'ai utilisé la propriété Text au lieu de Value : c'est mieux pour les valeurs monétaires et surtout quand il y a des valeurs d'erreur (colonne N).

J'ai ajouté la variable flag qui permet d'éviter le déclanchement de la macro RechercherBiens chaque fois qu'un Item est entré dans les listes des ComboBox.

Je n'ai pratiquement rien fait pour la ListBox, je n'ai rien compris au test If qui conditionne son remplissage.

Donc voilà le fichier sur cijoint, mais je n'irai pas plus loin, je n'ai pas l'intention de vous refaire tout le projet. Si d'autres veulent continuer...

Cijoint.fr - Service gratuit de dépôt de fichiers

A+

 

[Provence Vintage]

Re : Recherche Multi Critères erreur 438

Job75, Robert, Le Fil,

Merci pour l'essai!
Pour la ListBox, moi non plus, je ne comprends pas....
J'ai essayé un Fichier mais...

Reprenons depuis le départ!
L'idée était la suivante:

Un Usf avec Un TextBox, pour lequel si la valeur en colonne A dans une feuille nommée Base de Données vendeurs correspond, on prend les valeurs des colonnes de G à AJ dans cette même feuille et on les compare à une autre feuille nommée Base de données acheteurs!

Le résultat en entonnoir est affiché!

Je suis en train de faire des essais de différentes façon, mais toutes les idées ou bout de code sont les bienvenue!
Merci à Vous deux et au Fil!

Ci-joint Fichier correspondance des colonnes (elles ne sont malheureusement pas identiques...)

 

[Provence Vintage]

Re : Recherche Multi Critères erreur 438

Le Fil,

C compliq....
Quelqu'un a une idée?

 

[job75]

Re : Recherche Multi Critères erreur 438

Bonsoir,

Votre 1er post :

Je cherche à débugger mon code

C'est fait, non ? Maintenant à vous d'avancer.

Bonne nuit et A+