Recherche dans une listbox depuis une textbox sous condtion Résolu/Fermé

Question

Bonjour à tous,

J'ai ce bout de code qui me permet de faire une recherche depuis un textbox dans une listbox.

Sub IndexSuivant(Debut)

Dim i As Integer
Dim intPosition As Integer

'choix de la colonne de recherche    
    If OptionButton1.Value = True Then
        j = 0
        Else
        j = 1
    End If
    
    For i = Debut To Me.ListBox1.ListCount - 1
        If InStr(LCase(Me.ListBox1.Column(j, i)), LCase(Me.TextBox1.Text)) = 1 Then
            intPosition = i
            ListBox1.ListIndex = i
            Lindex = i + 1 'la prochaine recherche commencera ? i + 1
        Exit For
        End If
    Next i
    
End Sub

J'aimerais pouvoir ajouter une condition selon la valeur d'une checkbox. 
Cette valeur permettrait de savoir comment effectuer la recherche. Si faux, la recherche se fait sur la totalité des fournisseurs (comme c'est déjà le cas), si vrai la recherche se fait que sur les fournisseurs dont le nom est composé d'un "/".

Autre alternative qui me vient au moment où j'écris ces mots. Au fur et à mesure de la saisie dans le textbox, la listbox se vide, comme un filtre et réduit les choix possibles.

Par avance merci pour votre aide et bonne journée.

Ludwig

f894009 · Answer

Bonjour,

La variable Debut vient d'ou ?

Feuille ou UserForm?

Pouvez mettre un fichier exemple car cote listbox ,d'apres vote code, la recherche se fait sur  colonne differente suivant l'optionbouton

Louloude74 · Answer

Bonjour,

Private Sub TextBox1_change()
TextBox1.Text = UCase(TextBox1.Text)
Lindex = 0
IndexSuivant (Lindex)
End Sub


Lors de  cet évènement.

Les items de la listbox viennent, quant à eux, d'une feuille excel.

Louloude74 · Answer

Bonjour, 

Merci pour ta réponse.

Je fais une recherche sur deux colonnes car je ne sais comment faire autrement. ;)

Le code mentionné plus haut et un code récupéré.

J'utilise un userform pour renseigner différents champs. J'avais besoin de lister les fournisseurs. Je l'ai donc fait à travers une listbox. J'ai ajouté un textbox pour l'utiliser comme un "moteur de recherche" dans mes fournisseurs, soit par le nom, soit par leur code. Une fois le fournisseur sélectionné, j'incrémente une deuxième liste avec ma sélection ou mes sélections.
Le hic avec "mon" code est qu'il me donne la première valeur trouvée et les fournisseurs sont en doublon : fournisseur (fournisseur générique) et fournisseur/code (nos fournisseurs). J'aimerais avoir la possibilité de faire la recherche que dans les fournisseurs avec un "/".

J'espère que cette fois-ci je n'ai pas répondu à côté de la plaque.

Encore merci et bonne journée.

Ludwig

f894009 · Answer

Bonjour,

Je fais une recherche sur deux colonnes 
Dans votre feuille Excel, les fournisseurs avec/sans "/" sont sur combien de colonnes?
Vu que vous ne donnez pas comment est rempli la listbox

f894009 · Answer

Bonjour,

Fichier pour recherche specifique en fonction d'une TextBox pour remplissage ListBox.
La recherche filtrant les noms ayant un "/"

A adapter pour votre fichier perso: https://mon-partage.fr/f/vUbJganP/

Pige pas le Ucase car les noms doivent etre en Majuscule dans les cellules!

Recherche dans une listbox depuis une textbox sous condtion

5 réponses

Discussions similaires