Remplir combobox en fonction valeur textbox

bonjour le forum,

pouvez vous m'aider svp?

voila mon problème :

je veux remplir une combobox(C10) en fonction de la valeur d'une textbox(T104)

voici le code utiliser a l'heur actuel mais "erreur 1004"

Private Sub UserForm_Initialize()
Dim  cc, li, cel
With Sheets("BD")
  Set cel = .Rows(1).Find(T104, , , xlWhole)
     If Not cel Is Nothing Then li = cel.Column Else Exit Sub
       cc = .Range(.Cells(li, 1) & .Range(.Cells(li, Rows.Count)).End(xlUp).Row)
End With
    C10.List = cc
  End Sub 

merci au forum et a ceux qui voudront m'aider!!

a+

Bonjour

Tu devrais joindre ton fichier.

Bye !

bonjour,

ci joint mon fichier teste

merci

Bonjour,

Option Compare Text
Dim TblBD(), choix(), condition()
Private Sub UserForm_Initialize()
   choix = [Tableau1].Columns(2).Value
   condition = [Tableau1].Columns(1).Value
   TblBD = [Tableau1].Value
End Sub

Private Sub TextBox1_Change()
   Dim choix2()
   clé = Me.TextBox1 & "*"
   For i = 1 To UBound(choix)
     If condition(i, 1) Like clé Then n = n + 1: ReDim Preserve choix2(1 To n): choix2(n) = choix(i, 1)
   Next i
   If n > 0 Then
      Me.ComboBox1.List = choix2
      Me.ComboBox1.DropDown
   Else
      Me.ListBox1.Clear
   End If
End Sub

Private Sub ComboBox1_Click()
  Dim Tbl()
  For i = 1 To UBound(TblBD)
     If TblBD(i, 2) = Me.ComboBox1 Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
        For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
     End If
   Next i
   Me.ListBox1.Column = Tbl
End Sub

Ceuzin

bonjour ceuzin, le forum

merci pour ta solution mais tu as mal compris ce que je voulais

1) il ne faut rien changer dans ma listbox(L1) car je ne veux aucunement la filtrer

2) les données que je veux envoyer dans ma combobox (C10) ce trouve dans la feuille BD et les entete des colonne chercher ce trouve dans la textbox (T104)

3) je veux pas convertir ma base de données client en tableau

ce fichier sert uniquement d'exemple pour vous permettre de m'aider a faire juste ce don j'ai besoin .

merci pour votre compréhension

je vous explique le fonctionnement de mon formulaire pour etre plus claire,

1) ouvrez le formulaire

2) clique dans la listbox(L1)la la textbox ce charge et c'est avec cette valeur charger dans la textbox que je veux alimenter ma combobox.

cf pj

Ceuzin

re ceuzin , le forum

dans ma combobox je veux les valeur de la feuille BD pas celui de la feuille BDclient ,

et ces valeurs devront changer si je sélectionne un client différent, je sais pas si je suis claire dans mes explications poser moi des questions sinon

merci

Bonjour

modification de userform1

et regarde aussi le userform2

A+

Maurice

cf PJ

Ceuzin

re ceuzin , le forum,

super je te remercie infiniment pour ton code c’était exactement sa que je voulais !! merci encore

merci a toi aussi archer !!