Resultat recherche dans listview

[biloute91]

Bonjour le forum,

Après une recherche fructueuse sur ce forum , je n'ai pas reussi à adapter
le code concernant une listview.
J'ai un classeur avec 2 feuilles :

1ère feuille: tableau de recensement
2eme feuille: accès à 2 usf , 1er permettant de saisir les données du tableau feuille1
et le 2è usf permettant de faire une recherche par 2 critères.
Lorsque j'utilise le critère "N° de réference", je n'ai pas de problème puiqsue cette référence est unique et donc les TextBox et Combo se remplissent normalement.
Mon pb se situe au niveau de la recherche par "Code" car je peux avoir plusieurs lignes (tableau 1) qui contiennent le même code , de ce fait seule la dernière référence apparait dans les champs concernés.
J'ai donc pensé à une listview qui me permettrait d'avoir l'ensemble des cas. Après selection dans listview,je souhaiterais que les champs soient rensignés.

Malheureusement je n'arrive pas à formaliser, si quelqu'un peut m'aider.

Merci

 

[cbea]

Re : Resultat recherche dans listview

Bonjour biloute91,

Voici une solution.
J'ai rajouté du code noté "Ajout le 19/05".

Ne sachant pas qu'elles étaient les colonnes à ajouter dans la listbox, pour l'instant, je n'y ai mis que le n° de la référence et le n° de ligne.

 

[biloute91]

Re : Resultat recherche dans listview

Bonjour cbea,

Encore merci comme à chaque fois tu me trouves une solution.
Pour l'instant la référence me suffit mais si je souhaite ajouter des colonnes à quel niveau dans le code puis-je intervenir ?

Un grand Merci

 

[cbea]

Re : Resultat recherche dans listview

Bonjour biloute91,

Tu dois intervenir :
1/ dans UserForm_Initialize pour changer le nombre de colonnes et la largeur des colonnes

2/ dans TextBox8_Change et après les lignes :

ListBox1.AddItem c.Offset(0, -1).Value
       ListBox1.List(ListBox1.ListCount - 1, 1) = c.Row

par exemple, en remplissant 2 nouvelles colonnes :

       ListBox1.List(ListBox1.ListCount - 1, [COLOR="Red"]2[/COLOR]) = [COLOR="red"]c.Offset(0,2).Value[/COLOR]
       ListBox1.List(ListBox1.ListCount - 1, [COLOR="red"]3[/COLOR]) = [COLOR="red"]c.Offset(0,2).Value[/COLOR]

 

[biloute91]

Re : Resultat recherche dans listview

Merci je testerais

Bonne fin de journée