faire correspondre code postal ville dans userform

[stephlinternaute1]

bonjour au forum

est il possible de faire correspondre un code postal a une ville automatiquement

ex : je saisie 75000 dans une textbox et hop dans la textbox a coté j'ai la ville qui apparait

d'avance merci

 

[ChTi160]

Re : faire correspondre code postal ville dans userform

Salut stephlinternaute1
Bonjour le Forum

Arff tu ne trouves pas que c'est un peu légé ,donc je vais faire aussi légé Lol
Oui c'est possible !!!!!!

Bonne fin de Journée

 

[dixit]

Re : faire correspondre code postal ville dans userform

bonjour,
oui c'est possible à condition de disposer d'une liste de concordance quelquepart (ou alors avec la baguette de Harry Potter ...).

 

[stephlinternaute1]

Re : faire correspondre code postal ville dans userform

je voulais juste savoir si c'etait possible
ok !

merci

ca c'etait la premiere question, la deuxieme est comment fait-on ???


oui j'ai une feuille ou j'ai plusieurs colonnes dont une codepostal et l'autre ville (les codes sont en face de la ville correspondante)

merci

 

[jeanpierre]

Re : faire correspondre code postal ville dans userform

Bonjour stephlinternaute1, ChTi160, dixit, le forum,

Regardes ce fil, entre autres (trouvé avec la Recherche, bandeau en haut)

https://www.excel-downloads.com/threads/code-postaux-et-villes.75032/


Bonne journée.

Jean-Pierre

 

[stephlinternaute1]

Re : faire correspondre code postal ville dans userform

merci jean pierre

le soucis est que je veux l'utiliser dans un userform

et je ne sais pas faire le reprochement entre le fichier que tu m'as montré et le code dans un userform

merci

 

[jeanpierre]

Re : faire correspondre code postal ville dans userform

Re,

Désolé, j'ai encore lu trop vite.

Dans un USF, je ne sais pas faire.

Edit : peut-être que si tu mettais ton fichier....

 

[wilfried_42]

Re : faire correspondre code postal ville dans userform

bonjour à tous

textbox1 contient ton code postal
textbox2 recoit la ville
recheche dans la feuille codespostaux
Codes postaux dans la colonne A (en format numerique)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      Dim cel as range
      Set cel = Sheets("Codespostaux").Range( "A:A").Find(val(textbox1.text), Lookat:=xlWhole)
      textbox2.text = format(sheets("Codespostaux").range("B" & cel.row).value,"00000")
End Sub

 

[dixit]

Re : faire correspondre code postal ville dans userform

bonjour à tous,
voici une suggestion
voir fichier joint à message çi-dessous

 

[stephlinternaute1]

Re : faire correspondre code postal ville dans userform

voila ce que j'ai fait par rapport au code ci dessus

Private Sub TextBox31_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      Dim cel As Range
      Set cel = Sheets("données").Range("r:r").Find(Val(TextBox31.Text), Lookat:=xlWhole)
      TextBox2.Text = Format(Sheets("données").Range("s" & cel.Row).Value, "00000")
End Sub

evidemment ca marche pas !!! j'ai du me planter qq part

pour info
textbox31 = saisie du code postal
textbox2 = ville
nom de la feuilles "données" les codepostaux sont en colonnes S2 et les villes en R2

merci

 

[dixit]

Re : faire correspondre code postal ville dans userform

re
c'est peut-être inutile, mais j'ai mis ma version à jour.

 

[stephlinternaute1]

Re : faire correspondre code postal ville dans userform

merci dixit

je vais essayé (car je debute) de l'adapter, je ne veux pas qu'on voit tous les codes, il faut que la personne saisisse directement le code

je te tiens au courant

encore merci

 

[stephlinternaute1]

Re : faire correspondre code postal ville dans userform

c'est bien ce que je veux, mais comme je te le dis plus haut, il faut que la personne saisisse le code, il ne faut pas qu'il soit apparant
la ville doit apparaitre automatique sans avoir a valider

merci

 

[dixit]

Re : faire correspondre code postal ville dans userform

a priori, je ne sais pas faire
bon courage

 

[ChTi160]

Re : faire correspondre code postal ville dans userform

Salut stephlinternaute1
Bonsoir le fil

En pièce jointe une autre approche Lol

Le Fichier :Regarde la pièce jointe stephlinternauteV2.xls

Bonne fin de Soirée