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

INFINITY100 · 8 Avril 2015

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 · 8 Avril 2015

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)

Code:

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 · 8 Avril 2015

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 🙂

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

INFINITY100

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

INFINITY100

XLDnaute Occasionnel

Discussions similaires

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

INFINITY100

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

INFINITY100

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency