Ville suivant le code postal Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 15 août 2018, 11:19

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
zipcodes_num_fr.xls
(290 Kio) Téléchargé 111 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'049
Appréciations reçues : 890
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 15 août 2018, 11:34

Bonjour,

Le problème est que tu peux avoir plusieurs possibilités !
Voici une version à tester.
zipcodes_num_fr.xls
(269 Kio) Téléchargé 204 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 15 août 2018, 11:39

Bonjour Steelson,

Wouah! tout simplement génial
Merci 1000 fois
Bonne journée
Crole18
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 15 août 2018, 11:41

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
1 membre du forum aime ce message.
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 15 août 2018, 11:52

Merci Theze
Cela me convient aussi mais comme le disait Steelson, il y a des
code postaux qui désignent plusieurs villes.

Amicalement
Crole18
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'049
Appréciations reçues : 890
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 15 août 2018, 11:53

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

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'049
Appréciations reçues : 890
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 15 août 2018, 11:53

@Crole

:btres:

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
a
archer
Membre impliqué
Membre impliqué
Messages : 1'267
Appréciations reçues : 104
Inscrit le : 8 avril 2017
Version d'Excel : 2010

Message par archer » 15 août 2018, 15:34

Bonjour
une autre astuce avec une listview A voir
par CP ou Ville
A+
Maurice
zipcodes_num_fr.xls
(294.5 Kio) Téléchargé 147 fois
c
ceuzin
Membre dévoué
Membre dévoué
Messages : 563
Appréciations reçues : 24
Inscrit le : 29 octobre 2011
Version d'Excel : 2002

Message par ceuzin » 15 août 2018, 15:58

Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 15 août 2018, 17:46

Merci Archer,
Merci Ceuzin,

Un tout grand merci pour votre aide
Passé une bonne soirée
à + sur le forum
Amicalement
Bruno
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message