Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
 
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 ...).
 
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

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....
 
Dernière édition:
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

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
 
- 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
108
Réponses
17
Affichages
931
Réponses
3
Affichages
400
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…