Recherche dans une listbox depuis une textbox sous condtion
Résolu
Louloude74
Messages postés
62
Date d'inscription
Statut
Membre
Dernière intervention
-
Louloude74 Messages postés 62 Date d'inscription Statut Membre Dernière intervention -
Louloude74 Messages postés 62 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai ce bout de code qui me permet de faire une recherche depuis un textbox dans une listbox.
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
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
A voir également:
- Recherche dans une listbox depuis une textbox sous condtion
- Comment faire une recherche à partir d'une photo - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Je recherche une chanson - Guide
- Rechercher ou saisir une url - Guide
- Moteur de recherche 1fichier ✓ - Forum Réseaux sociaux
5 réponses
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
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
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
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
Bonjour,
Sur Ecxel, les fournisseurs sont sur une seule colonne.
Bon dimanche !
Ludwig
Sur Ecxel, les fournisseurs sont sur une seule colonne.
Private Sub UserForm_Initialize() NomFeuille = ActiveSheet.Name DerLigne = Sheets(NomFeuille).Cells(Rows.Count, 1).End(xlUp).Row DerCol = Sheets(NomFeuille).Cells(1, Columns.Count).End(xlToLeft).Column Me.ListBox1.List = Range(Cells(1, 1), Cells(DerLigne, DerCol)).Value End Sub
Bon dimanche !
Ludwig
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!
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!
Bonsoir,
C'est génial ça fonction super bien.
Le Ucase me permet de forcer l'écriture en majuscule dans le textbox.
Car, normalement, les fournisseurs sont toujours en majuscule dans ma liste. Mais, si il y en a un en minuscule je suis cuit. L'idéal dans ce cas serait une recherche sans tenir compte de la casse.
Encore merci pour ton aide. C'est génial !
Bonne soirée.
Ludwig
C'est génial ça fonction super bien.
Le Ucase me permet de forcer l'écriture en majuscule dans le textbox.
Car, normalement, les fournisseurs sont toujours en majuscule dans ma liste. Mais, si il y en a un en minuscule je suis cuit. L'idéal dans ce cas serait une recherche sans tenir compte de la casse.
Encore merci pour ton aide. C'est génial !
Bonne soirée.
Ludwig
Bonjour,
Je ne doute pas que ça doit être un jeu d’enfant pour toi.
J’ai ajouté application.proper au additem de la listbox. Les majuscules rendaient la listbox illisible.
Encore merci pour tout ce que tu as fait.
Bonne journée
Ludwig
Je ne doute pas que ça doit être un jeu d’enfant pour toi.
J’ai ajouté application.proper au additem de la listbox. Les majuscules rendaient la listbox illisible.
Encore merci pour tout ce que tu as fait.
Bonne journée
Ludwig
Bonjour,
Lors de cet évènement.
Les items de la listbox viennent, quant à eux, d'une feuille excel.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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