Salut 
,
Étant une vrai tanche en dev j'aurais besoin de vos services sur la problématique suivante:
J'ai une feuille unique Excel contenant des références produits et leurs tarifs.
Je cherche à faire un formulaire de recherche sur cette feuille qui doit:
1. Retourner dans une listbox1 les références correspondantes au texte recherché (textbox1)
2. Refaire une recherche à partir de l'élément sélectionné dans la listbox1
3. Retourner dans des listbox séparées les 4 cells contenant les détails de l’élément sélectionné.
Pour l'instant j'ai la partie 1 qui fonctionne correctement mais je ne sais pas relancer une recherche depuis la valeur selectionnée dans la listbox1.
Donc voila ce que ca donne du coup:
Code :
- Option Compare Text
- Private Sub ListBox1_Click()
- End Sub
- Private Sub TextBox1_Change()
- Application.ScreenUpdating = False
- ListBox1.Clear
-
- If TextBox1 <> "" Then
- For ligne = 10 To 851
- If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
- ListBox1.AddItem Cells(ligne, 2)
- End If
- Next
- End If
- End Sub
|
Merci de votre aide 
---------------
WoW | D3 | Steam
