textbox

[Emmanuel]

BONSOIR le forum

Cela fait un moment que cherche le moyen de pouvoir associé
deux textboxs avec un fichier

explication: j'ai deux textboxs, l'un "code postal", l'autre "ville" et mon
fichier avec tout les codes postaux et les villes de france
lorsque je saisi le code postal j'aimerai que la ville s'affiche automatiquement.
n'ayant pas réussi a trouver, Je me rabat sur le savoir faire du forum.
merci d'avance.

Bonne soirée à tous
Emmanuel

 

[JPH]

Voila une demo qui marche avec ton document joint, modifié.
Cordialement

 

[Emmanuel]

Bonjour JPH

Merci beaucoup ça fonctionne très bien.
Une petite question dans cette ligne"Function Recherchevilles(quoi)"
Quelle est la signification de "(quoi)"

Bonne journée
@+emmanuel

 

[LaurentTBT]

Bonjour à tous.

Voici la même chose, peut-être plus simple. Mais je ne sais pas si les puristes trouverons ce code correcte (L'utilise on error si le code postal tapé n'est pas dans la liste, et il faut que l'utilisateur tape uniquement les 5 chiffres, sans espaces)

Private Sub TextBox1_Change()
TextBox2 = ""
If Len(TextBox1) = 5 Then
On Error Resume Next
TextBox2 = Worksheets("ville").Cells.Find(What:=Val(TextBox1)).Cells(1, 2)
End If
End Sub

(code à mettre dans la feuille du userform)

@ +

Laurent

 

[JPH]

Oui Laurent à raison mais tout est une histoire d'interface utilisateur en effet si vous connaissez Muret dans le 31, le choix doit pouvoir s'élargir, aussi en sortant de la plage, sous un soleil caniculaire j'ai été plus loin avec cette nouvelle mouture expliquant mieux le choix de la complexité.
Document joint à regarder
voilà pourquoi ?
Quoi est une variable qui pourrait porter les noms toto, titi, tata, pas What qui est un mot réservé à VBA.
Cordialement

 

[Emmanuel]

bonjour JPH, LaurentTBT

merci pour vos réponse.
C'est exactement ce que je cherchais à obtenir.
merci pour votre aide.

bonne journée
Emmanuel