faire correspondre code postal ville dans userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stephlinternaute1

XLDnaute Nouveau
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
 
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
 
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)
Code:
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
 
Re : faire correspondre code postal ville dans userform

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

Code:
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
 
Re : faire correspondre code postal ville dans userform

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
165
  • Question Question
Microsoft 365 Carte géogrpahique
Réponses
6
Affichages
245
Réponses
4
Affichages
107
Réponses
17
Affichages
929
Réponses
3
Affichages
400
Retour