chercher dans une listbox

Version imprimable

15/07/2015, 13h49
Merryy

chercher dans une listbox

Bonjour tout le monde,

j'ai une Userform qui contient un textbox et une listbox bien remplit , je voulais savoir est ce qu'il existe une methode pour que je puisse faire une recherche dans la listbox par le textbox, par exemple je saisie le debut du mot rechercher, après la listebox m'affiche les elements qui contient ce debut de mot dans les premiers lignes , ou bien elle efface tt et il m'affiche que les elements correspondant ?

Merci d'avance ;)
15/07/2015, 15h12
eric4459
Bonjour Merry,
Peut-être pourrais-tu essayer quelque chose comme ceci ?
Code:

1 2 3 If ListBox.Value Like " Left(TextBox.Value,3)" then ' ton code End If
Eric
15/07/2015, 15h15
Merryy

quel code ?

1 pièce(s) jointe(s)

Bonjour,

pour ce type d'interactions, j'utilise un second listbox qui sert de filtre de "résultat" .... c'est plus simple à gérer au niveau du code, et ça te permet de conserver la vue globale de ta matrice VS ta vue filtrée

un exemple construit à la main :

-Listbox1 = la matrice
-Listbox2 = le filtrage
-TextBox1 = le champs de recherche
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Option Compare Text ' si tu ne veux pas tenir compte de la casse Private Sub TextBox1_Change() With Me ' efface le listbox de filtrage .ListBox2.Clear ' pour chaque élément de la matrice For i = 1 To .ListBox1.ListCount ' si l'élément commence par ce qui est écrit dans le champs recherche ' on l'ajoute au listbox de filtrage If .ListBox1.List(i - 1) Like .TextBox1.Text & "*" Then .ListBox2.AddItem .ListBox1.List(i - 1) Next i End With End Sub Private Sub UserForm_Initialize() ' quelques éléments crées à la main With Me.ListBox1 .AddItem "toto" .AddItem "titi" .AddItem "toutou" .AddItem "tata" .AddItem "tonton" .AddItem "clause" End With End Sub
C'est 100% dynamique, à chaque frappe au clavier ça s'actualise (y compris quand tu supprimes des caractères)

Pièce jointe 183078

15/07/2015, 15h24
Merryy

Mercioi , c'est ce que je pensais faire aussi , par contre j'ai une liste box qui contient 7 colonnes , donc ça serait pas évident de faire 2 list, ou bien j'ai pensé de faire 2 liste de la meme taille et faire apparaitre qu'une seul , et quand il tape , les résultats s'affichent dans la deuxième.
est ce que ça serait utile ?
15/07/2015, 15h24
Marc-L

Bonjour,

dans le même ordre d'idée de joe avec la fonction Filter (sans boucle) …

Et Merryy, merci de ne pas quoter l'ensemble du message précédent, c'est lourd et inutile !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
15/07/2015, 15h50
Merryy

d’accord c'est noté.

et du coup l'idée d'apparaitre qu'une seul liste et l'autre invisible , et quand il cherche par textbox , la deuxième est affichés et la première est invisible est faisable ??

Merci
15/07/2015, 15h51
joe.levrai

Bonjour Marc-L

cette méthode se rattache à quoi ? C'est bien un filtre s'appliquant dans un listbox ?

par curiosité, je suis en train de chercher, mais je sèche... y compris en parcourant l'explorateur d'objet

un petit exemple trivial pour que je fasse une proposition modifiée ? :mrgreen:

Merryy, dans l'attente des lumières sur le Filter, je ne me prononce pas sur tes nouvelles interrogations
15/07/2015, 16h32
Marc-L

Déjà un exemple dans le chapître I-V du tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel …

Maintenant que Merryy a précisé qu'elle a plusieurs colonnes, ce n'est peut-être pas la solution qui s'impose …
15/07/2015, 16h56
joe.levrai
ahhhh ok, je cherchais en vain quelquechose lié directement aux contrôles de formulaire (j'aurai pu chercher longtemps)

c'est clairement pas une solution pour le problème soulevé, certes, mais j'aime pas rester sur un échec avec une méthode que je n'ai jamais utilisé auparavant.

j'ai naïvement tenté
Code:

1 2 3 4 With Me .ListBox2.Clear .ListBox2.List = Filter(.ListBox1.List, .TextBox1.Text, False) End With
incompatibilité de type sur la ligne où j'ai le filter

je me suis dis que je prenais un raccourci trop important, et donc j'ai utilisé des tableaux intermédiaires pour stocker :

- le contenu de ma listbox de départ
- le résultat du Filter

mais choux blanc, toujours l'incompatibilité de type sur le filter ... c'est sûrement tout bête mais je passe à côté :aie:

le seul moyen de contournement, c'est en utilisant une boucle, mais tu confirmes qu'on en a pas besoin, donc je contourne mal

A tester dans un nouveau classeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Demo1()
    Const FILTRE = "to"
 
    SP = Split("tomate cerise toupie tata tétée titi totote tutut tyty top carte carton tome")
    TF = Filter(SP, FILTRE)
 
    With Feuil1
        .UsedRange.Clear
                                .[B2].Resize(, UBound(SP) + 1).Value = SP
                                                         .[A4].Value = FILTRE & " : "
        If UBound(TF) > -1 Then .[B4].Resize(, UBound(TF) + 1).Value = TF
    End With
End Sub

Cette fonction est un filtre contient, relancer en filtrant sur ''tom" …
Plus il y a de caractères dans le filtre, mieux c'est, plus c'est rapide …

Comme elle n'accepte pas les caractères génériques,
pour un filtre "commence par" affiner alors avec Like ou StrComp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Demo2()
    FILTRE = "to"
        SP = Split("tomate cerise toupie tata tétée titi totote tutut tyty top carte carton tome")
        TF = Filter(SP, FILTRE)
 
    If UBound(TF) > -1 Then
            FILTRE = FILTRE & "*"
        Do
            If Not TF(N&) Like FILTRE Then TF = Filter(TF, TF(N), False) Else N = N + 1
        Loop Until N > UBound(TF)
    End If
 
    With Feuil1
        .UsedRange.Clear
                                .[B2].Resize(, UBound(SP) + 1).Value = SP
                                                         .[A4].Value = FILTRE & " : "
        If UBound(TF) > -1 Then .[B4].Resize(, UBound(TF) + 1).Value = TF
    End With
End Sub

_____________________________________________________________________________________________________
Pour apprendre quelque chose aux gens, il faut mélanger ce qu’ils connaissent avec ce qu’ils ignorent. (Pablo Picasso)

15/07/2015, 17h51
joe.levrai

Citation:

Envoyé par Marc-L

dans le même ordre d'idée de joe avec la fonction Filter (sans boucle) …

Sans boucle ? :mrgreen:
Ok le remplissage du listbox n'en nécessitera pas, mais en amont c'est pas le cas apparemment.

C'est tout de suite moins sexy si les données doivent transiter sur une feuille

je m'attendais à un truc comme j'avais testé dans mon dernier message ... je suis déçu mais pas totalement, toujours un plaisir de regarder tes codes.
15/07/2015, 18h03
Marc-L

Regarde bien : la feuille ne sert que comme support d'affichage de la démonstration !
Le traitement est déjà effectué sans la feuille.

Dans Demo1, mettre un point d'arrêt sur la ligne n°7, lancer puis regarder le contenu
des variables tableau SP (source) et TF (tableau filtré) dans la fenêtre des Variables locales …
15/07/2015, 18h08
joe.levrai

Pffff

tu peux me mettre un -1 sur mon message SVP ?

ça me fera les pieds :ptdr:
15/07/2015, 18h10
Marc-L

Niet ! Pour compenser les +1 mérités mais non attribués par certains demandeurs … 8-)

Maintenant dans le cas présent, vu les multiples colonnes, une classique boucle et un Like font déjà l'affaire !
15/07/2015, 18h28
joe.levrai

Merryy,

le mot à rechercher est toujours dans la même colonne ou la recherche doit s'effectuer parmi tes 7 colonnes ?

Voir, la possibilité pour ton utilisateur de choisir la colonne où il pose son filtre ? (sans garanti sur ce point sans avoir essayé)