XL 2010 Résolu par Roland : recherche Roland

arthour973

XLDnaute Barbatruc
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,
 

Fichiers joints

Jacky67

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

Roland_M

XLDnaute Barbatruc
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 !?
 
Dernière édition:

Jacky67

XLDnaute Accro
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 ;)
 

arthour973

XLDnaute Barbatruc
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,
 

arthour973

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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 !
 

Discussions similaires


Haut Bas