moteur de recherche récalcitrant

Re : moteur de recherche récalcitrant

bonjour lynyrd le forum si je comprends bien dans ton ex modifie ces 2 lignes
Ligne = Sheets(3).Range("A" & "65536").End(xlUp).Row
Set Plage = Sheets(3).Range("a" & "1:" & "a" & Ligne)

Re : moteur de recherche récalcitrant

Bonjour le forum,excalibur
Maintenant cela donne le résultat inverse,les données importées de la feuille1 fonctionnent,mais celles entrées manuellement ne s'affichent plus .

Re : moteur de recherche récalcitrant

Bonjour,
modifie ta recherche comme ceci :

Re : moteur de recherche récalcitrant

Merci à vous deux
cela fonctionne très bien
A+

Re : moteur de recherche récalcitrant

Salut tous


Ce que je comprends c'est que tu veux rechercher sur une feuille ("Feuil1")
déja existante ou sur la feuille base de données si il y a eu
des saisies directement sur cette feuille.

Dans ce cas, si tu veux chercher sur seulement une feuille bien précise,
il faudra modifier ton USF en posant la question avec msgbox par
exemple avant de déclencher la recherche.

Sinon, je sais pas si ca va t'aider mais en modifiant comme ceci :
tu pourra rechercher sur toutes les feuilles (base,feuil1 et autres.........) de ton classeur mais tu risque d'avoir des doublons.

a mettre avant Set Plage :
Dim s As Integer
For s = 1 To Worksheets.Count
(sans oublié de mettre Next avant End Sub)

modifie 2 ou 3 par s (chez toi c'est 3 car ta feuille recherche est masquée)

Ligne = Sheets(s).Range("A" & "65536").End(xlUp).Row
Set Plage = Sheets(s).Range("a" & "1:" & "a" & Ligne)

Si tu veux chercher sur seulement une feuille bien précise,
il faudra modifier ton USF en posant la question avec msgbox par
exemple avant de déclencher la recherche.

On attends ta réponse, il y a plusieurs solutions

Bon courage

Re : moteur de recherche récalcitrant

Merci papapaul de t'interesser à mon problème
C'est juste pour rechercher sur 1 seule feuille
Merci A+