Ville suivant le code postal

Bonjour le forum,

J'ai un fichier ou ce trouve les codes postaux de Belgique

J'aimerais que lorsque dans le userform j'inscris le code postal d'une ville dans le textBox "Code Postal",

il affiche automatiquement la ville correspondante dans le textbox "Ville"

d'avance merci

Amicalement

Crole18

112zipcodes-num-fr.zip (78.49 Ko)

Bonjour,

Le problème est que tu peux avoir plusieurs possibilités !

Voici une version à tester.

216zipcodes-num-fr.zip (75.04 Ko)

Bonjour Steelson,

Wouah! tout simplement génial

Merci 1000 fois

Bonne journée

Crole18

Bonjour,

Sur Exit des TextBox, marche dans les deux sens (code postal ou nom de ville) :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Localités par code postal"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    Set Cel = Plage.Find(TextBox1.Text, , xlValues, xlWhole)

    If Not Cel Is Nothing Then TextBox2.Text = Cel.Offset(, 1).Value

End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Localités par code postal"): Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With

    Set Cel = Plage.Find(TextBox2.Text, , xlValues, xlWhole)

    If Not Cel Is Nothing Then TextBox1.Text = Cel.Offset(, -1).Value

End Sub

Merci Theze

Cela me convient aussi mais comme le disait Steelson, il y a des

code postaux qui désignent plusieurs villes.

Amicalement

Crole18

Intéressant ton code Theze ! je vais me le garder (pour un autre usage car ici il peut y avoir des alternatives)

Bonjour

une autre astuce avec une listview A voir

par CP ou Ville

A+

Maurice

149zipcodes-num-fr.zip (84.13 Ko)

Merci Archer,

Merci Ceuzin,

Un tout grand merci pour votre aide

Passé une bonne soirée

à + sur le forum

Amicalement

Bruno

Rechercher des sujets similaires à "ville suivant code postal"