ListBox interactive - Liste des villes d'une province

[blord]

Bonjour à tous,

Dans un userform, j'aimerais placer un listbox qui afficherait une liste de villes.

Comme la liste contient plus de 450 entrées, j'aimerais donner à l'utilisateur la possibilité d'indiquer, d'une façon quelconque, la première lettre de la ville et le listbox n'afficherait que la liste des villes débutant par cette lettre.

Est-ce qu'il est possible de mettre une condition sur le loading d'un listbox qui ne tiendrait compte que de la première lettre ?

Merci pour vos suggestions !

Benoit Lord

 

[antiphot]

Re : ListBox interactive - Liste des villes d'une province

Ci-joint un essai avec un usf contenant un textbox et une listbox (cachée)
Si tu tapes dans le textbox les 1ères lettres des données en colonne F de la feuille, exemple: t
la listbox apparaît avec comme occurence toutes les données commencant par la lettre t.

Cordialement Philippe

 

[job75]

Re : ListBox interactive - Liste des villes d'une province

Bonsoir,

C'est assez simple avec une ComboBox, voir fichier joint :

Dim flag As Boolean 'mémorise la variable

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Charge
If Len(ComboBox1) = 1 Then flag = True: Charge
If Len(ComboBox1) = 2 Then ComboBox1 = Left(ComboBox1, 1)
End Sub

Private Sub UserForm_initialize()
Charge
End Sub

Sub Charge()
Dim cel As Range
ComboBox1.Clear
For Each cel In Range("A2", Range("A65536").End(xlUp))
  If UCase(IIf(flag, Left(cel, 1), ComboBox1)) = UCase(ComboBox1) Then ComboBox1.AddItem cel
Next
flag = False
End Sub

Edit : il est indispensable de donner la valeur 2 à la propriété MatchEntry de la ComboBox.

A+

 

[blord]

Re : ListBox interactive - Liste des villes d'une province

Bonjour Philippe, Job75, le forum,

Merci beaucoup pour votre aide, je vais pouvoir adapter l'une des deux solutions à mon besoin...

C'est très apprécié !

Benoit Lord