XL 2010 Résolu par Roland : recherche Roland

arthour973

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas