Discussion :

[Merryy]

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

[eric4459]

Bonjour Merry,
Peut-être pourrais-tu essayer quelque chose comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ListBox.Value Like " Left(TextBox.Value,3)" then '
ton code
End If

Eric

[Merryy]

quel code ?

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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 ?

[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

[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

[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 ?

Merryy, dans l'attente des lumières sur le Filter, je ne me prononce pas sur tes nouvelles interrogations

[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 …

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

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

[joe.levrai]

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

Sans boucle ?
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.

[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 …

[joe.levrai]

Pffff

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

ça me fera les pieds