Saisie dans un ComboBox

Version imprimable

24/03/2017, 10h26
jwerquin

Saisie dans un ComboBox

Bonjour à tous et à toutes,
Voici mon questionnement :
J'ai une feuille de calcul contenant des adresses standard, avec une colonne VILLE.
J'ai d'autre part une UserForm contenant une ComboBox pour rechercher une de ces adresses. La RowSource est bien définie, et quand j'utilise le formulaire, la ComboBox fonctionne bien et si je saisis à la main le début d'une ville, en majuscule ou en minuscule, j'ai bien des propositions qui s'affichent dans la ComboBox. Le problème, c'est que certaines villes sont des noms composés, comme par exemple "LE BOSQUEL", ou "SAINT-QUENTIN", ce qui complique la recherche. Je voudrais que les propositions faites par la ComboBox fonctionnent sur une partie du nom ( j'écris BOSQUEL, et la ComboBox me propose LE BOSQUEL). Quelqu'un aurait-il une idée ?
Merci d'avance.
Jean-Luc Werquin
24/03/2017, 11h02
unparia

Bonjour
Pour faire cela, tu ne peux échapper à une boucle --->> lent et à surtout éviter de mettre dans l'évènement change (déclenché, lui, à chaque frappe, de chaque caractères).

Bonjour,
Je te propose une idée, mais je ne l'ai pas testée et je ne sais pas du tout si ça marche :mrgreen:
Comme tu veux changer la liste de ta combobox quand tu changes la valeur dans la combobox, je propose que tu travailles dans le sub ComboBox1_Change (à adapter selon le nom de ta combobox).

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
    Dim val As String
    Dim i As Integer
    val = ComboBox1.Value
    ComboBox1.Clear         'on enlève les éléments de la liste
    For i = 1 To 100           'bouclé sur tous les éléments de la liste
        If Sheets("Source").Range("A" & i).Value Like "*" & val & "*" Then                 'si l'élément contient le mot tapé
            ComboBox1.AddItem Sheets("Source").Range("A" & i).Value                      'on l'ajoute à la liste
        End If
    Next i
End Sub

24/03/2017, 11h22
Marc-L

Bonjour,

du même avis que unparia (Salut Jacques ! Et bise à l'étudiante bien active sur ce forum, félicitations !),
afin que cela soit un peu plus rapide charger l'intégralité des données dans une variable tableau et,
à partir d'au moins trois caractères entrés, utiliser la fonction VBA Filter …

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

3 pièce(s) jointe(s)

Bonjour,

Exemple de recherche intuitive dans un ComboBox:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim a()
Private Sub UserForm_Initialize()
  a = Application.Transpose([liste])
  Me.ComboBox1.List = a
End Sub
 
Private Sub ComboBox1_Change()
 If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
   Me.ComboBox1.List = Filter(a, Me.ComboBox1, True, vbTextCompare)
   Me.ComboBox1.DropDown
 Else
   ActiveCell = Me.ComboBox1
   Unload Me
 End If
End Sub

Pour d'autres exemples, faire une recherche Google: recherche intuitive combobox

Boisgontier