XL 2010 Aide sur recherche dans un formulaire vba

[doriandtel]

Bonjour,

Je vous explique mon problème,

j'ai en ce moment un formulaire qui fonctionne très bien.
j'ai crée un 2em Userform qui va me servir de recherche.
J'ai déjà un code, mais il ne fonctionne pas parfaitement

Ce que j'aimerais c'est avoir une liste déroulante avec les termes suivant pour ma recherche.(ComboBox1)

c'est valeur suivante pourront être en douche en triples, même en 10 fois:
mais il faut qu'il sois afficher qu'une seul fois dans ma combobox1

DEVIS A FAIRE
A FAIRE REPARATION
ATTENTE REPONSE
ATTENTE PIECE
A VENIR CHERCHER
TERMINE / SORTIE

Exemple si je clique sur devis a faire, le résultat qui doit s'afficher dans ma lisbox1 sont les colonnes, AK - AM - B et AN, de toutes les lignes de la feuille.
Comme sa je sais les devis que j'ai a faire... et tous le reste.

Voila voila. sa fais 1 semaine que je cherche :/

voici mon code actuel:

Dim f As Worksheet, TblBd, Tb(), d, i As Long, c
Private Sub UserForm_Initialize()
 
Set f = Sheets("DTEL")
  Set d = CreateObject("Scripting.Dictionary")
  TblBd = f.Range("A5:AN" & f.Range("A" & f.Rows.Count).End(xlUp).Row)
  ReDim Tb(1 To UBound(TblBd, 1))
  For i = 1 To UBound(Tb, 1)
    Tb(i) = TblBd(i, 39)
  Next i
  
  For i = 1 To UBound(Tb)
    For Each c In Tb: d(c) = "": Next c
  Next i
  Me.ComboBox1.List = d.keys
 
 ' Me.ComboBox1 = ActiveSheet.[A1]

End Sub

Private Sub ComboBox1_click()
 ListBox1.Clear
 j = 0
 For i = LBound(TblBd) To UBound(TblBd)
   If (InStr(TblBd(i, 39), ComboBox1) > 0 And TblBd(i, 5) Like ComboBox2) _
     Or (Me.ComboBox1 = "*" And TblBd(i, 5) Like ComboBox2) Then
      ListBox1.AddItem
      ListBox1.List(j, 0) = TblBd(i, 2)
      ListBox1.List(j, 1) = TblBd(i, 9)
      ListBox1.List(j, 2) = TblBd(i, 40)
      ListBox1.List(j, 3) = TblBd(i, 37)
      j = j + 1
   End If
  Next i
End Sub

 

[Marc L]

Déjà bien avancé sur un autre forum ‼
​

 

[doriandtel]

Re : Aide sur recherche dans un formulaire vba

bonjour,

Je sais mais toujours pas de solutions :/

 

[Marc L]

Le minimum (de correction) est de mettre un lien sur ton autre discussion afin de voir où tu en es …

​