Recherche donnees VBA dans userform

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

Bonjour,

Voici mon fichier.

Oublier le code du dessus si c'est trop compliquer..;

Dans mon ficher qui fonctionne très bien, j'ai crée un combox3 et une listbox1 qui pour l'instant me sert a rien car je ne trouve pas le code :/

Ce que j'aimerais, c'est dans ma combox3 une liste deroulante pour rechercher la colonne AM

Le problème c'est qu'il y a des doublons, et c'est normal, y peux avoir 10 devis a faire par exemple, il ne faut qu'il s'affiche qu'une seul fois dans ma liste de recherche.

Ce que j'aimerais que sa affiche dans ma list box ce sont les colonnes, AN / AK / B / et I de toutes les lignes de la feuille.

Ce qui me permettra de rechercher tous mes devis a faire et tous le reste.

Si il y aune solution plus simple je suis preneur.

Merci d'avance.

Ci joint:

Bonsoir

Ce que je ne comprends pas c'est que la deuxieme demande est différente de la première

A voir

Parfais c'est exactement sa!

merci bcp:!!

par contre je suis en train de tester mais quand je fais une nouvelle fiche j'ai limpression que sa s'inscrit plus.

j'ai comprit, toutes les données que je rentre ce mette dans accueil, alors que c'est dans DTEL, je le change ou ?

sinon c'est parfait.

Re

C'est de ma faute

j'ai mis en commentaire le changement de feuille lors du chargement de l'userform dans sub afficher

D'accord,

Je le change ou ?

Une dernieres question

es que c'est possible dans la combox3 d'afficher les valeurs de la page CATEG, parce que en faite quand je fais une nouvelle fiche, sa me prendre la 1er ligne, du coup sa ce modifie l'emplacement.

Tu vois ce que je veux dire ?

Bonjour,

Merci j'ai trouvé.