XL 2010 Résolu par Roland : recherche Roland

[Usine à gaz]

Bonjour Roland,
Bonjour à toutes et à tous,

Grâce à Roland, j'ai une super recherche très efficace.

A l'utilisation, je m'aperçois qu'une amélioration pourrait certainement y être apportée mais, malgré mes essais, je n'y suis pas arrivé.

En cliquant sur la recherche, le premier message s'affiche : L'affichage de ce message serait utile si je pouvais en profiter pour rechercher une autre information que celle proposée (le numéro de téléphone).
Par exemple : dans le texte le lion est mort ce soir, si je souhaite trouver où est le mot "lion", la recherche m'affiche : Recherche infructueuse

Ma question : est-il possible d'apporter une modif au code pour utiliser la recherche, selon le besoin, pour rechercher toute information utile ?
Je joins le fichier test,

Avec mes remerciements,
Amicalement,
Lionel,

 

[Jacky67]

Bonjour,
Essayes avec
Quoi = InputBox("Information à trouver :", "", Sheets(F$).Range(AdresSource$))
Quoi = "*" & Quoi & "*"

 

[Roland_M]

Bonjour,

Salut Jacky, c'est exactement ce que j'allais lui proposer !
mais pas au même endroit, pour le test de sortie si="" aucune saisie !?

plutôt ici après ce test:
If Quoi = "" Then Exit Sub
Quoi = "*" & Quoi & "*"


EDIT:
par contre les recherches seront imprécises !
car on recherche un extrait de n'importe quel contenu !

exemple si tu recherches 555
0612355500 ou 0312300555 ce sera = trouvé !?

sinon il faut modifier la saisie pour savoir si c'est sur le contenu entier ou un extrait !?

 

[Jacky67]

Bonjour,

Salut Jacky, c'est exactement ce que j'allais lui proposer !
mais pas au même endroit, pour le test de sortie si="" aucune saisie !?

plutôt ici après ce test:
If Quoi = "" Then Exit Sub
Quoi = "*" & Quoi & "*"

QUOTE]
Hello Roland,
Tu as raison, c'est bien mieux après le test 😉

 

[Roland_M]

re

voir avec le choix entier ou pas !?
j'ai remis une 2'saisie évidemment !
voir V_6

l'idéal et un userform avec la saisie et une case à cocher
voir V_7 tout le code y est transféré !

tu as le choix !?

 

[Roland_M]

re

Arthur, je viens de remettre la version V7 qui contenait une erreur !

 

[Usine à gaz]

Bonjour Roland,
Bonjour Jacky67,

Merci d'être là et de m'avoir répondu.
Super, je regarde vos solutions et je reviens.
Merci à vous,
Amicalement,
Lionel,

 

[Usine à gaz]

Oui Roland,

J'avais vu.
J'ai testé tes deux fichiers.
C'est génial et ça reste magique pour moi.
J'ai une préférence pour la version 7 super ... mais je garde tout LOL
Merci Roland encore une fois.
Amicalement,
Lionel,

 

[Roland_M]

re

évidemment que la version(7) avec l'userfom est plus pratique et plus pro !
en plus si tu veux effectuer plusieurs recherches l'userform reste présent tant que tu ne l'as pas refermé !
content que tu sois satisfait !

 

[Usine à gaz]

J'ai vu ça Roland ... je pense que je vais t'épouser LOL