Option Explicit
Private TIngr(), Sujet, SujFlt
Private Sub UserForm_Initialize()
TIngr = [Tableau2[Ingrédients]].Value
Sujet = SujetCBx(TIngr)
SujFlt = Sujet
Me.Ingr1.List = SujFlt(0)
End Sub
Private Sub Ingr1_Change()
If Not Ingr1 Is Me.ActiveControl Then Exit Sub
If Ingr1.MatchFound Or Ingr1.Text = "" Then Exit Sub
Dim S ' Sujet temporaire pour recherche intuitive
S = SujCBxLike(Sujet, "*" & Ingr1.Text & "*")
If IsEmpty(S) Then Exit Sub
SujFlt = S ' Affectation du sujet temporaire.
Me.Ingr1.List = SujFlt(0)
Ingr1.DropDown ' Affichage de la liste
End Sub