Fonction recherche + listbox

[Moi_Bis]

Bonjour

Je souhaite rechercher un texte en VBA puis alimenter un listbox.

Fichier joint

Merci à tous

 

[Dranreb]

Re : Fonction recherche + listbox

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

 

[Moi_Bis]

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

 

[Dranreb]

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 :

Set Plg = PlgUti(Feuil1.[A1])

 

[Moi_Bis]

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

 

[Dranreb]

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.

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.

 

[Moi_Bis]

Re : Fonction recherche + listbox

Merci Dranreb

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

A bientôt..