Alimentation dynamique Combobox

Version imprimable

27/02/2012, 18h26
aj3309

Alimentation dynamique Combobox

Bonjour,
En VBA pour excel 2010 j'ai le fichier texte des 36000 communes de France avec le code INSEE de la commune.
J'ai chargé ce fichier en mémoire et j'ai écrit une recherche dichotomique sur la table correspondant à ce fichier.
Je veux me servir de cette table pour que sur un userform un utilisateur puisse retrouver rapidement une commune en ne tapant
que les premières lettres du nom de la commune.
L'idéee toute simple est d'utiliser un combobox et d'alimenter dynamiquement la liste déroulante au fur et a mesure des caractères frappés par l'utilisateur.
Je cherche une bonne stratégie de gestion des évènements pour faire face aux comportements imprévisibles de l'utilisateur remplissant sa zone de saisie.
Je cherche quelqu'un qui s'est déjà frotté à ce genre de situation.
D'avance merci

Bonsoir,

Je pense qu'une ListeBox avec une Textbox serait plus indiqué. Le texte est entré dans le TextBox et la liste triée est indiquée dans la ListeBox, une fois le commune trouvée, l'utilisateur peux cliquer dans la ListBox afin de récupérer son choix. Je n'est pas utiliser la propriété "Filter" du tableau car le résultat n'était pas probant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
'au niveau module pour être utilisé par les différentes proc de la Form
Dim TblVilles() As String
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim I As Long
 
    'la plage se trouve en colonne A à partire de A2 (A1 = entête) de la feuille nommée "Villes" (<- adapter)
    With Worksheets("Villes")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'dimensionne le tableau à la plage
    ReDim TblVilles(1 To Plage.Count)
 
    'rempli le tableau
    For I = 1 To Plage.Count
 
        TblVilles(I) = Plage(I)
 
    Next I
 
End Sub
 
Private Sub TextBox1_Change()
 
    Dim I As Long
 
    'vide la liste à chaque fois
    ListBox1.Clear
 
    'si le textbox n'est pas vide
    If TextBox1.Text <> "" Then
 
        'boucle sur le tableau et recherche la correspondance
        For I = 1 To UBound(TblVilles)
 
            If UCase(Left(TblVilles(I), Len(TextBox1.Text))) = UCase(TextBox1.Text) Then
 
                'si trouvé, rempli la listbox
                ListBox1.AddItem TblVilles(I)
 
            End If
 
        Next I
 
    End If
 
End Sub
 
Private Sub ListBox1_Click()
 
    'pour récupérer le choix dans la liste
    MsgBox ListBox1.Text
 
End Sub

Hervé.

28/02/2012, 00h07
alidroos

Bonjour
Si, par exemple le nombre de colonnes 20
S'il vous plaît aviser
8O