XL 2016 alimenter Combobox a partir d'un résultat d'une listbox

[bandimalou]

bonjour a tous et bonnes vacances au juillettiste!!!!!

j'ai fait un formulaire pour mes demandes d'interventions qui fonctionne très bien, je souhaiterais l’améliorer mais je bloque alors je sollicite votre aide.

sur le formulaire il y a un champ de recherche qui affiche le résultat dans une listbox,
mais je souhaiterais pouvoir filtrer ce résultat avec le combobox emplacement (en jaune sur le formulaire) avec la 4eme colonne de la listbox.

merci de votre aide

Cyril

 

[Compte Supprimé 979]

Bonjour,

Pas bien compris ta demande, mais regarde ce que j'ai fait, si cela te convient

 

[bandimalou]

bonjour BrunoM45, merci de te pencher sur mon probleme.

c'est presque ca que j'ai besoin sauf qu'il faudrait que le combobox (en jaune) s aliment a partir de la listbox,.
c'est comme un filtre apres la recherche.

bonne journee

Cyril

 

[BOISGONTIER]

Bonjour,


Exemple:

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheModifAjoutSupCombobox.xls

Boisgontier

 

[bandimalou]

bonjour BOISGONTIER

c'est exactement ce que je cherchais, mais peux tu me dire quel paramètre je dois modifié pour prendre la colonne D (site) en compte au lieu de la colonne A
bonne journee

cyril

 

[BOISGONTIER]

Private Sub TextBoxRech_Change()
  If Me.TextBoxRech <> "" Then
     mots = Split(Trim(Me.TextBoxRech), " ")
     Tbl = choix
     For i = LBound(mots) To UBound(mots)
        Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
     Next i
     If UBound(Tbl) > -1 Then
        Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To NbCol + 1)
        For i = LBound(Tbl) To UBound(Tbl)
          a = Split(Tbl(i), "|")
          j = a(NcolInt)
          For c = 1 To NbCol: b(i + 1, c) = BD(j, c): Next c
          b(i + 1, c) = j
        Next i
        Me.ListBox1.List = b
       '--- combobox
       TblListBox = Me.ListBox1.List
       Set d = CreateObject("scripting.dictionary")
       For j = 1 To UBound(TblListBox)
         d(TblListBox(j, 3)) = ""
       Next j
       Me.ComboBox1.List = d.keys
     Else
       Me.ListBox1.Clear
     End If
  Else
     UserForm_Initialize
  End If
End Sub

Private Sub ComboBox1_click()
  If Me.ComboBox1 <> "" Then
    clé = Me.ComboBox1: n = 0
    Dim Tbl()
    TblListBox = Me.ListBox1.List
    For i = LBound(TblListBox) To UBound(TblListBox)
     If TblListBox(i, 3) Like clé Then
        n = n + 1: ReDim Preserve Tbl(LBound(TblListBox, 2) To UBound(TblListBox, 2), 1 To n)
        For k = LBound(TblListBox) To UBound(TblListBox, 2): Tbl(k, n) = TblListBox(i, k): Next k
     End If
    Next i
    If n > 0 Then Me.ListBox1.Column = Tbl: Me.ComboBox1.List = Array(clé) Else Me.ListBox1.Clear
   End If
End Sub

Boisgontier

 

[bandimalou]

merci beaucoup,c'est vraiment super.
une petite question, j'ai rempli ton tableau avec ma base mais lorsque je teste, le combobox me propose toujours un choix de moins qu'il n'y a de reponse dans la listbox.
si tu as une idee
merci beaucoup encore
Cyril

 

[BOISGONTIER]

       '--- combobox
       TblListBox = Me.ListBox1.List
       Set d = CreateObject("scripting.dictionary")
       For j = LBound(TblListBox) To UBound(TblListBox)
         d(TblListBox(j, 3)) = ""
       Next j
       Me.ComboBox1.List = d.keys

Boisgontier

 

[bandimalou]

franchement merci beaucoup a toi BOISGONTIER

Cyril