Liste en Cascade - Recherche Libre

[Myriam4m]

Bonjour à tous,

J’ai un petit soucis que je n’arrive pas à résoudre malgré toutes mes recherches dans le forum,
Ca s’apparente à une liste déroulante en cascades mais à la différence que : je recherche un moyen de taper des lettres dans une liste (qui se trouve dans un userform)
et qu’elle me présélectionne tous les mots contenant ces lettres mais qu’elles soient au début ou n’importe ou dans le mot.

Par exemple : je tape « ter », la liste doit me présélectionner parmi toute une liste tous les termes contenant « ter » comme « terre » ou « internet » ..

Je vous joins un fichier exemple.

Merci pour votre aide,

 

[BOISGONTIER]

Re : Liste en Cascade - Recherche Libre

Bonjour,

Voir PJ

Private Sub TextBox1_Change()
 Me.ListBox1.Clear
 For Each c In [mots]
   If UCase(c) Like "*" & UCase(Me.TextBox1) & "*" Then
     Me.ListBox1.AddItem c
   End If
 Next c
End Sub

Private Sub CommandButton2_Click()
  If Me.ListBox1 <> -1 Then
    Insertorder.TextBox6 = Me.ListBox1
    Unload Me
  End If
End Sub

JB
Formation Excel VBA JB

 

[pierrejean]

Re : Liste en Cascade - Recherche Libre

bonjour Myriam

En supposant que j'aie compris et qu'il s'agisse bien de l'userform Client
Nb : j'ai nommé ta liste : Liste

Salut JB désolé pour la collision

 

[Myriam4m]

Re : Liste en Cascade - Recherche Libre

C'est exactement ce que je souhaitai !!! Merci beaucoup à tous les 2,

je butais sur ce pb depuis 1 semaine,et en un clic c'est réglé ;-)

Merci encore,

Myriam