Recherche intelligente dans la zone de liste modifiable d'un USERFORM

[INFINITY100]

Bonsoir à tous

Voila je suis face à un problème auquel je souhaiterai trouver la solution dans le forum, en effet je veux réaliser une macro qui cherche les verbes de façon intelligente dans un menu d'un Userform

je joins le fichier afin d’être plus claire

Merci à vous tous

 

[BOISGONTIER]

Re : Recherche intelligente dans la zone de liste modifiable d'un USERFORM

Bonsoir,

cf PJ

La recherche intuitive dans le combobox se fait sur les lettres contenues (ou premières lettres)
Faisable sur les premières lettres seulement ( cf Listes intuitive formulaire)

Dim f, choix1()
Private Sub UserForm_Initialize()
 Set f = Sheets("liste des verbes")
  choix1 = Application.Transpose(f.Range("a2:A" & f.[A65000].End(xlUp).Row))
  Me.combobox1.List = choix1
End Sub

Private Sub ComboBox1_Change()
 If Me.combobox1.ListIndex = -1 And IsError(Application.Match(Me.combobox1, choix1, 0)) Then
   Me.combobox1.List = Filter(choix1, Me.combobox1.Text, True, vbTextCompare)
   Me.combobox1.DropDown
  Else

  End If
End Sub

JB

 

[INFINITY100]

Re : Recherche intelligente dans la zone de liste modifiable d'un USERFORM

Merci infiniment BOISGONTIER

c'est ce que j'appel du beau travail cette macro me convient très bien

Merci encore mon ami 🙂