Recherche dans une combobox

[flo189]

Bonjour à tous,

Dans une combobox j'ai une liste de environ 320 données, je voudrais savoir si il était possible lors de sélection en tapant le texte, de pouvoir rechercher par mot contenu et non par mot exact.

Je m'explique quand je tape le texte dans ma combobox, il me remonte la donnée exacte. Hors sur certaines données si je saisi mal le texte la donnée ne me remontera pas (puisque j'ai saisi approximativement).

En espérant que quelqu’un puisse m'aider.


Merci à tous

 

[job75]

Re : Recherche dans une combobox

Bonjour flo189,

Vous pouvez prévoir un bouton ActiveX avec ce code :

Option Compare Text 'la casse est ignorée

Private Sub CommandButton1_Click()
Dim tablo, t
If ComboBox1 = "" Then Exit Sub
tablo = [A1:A320] 'plage de la liste de la Combobox
For Each t In tablo
  If InStr(t, ComboBox1) Then
    ComboBox1 = t
    ComboBox1.DropDown 'déroule la liste
    Exit For '1ère occurence
  End If
Next
End Sub

Option Compare Text est à placer en haut du Module de code.

A+

 

[flo189]

Re : Recherche dans une combobox

Merci beaucoup pour ta réactivité, c'est à dire bouton active X, je ne connais pas

 

[job75]

Re : Recherche dans une combobox

Re,

Si vous voulez un message :

Option Compare Text 'la casse est ignorée

Private Sub CommandButton1_Click()
Dim tablo, t
If ComboBox1 = "" Then Exit Sub
tablo = [A1:A320] 'plage de la liste de la Combobox
For Each t In tablo
  If InStr(t, ComboBox1) Then
    ComboBox1 = t
    ComboBox1.DropDown 'déroule la liste
    Exit Sub '1ère occurence
  End If
Next
MsgBox "Ce texte n'existe pas..."
End Sub

A+

 

[job75]

Re : Recherche dans une combobox

c'est à dire bouton active X, je ne connais pas

Si la ComboBox est dans un UserForm, le contrôle bouton est toujours de type "ActiveX" (CommandButton).

Si la ComboBox est dans une feuille de calcul, l'onglet Développeur vous donne le choix d'insérer des contrôles "Formulaire" ou "ActiveX".

A+