Resultat recherche dans listview

biloute91

XLDnaute Occasionnel
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
 

Pièces jointes

  • biloute91.zip
    47.3 KB · Affichages: 67
  • biloute91.zip
    47.3 KB · Affichages: 70
  • biloute91.zip
    47.3 KB · Affichages: 68

cbea

XLDnaute Impliqué
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.
 

Pièces jointes

  • biloute91_v1.zip
    44.1 KB · Affichages: 146

biloute91

XLDnaute Occasionnel
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

XLDnaute Impliqué
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 :
Code:
ListBox1.AddItem c.Offset(0, -1).Value
       ListBox1.List(ListBox1.ListCount - 1, 1) = c.Row
par exemple, en remplissant 2 nouvelles colonnes :
Code:
       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]
 

Discussions similaires

Réponses
19
Affichages
988

Statistiques des forums

Discussions
312 017
Messages
2 084 650
Membres
102 627
dernier inscrit
duval16