USF code postal et ville

[RONIBO]

Bonjour le forum,

Je possède d'un USF qui me permet d'enregistrer mes clients nouveau (données bruts) sur une feuille (nommé Client)

C'est un petit formulaire basique avec, le nom, adresse, code postal, ville téléphone et adresse mail.

J'aimerais automatisé la saisie des villes grâce aux codes postaux.

Je vais être plus précis, lorsque je saisie un code postal dans l'USF "NouveauClient" et "ModifierClient" j'aimerais que la ville se mette automatiquement, (ou choisir grâce à une liste déroulante la ville si il y a plusieurs code postaux identiques)

J'aimerais également mettre le contenu du textbox (code postal) et le Combobox (Ville) dans une même cellule

Exemple : Cellule "C4" de la feuille "Clients" :

Textbox (code postal) + Combobox (ville)

Merci d'avance aux personnes qui vont se pencher sur mon problème

 

[RONIBO]

Re : USF code postal et ville

Re,

youky(BJ) : Merci beaucoup

Est ce que tu peux faire la même chose pour l'USF "ModifierClient" s'il te plait

A+

Ce lien n'existe plus

 

[youky(BJ)]

Re : USF code postal et ville

Salut,
Dommage de pas chercher avec plus de persévérance.
J'ai mis le code dans ton fichier . . . .
Bruno

 

[RONIBO]

Re : USF code postal et ville

Salut Bruno,

Merci infiniment

Je rencontre juste un petit souci,

Lorsque j'essaye de modifier un client et que je saisie le code postal, dans le combobox j'ai pas de données (vide)

Tu peux voir stp

Merci

A+

 

[youky(BJ)]

Re : USF code postal et ville

Exact,
Petite différence dans les fichiers.
Remplace dans ta macro Feuil3 par Feuil5 que j'ai mis en rouge ici.
Bruno

Private Sub TCodePostal_Change()
Dim c, firstAddress
If Len(TCodePostal.Text) = 5 Then
CVille.Clear
With Feuil5.Range("A2:A" & Feuil5.[A65536].End(3).Row)
Set c = .Find(TCodePostal, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
CVille.AddItem c.Offset(0, 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
CVille.SetFocus
End If
End Sub

 

[RONIBO]

Re : USF code postal et ville

Re,

Merci Bruno

A+