USF code postal et ville
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
Re,
On m'a proposé un code qui fonctionne plutôt bien,
Private Sub TCodePostalVille_Change()
Dim c, firstAddress
If Len(TCodePostalVille.Text) = 5 Then
TVille.Clear
With Feuil3.Range("A2:A" & Feuil3.[A65536].End(3).Row)
Set c = .Find(TCodePostalVille, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
TVille.AddItem c.Offset(0, 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
TVille.SetFocus
End If
End SubIl me manque plus qu'à 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)
Si quelqu'un à une idée?
a+
Re,
Je vous mets mon fichier avec l'intégration du code ci dessus
Manque plus que le problème cité au dessus
Si quelqu'un peut jeter un œil ça serait gentil
a+
bonsoir Ronibo
est ce raisonnable de te joindre un fichier car tu a quasiment eu ta réponse dans l'autre forum , mais voici
Pascal
Re
Merci pour ton fichier mais ça répond pas a ma question
bonsoir Ronibo
en regardant les codes tu fichier tu aurai vu le bouton ajout et trouvé de toi même
Clients.[C4] = Me.cboCP.Value & " " & Me.lstVille.Valuetu saura au moins changer les noms inscrit par les tiens?
Pascal
Re,
Merci grisan29
Manque plus que l'usf "ModifierClient" et je clôture le post
re
ci joint un fichier client complet avec ajout, modification , suppression et ajout sur feuille rajoute des communes pour que la combo fonctionne
bon courage
Pascal
Bonjour grisan29,
Pourriez vous poster de nouveau le fichier " Classeurclient.xlsm "
Il n'est plus disponible au telechargement, je le vois grisé...
Merci à vous,