Liste déroulante des villes en fonction du code postal EN USERFORM

[nicolas713]

Bonjour,

Je dispose d'un fichier avec l'ensemble des communes et des codes postaux des Bouches du rhône, et je souhaiterais construire un userform permettant de "créer" des clients. Dans ce userform, j'aimerais que l'on tape le code postal et que l'on ait via une liste déroulante la liste des villes se rapportant au code postal.

On voit souvent cela sur les sites web.

Savez vous s'il est possible de le faire sur excel et avez vous des idées ?

D'avance, merci.

PS : Je vous joins mon fichier

 

[BOISGONTIER]

Re : Liste déroulante des villes en fonction du code postal EN USERFORM

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Form_CodesPostaux.xls

Dim f
Private Sub UserForm_Initialize()
  Set MonDico = CreateObject("Scripting.Dictionary")
  Set f = Sheets("bd")
  temp = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  For i = 1 To UBound(temp, 1)
    MonDico(temp(i, 1)) = temp(i, 1)
  Next i
  Me.ComboBox1.List = MonDico.items
End Sub

Private Sub ComboBox1_Change()
  Set code = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  Set ville = f.Range("B2:B" & f.[b65000].End(xlUp).Row)
  d = Application.Match(Val(Me.ComboBox1), code, 0)
  Me.ListBox1.Clear
  For i = d To d + Application.CountIf(code, Val(Me.ComboBox1)) - 1
    Me.ListBox1.AddItem ville(i)
  Next i
End Sub

JB

 

[nicolas713]

Re : Liste déroulante des villes en fonction du code postal EN USERFORM

Merci beaucoup pour votre rapidité ! Ca montre que j'ai encore du boulot ^^ !

 

[nicolas713]

Re : Liste déroulante des villes en fonction du code postal EN USERFORM

Est-il possible de faire la même chose en écrivant le code postal nous même ?

 

[nicolas713]

Re : Liste déroulante des villes en fonction du code postal EN USERFORM

C'est bon, j'ai trouvé tt seul !