XL 2010 Résolu par Marcel32 : La recherche de Roland

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Vraiment excellente la recherche de Roland ... vraiment superbe
je l'utilise à chaque instant comme d'autres code qu'il a fait et que j'ai "presque" réussi à comprendre LOL

Le fonctionnement de cette recherche est rapide, "c'est tout bien".
Un grand merci Roland pour tous ces codes qui me sont indispensables dans mon boulot.
Je pense que beaucoup d'entres nous en profitent aussi.

j'ai une petite chose bizarre (quand même LOL) qui se passe :
Voir le classeur test joint + photo jointe :
Nous en avions parlé, c'est mieux que la recherche ne commence pas sur la cellule source.

Mais quand on fait la recherche sur la feuille Téléphone, c'est la cellule source qui s'affiche en premier.
Ce qui est curieux est que si on fait la recherche à partir d'une autre feuille, ça ne le fait pas.

Bon Noel Roland et à toutes et à tous,
Amicalement,
Lionel,
 

Fichiers joints

Dernière édition:

Marcel32

XLDnaute Accro
Bonjour,

Je me demande si ton problème ne viendrait pas de la portée de ta variable AdresSource$, qui en plus est "re"-définie dans ta procédure RechercheQuoi.

Si c'est bien ça, alors le SelectCase de la procédure UserForm_Initialize devrait être fait dans la procédure RechercheQuoi.
Et pense aussi à mettre des majuscules lors des assignations de AdresSource$ (par ex. : AdresSource$ = "E9").
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Tu es super Merci.
Souvent, je pourrais quand même aider sur certaines demandes.
je me trouve tellement nul comparé aux ténors du forum et mes propositions vont paraître si ridicules, que je n'ose pas LOL
Merci pour ta gentillesse :)
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Marcel et Joyeux Noël :)

Re Lionel ;)

Ajoute ceci dans ThisWorkbook

VB:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Columns("K:K")) Is Nothing Then
fm_SaisieRecherche.Show 0
fm_SaisieRecherche.TbSaisieRecherche = Target.Offset(0, 0)
End If
End Sub
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Re-Lone,
T'es encore là et tu me répond Merci,
J'ai ajouté ton code mais ça ne change pas le souci.
Bon, c'est un tout petit souci qui ne me gêne pas vraiment.
C'est pour "être parfait" ... c'est mieux de ne pas "trouver" la cellule dans laquelle le n° est saisi.
 

Marcel32

XLDnaute Accro
Bonjour Lone-wolf,
Pardon, mais j'ai l'impression qu'avec cet ajout, la recherche sera lancée quand on sélectionnera une cellule de la colonne K, mais ça ne changera pas le problème de la macro de recherche qui continuera de s'arrêter sur la cellule dans laquelle on saisi la valeur à rechercher.



Souvent, je pourrais quand même aider sur certaines demandes.
je me trouve tellement nul comparé aux ténors du forum et mes propositions vont paraître si ridicules, que je n'ose pas LOL
Moi c'est exactement pareil... LOL
As-tu essayé ce que je t'ai proposé ?
Il y a peut-être plus simple, mais je ne sais aps ce que tu veux faire exactement (recherche uniquement dans la colonne K par exemple).
 

arthour973

XLDnaute Barbatruc
Supporter XLD
je viens de tester un bon nombre de fois ...... ça marche.
je ne sais pas pkoi ça ne cherchait sur une seule feuille quelques fois.
En tout cas, merci Marcel.
Amicalement,
Lionel,
Bonne fin de journée de Noel :)
 

DoubleZero

XLDnaute Barbatruc
Bonjour à toutes et à tous,
... Souvent, je pourrais quand même aider sur certaines demandes.
je me trouve tellement nul comparé aux ténors du forum et mes propositions vont paraître si ridicules, que je n'ose pas ...
@ arthour973 :),

Si nos interventions sont ridicules, elles sont vite améliorées par les membres "ténors du forum".

Qui plus est, le ridicule ne tue pas. La preuve : je suis t;)ujours en vie !

A bientôt :):)
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Pas d'accord ;) DoubleZero, j'aimerais avoir votre niveau.
En revanche, effectivement, le ridicule ne tue pas ..... nous n'aurions pas de souci de surpopulation LOL
Bonne fin de journée de Noel :)
 

Discussions similaires


Haut Bas