Fonction recherche + listbox

Dranreb

XLDnaute Barbatruc

• 14 Juillet 2013

• #2

Re : Fonction recherche + listbox

Bonjour
Un essai avec un ComboBox et quelques modules de services.

 

Pièces jointes

• TestMoi_Bis.xls

  118 KB · Affichages: 41

Vote positif 0 Vote négatif

M

Moi_Bis

XLDnaute Nouveau

• 14 Juillet 2013

• #3

Re : Fonction recherche + listbox

Bonjour et merci Dranreb.

Cela fonctionne. Mais pourquoi "Moto" ne figure pas dans le listbox??????

C'est bon, j'ai modifié l'initialisation de l'interface et mis A1 au lieu de A2.


Merci bien

 

Dernière édition: 14 Juillet 2013

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juillet 2013

• #4

Re : Fonction recherche + listbox

Oups !
Entrainé par l'habitude j'ai cru que la liste commençait en ligne 2 après une ligne de titres.
Il suffit de corriger :

VB:

Set Plg = PlgUti(Feuil1.[A1])

 

Vote positif 0 Vote négatif

M

Moi_Bis

XLDnaute Nouveau

• 14 Juillet 2013

• #5

Re : Fonction recherche + listbox

Re dranreb et bonjour à tout autre personne pouvant m'aider.

Pouvez-vous me dire comment avez-vous alimenté la textbox, de façon à pouvoir en ajouter d'autres. Colonne C, D, E etc.

Merci bien

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juillet 2013

• #6

Re : Fonction recherche + listbox

Le Additem d'un ListBox multicolonnes permet d'ajouter une nouvelle ligne entière mais de n'en garnir que la 1ère colonne.

VB:

Private Sub ComboBox1_Change()
Dim ValPlg(), TLgn() As Long, N As Long, L As Long, C As Long
Me.ListBox1.Clear
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
ValPlg = Plg.Value
TLgn = D.Items(Me.ComboBox1.ListIndex)
For N = 1 To UBound(TLgn)
   L = TLgn(N)
   Me.ListBox1.AddItem ValPlg(L, 2)
   For C = 3 To UBound(ValPlg, 2)
      Me.ListBox1.List(Me.ListBox1.ListCount - 1, C - 2) = ValPlg(L, C)
      Next C
   Next N
End Sub

Veillez à ce que la propriété ColumnCount de la ListBox soit convenablement définie.

 

Vote positif 0 Vote négatif

M

Moi_Bis

XLDnaute Nouveau

• 14 Juillet 2013

• #7

Re : Fonction recherche + listbox

Merci Dranreb

Cela fonctionne à merveille. Respect......

A bientôt..

 

Vote positif 0 Vote négatif