Problème de recherche intuitive

[Tok-Ra]

Hello le forum !!

Bon j'ai un nouveau problème et j'ai besoin de vos compétences hors normes !!
Je vous explique:

Dans le fichier, je veux gerer des cartes d'acces via différent USF et donnée dans les feuilles.

Afin de pouvoir editer les différentes données je suis en train de mettre en place deux type de recherche, une par numéro de badge et l'autre par nom (c'est celle-ci qui utilise la recherche intuitive prise sur ce forum).

Au premier lancement de la feuille, la recherche intuitive marche, mais si je fais une recherche via la numéro de badge et que je reviend après sur une recherche par nom (sans fermer mon fichier) et bah ça marche plus !

Ce problème apparait aussi lorsque j'ajoute un badge ou que j'en édite un avec les USF respectif.

La franchement, je seche, j'ai besoin de vous !

Merci par avance !!

PS: Voici le lien FTP du fichier, même zippé, ça passe pas

http://91.121.116.149/~tok-ra/fichier_xld.xls

--- EDIT ---

C'est mal codé, je le concois, mais je doit faire en tout 5 jours entier de vba sur un an, donc j'évolue lentement

 

[Compte Supprimé 979]

Re : Problème de recherche intuitive

Salut Tok-ra, ici le SG1

Pour ton problème, tu explicite la recherche de ton numéro

Set C = .Find(t_num_badge.Value[COLOR=blue][B], , , xlWhole[/B][/COLOR])

Mais pas celui du nom, ce qu'il faut faire également

Set C_ch = .Find(Recherche_ch[COLOR=blue][B], LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False[/B][/COLOR])

Essaye ça, tu m'en diras des nouvelles

A+

 

[Tok-Ra]

Re : Problème de recherche intuitive

Hello SG1 ! heuuu.... BrunoM45

Merci pour ton coup de main, effectivement, la recherche intuitive marche désormais tout le temps, mais maintenant, c'est ma recherche par numéro qui bug !
Elle ne trouve plus aucun numéro alors qu'ils sont bien existant !

Ce que je n'arrive pas à comprendre, c'est comment, deux Private Sub différents, avec des var nommés différements arrivent à se causer des soucis mutuellement !!

Merci pour vos réponse !

-- EDIT --

Histoire d'être plus précis, voici ce qui ce passe avant la modification apportée par Bruno:

Ouverture de la feuille => Recherche par Nom => OK
Ouverture de la feuille => Recherche par numero => recherche par nom => Pas OK
Ouverture de la feuille => Ajout d'un badge => Recherche par nom => Pas Ok

Après la modification de Bruno, la recherche par nom fonctionne tout le temps mais je ne peux plus rechercher par numéro, donc je ne peux pas tester si ce numéro existe lors de la création d'un badge.

Un vrai casse tête !

 

[Compte Supprimé 979]

Re : Problème de recherche intuitive

Salut à toi

Comme je te l'ai dis précédemment il faut expliciter la fonction Find()
Sinon Excel conserve les derniers paramètres de recherche

Donc pour les numéros, il faut :

Set C = .Find(t_num_badge.Value[COLOR=blue][B], LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False[/B][/COLOR])

Dans un cas : recherche de nom
on recherche une valeur 'XlValues' dans une partie de la cellule 'XlPArt'

Dans l'autre cas : recherche de numéro
on recherche une formule 'XlFormulas' (car tes chiffres sont formatés) et dans la totalité de la cellule 'XlWhole'

C'est pour cela que tu te retrouves avec des soucis si tu ne mets pas tous les paramètres de recherche

J'espère que ce sera plus clair pour toi

A+

 

[Tok-Ra]

Re : Problème de recherche intuitive

OUWAOUH !!!
Re Bruno !
T'es un Dieu !! Merci !!
Tout marche au poil, donc chose à savoir, excel garde en mémoire les parametres de Find() !
Bon, merci pour tout et excellente journée !!!