Conflit textbox et combobx dans listbox

Bonjour,

je poste un sujet déjà présent ici

https://forum.excel-pratique.com/applications/devis-pour-charpente-metallique-et-autres-t25106.html

mais comme j'ai une question plus précise, je le met aussi ici.

Je voudrai mettre une combobox qui restreigne les choix proposés dans la listbox1 en fonction de l’option qu'on a choisi dans la combobox.

il y a déjà une textbox ou l'utilisateur tape un texte qui restreint la listbox1.

j'ai deja tenté quelque chose mais il y a un conflit entre textbox et combobox

Il faudrait que après avoir choisit une option dans la combobx, quand on tape un texte dans la textbox, la listbox1 se mette à jour en fonction de la combo et de la textbox

Private Sub UserForm_Initialize()
 Me.ListBox1.List = [Liste].Value
  'definir les valeurs de la listbox1 à partir d'une [Liste]
End Sub
[ligne][/ligne]

Private Sub TextBox1_Change()
   Me.ListBox1.Clear
'réinitialise la listbox1
   For Each c In [Liste]
     If UCase(c) Like UCase(Me.TextBox1) & "*" Then Me.ListBox1.AddItem c
  Next c
'compare chaque élément de la [liste] à la textbox et l'ajoute à listbox1 si similaire
End Sub
[ligne][/ligne]

Private Sub ListBox1_Click()
  ActiveCell = Me.ListBox1
  Unload Me
'quitte et fait prendre la valeur de la listbox1 quand on clique dessus
End Sub
[ligne][/ligne]

Private Sub ComboBox1_Enter()

ComboBox1.Clear
Me.ListBox1.Clear
ComboBox1.AddItem "choix1"
ComboBox1.AddItem "choix2"
'l'utilisateur choisit choix1 ou choix2 dans la liste déroulante
End Sub
[ligne][/ligne]

Private Sub ComboBox1_DropButtonClick()
Me.ListBox1.Clear
'réinitialise
For Each c In [Liste]
     If UCase(c) Like "*" & UCase(Me.ComboBox1) & "*" Then Me.ListBox1.AddItem c
  Next c
'compare chaque élément de la [liste] à la combobox (choix1 ou choix2) et l'ajoute à listbox1 si contient choix1 ou choix2
End Sub

je pense que mon problème vient de la commande clear qui efface à chaque fois la liste...

merci

Bonjour

Un essai

impeccable merci beaucoup.

c'est tout à fait ce que je voulais.