Résultat de recherche dans listbox ?

nico62370

XLDnaute Nouveau
Bonjour à tous,

Je cherche dans le forum en vain...

Je recherche le moyen d'afficher le résultat d'une recherche dans une list box.

La recherche s'effectue dans une textbox.

Merci.
 

pascal21

XLDnaute Barbatruc
Re : Résultat de recherche dans listbox ?

bonjour
petite suggestion
mais a toi de trouver les codes
bon alors tu envoie la saisie de ta textbox dans une cellule (disons a1)
ensuite tu nomme la zone avec "insertion/nom/définir"
et dans proprièté de ta listebox tu mets le nom de la liste
voila
enfin c'est ce que j'ai compris avec le peu d'explications fournies dans ton msg
 

nico62370

XLDnaute Nouveau
Re : Résultat de recherche dans listbox ?

Merci à vous deux !

Cbea n fois merci... c'est exactement ce que je cherchais...


Merci merci merci
 

nico62370

XLDnaute Nouveau
Re : Résultat de recherche dans listbox ?

:confused: J'ai testé la macro c'est parfait... Mais, parce qu'il y a toujours un Mais... Lorsque j'effectue une deuxième recherche ===> Bug "le programme ne répond pas..."

Que faire ?
 

cbea

XLDnaute Impliqué
Re : Résultat de recherche dans listbox ?

Tu as fait des tests avec mon fichier ou dans ton fichier ?

S'il s'agit de ton fichier, pourrais-tu le joindre ?

Merci
 

nico62370

XLDnaute Nouveau
Re : Résultat de recherche dans listbox ?

J'ai fait le test dans mon fichier.
L'anomalie apparait lorsque l'on fait un retour arrière (backspace) pour effacer le contenu de la textbox...

Mon Fichier est trop volumineux même compressé....
 

justine

XLDnaute Occasionnel
Re : Résultat de recherche dans listbox ?

bonsoir a tous
je me permets d'intervenir sans proposer de solution mais pour remercier CBEA sur sa premiere solution, je cherchais comment faire ca depuis un petit moment (avec la methode "like"), quand j'ai vu la solution devant les yeux.
merci CBEA
 

bhbh

XLDnaute Barbatruc
Re : Résultat de recherche dans listbox ?

Bonjour,
cbea n'étant pas là, je te propose cette solution, à mettre en début de code :

Code:
....
....
Dim Lig As Long
    If Me.TextBox1 = "" Then
        Me.ListBox1.Clear
        Exit Sub
    End If
    ' Vider la liste
.....
.....
 

cbea

XLDnaute Impliqué
Re : Résultat de recherche dans listbox ?

Bonsoir nico62370, bhbh, justine, pascal21,

Je suis étonnée que cela ne fonctionne pas car lorsque la textbox n'est pas remplie, cela équivaut à récupérer toutes les lignes dans la listbox (... Range("A" & Lig).Value Like "*" Then ...)

Je pense qu'il doit y avoir autre chose.
Pourrais-tu joindre ton fichier sur cijoint.fr pour que je puisse comprendre ?

Merci
 

cbea

XLDnaute Impliqué
Re : Résultat de recherche dans listbox ?

Pourrais-tu faire les modifications décrites ci-dessous et me dire si cela est mieux ?

Remplacer :
Code:
        derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
        If derLig < 2 Then Exit Sub
par :
Code:
        derLig = Range("[COLOR="Red"]B[/COLOR]" & Cells.Rows.Count).End(xlUp).Row
        If derLig < [COLOR="red"]3 [/COLOR]Then Exit Sub
La recherche doit s'effectuer en colonne B. Par conséquent, la dernière ligne à trouver est également par rapport à la colonne B.
 

abtony

XLDnaute Impliqué
Re : Résultat de recherche dans listbox ?

bonjour nico62370, bhbh, cbea, justine pascal21,

impossible d'ouvrir ton fichier chez moi, il tourne en boucle je dois aller dans gestionnaire des taches et stopper le processus. ???

A ++
 

nico62370

XLDnaute Nouveau
Re : Résultat de recherche dans listbox ?

toujours sur le même sujet et sans abuser:D
Lorsque la saisie ne renvoie à rien. Comment faire pour afficher dans la lite box " Pas de réponse..." ou un truc du genre ?

Je pensais à ce genre de chose :
If Range("B" & Lig).Value Like recherche1.Value & "*" Then
.......
.......
else
Listbox1.additem ???

Endif:eek:
 

cbea

XLDnaute Impliqué
Re : Résultat de recherche dans listbox ?

En fait, en colonne A de la ligne 3 à 65536, il y a la formule : =GAUCHE(B70;4)&DROITE(H70;2)
Dans le code fourni, la recherche s'effectuait en colonne A et le chargement de la listbox s'effectuait pour les 65533 lignes de la colonne A.
Or, dans le cas présent, la recherche doit s'effectuer en colonne B (voir mon précédent post).
 

cbea

XLDnaute Impliqué
Re : Résultat de recherche dans listbox ?

Voici une solution.

Après :
Next Lig

Mettre :
If ListBox1.ListCount = 0 Then
MsgBox "Pas de réponse"
End If
 

nico62370

XLDnaute Nouveau
Re : Résultat de recherche dans listbox ?

J'ai fait les modifs dans la macro. C bon je n'ai plus le problème.
Comme je n'avais pas modifié tous les params. En tous cas : Chapeaux !
 

Discussions similaires


Haut Bas