Bonjour,

j' ai une liste qui contient des fournitures

exemple :

Cahier petit carreau
crayon
régle
ciseau
cahier spirale

un textbox + un bouton pour effectuer la recherche

Je voudrais que lorsque je saisie  " cahier " dans mon textbox et que je clique sur mon bouton,
dans la liste, il ne s affiche que :

cahier petit carreau
cahier spirale

J' ai essayé un code que j' ai trouvé où on surligne le mot correspondant mais cela ne convient pas, je pense que le principe est le même mais je n y arrive pas.

Merci par avance pour votre aide

 

Fripouil

Salut,

Je pense que dans ton cas une boucle sur ta list + l'utilisation de InstrRev et voir Mid$ et Right$, devrait répondre à ta demande...

A+
Exploreur

 Linux a un noyau, Windows un pépin

euh tu n aurais pas un petit exemple que je puisses transformer car je vois pas bien ce que tu veux dire

merci encore

Fripouil

Salut,
(salut Exploreur)

Je connais rien au dot Net, mais pourquoi ne pas (à l'évènement Click du bouton) lire chaque Item à l'aide d'une boucle, et quand il n'y a pas le terme indiqué dans le TextBox DANS l'item en cours, tu fais un Remove de celui-ci ?
Il ne restera que ceux ayant le mot-clé recherché

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Réponse acceptée !

re,

Salut Mortalino,

voici en (VB6)

Private Sub Command1_Click()

Dim iBoucle As Integer
Dim sItems As String

For iBoucle = 0 To List1.ListCount - 1

    sItems = List1.List(iBoucle)
   
    If InStrRev(sItems, "cahier") Then MsgBox List1.List(iBoucle)
   
Next iBoucle

End Sub


"cahier" correpond à ton TextBox, tu peux le faire sans la var : sItems

A+
Exploreur

 Linux a un noyau, Windows un pépin

ce qui donne :

If InStrRev(List1.List(iBoucle), "cahier") Then MsgBox List1.List(iBoucle)

A+
Exploreur

 Linux a un noyau, Windows un pépin

pourquoi InStrRev ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

ben....c'est ma façon de voir la chose(qui n'est pas toujours la meilleur....)

A+
Exploreur

 Linux a un noyau, Windows un pépin

j'suis toujours en apprentissage....lol...

A+
Exploreur

 Linux a un noyau, Windows un pépin

No soucy  ;)
Autant partir du début, c'est plus simple.

Bien que je n'y connaisse rien, j'essaie de lui faire, mais galère ce dot net

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA