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

 

[Yaloo]

Re : USF code postal et ville

Bonjour Ronibo,

Perso je préfère travailler dans l'autre sens, ComboBox pour le code postal et TextBox pour la ville.

Vois ton fichier modifié ci-dessous (uniquement pour nouveau client).

A+

Martial

 

[Yaloo]

Re : USF code postal et ville

Re,

Sinon, tu as pas mal d'exemple sur le site de JB tu cherches liste en cascade ou code postal.

A+

 

[RONIBO]

Re : USF code postal et ville

Bonjour Yaloo,

Merci pour le fichier et le lien

Ta méthode peu être bonne, mais comment je fais si il y a plusieurs ville pour le même code postal?

A+

 

[VIARD]

Re : USF code postal et ville

Bonjour RONIBO, Yaloo et à tous

Je ne sais si cela pourra résoudre ton problème.
Mais j'ai réalisé un programme sur les codes postaux de France et de Navarre.
Par nom ou par code.
Il est un peu gros pour passé ici même zippé.
Tu m'envoies émail en mp pas de souci.

Salutation

Jean-Paul

 

[youky(BJ)]

Re : USF code postal et ville

Bonjour Tous,
Voici un fichier qui mets la ville en fonction du code postal
Attention j'ai pas mis toutes les villes de France mais seulement 4 départements.
Il suffit de rajouter les codes et villes à la suite si d'autres départements.
Ou bien encore pomper les codes.
Au départ le fichier est prévu pour faire des étiquettes ou enveloppes.....
Bruno

 

[RONIBO]

Re : USF code postal et ville

Bonjour le fil,

Viard : Je t'ai bien envoyé mon adresse par mp

youky(BJ) : Merci pour ton fichier, c'est s'que je veux, mais j'ai essayé de l'intégrer dans mon fichier je me retrouve avec plein d'erreurs

a+

 

[youky(BJ)]

Re : USF code postal et ville

Donc voici de retour ton fichier
CP mis en format text avec le zéro exemple 01600
Pas touché en modif, c'est à toi de bosser.
Bruno

 

[RONIBO]

Re : USF code postal et ville

Re,

Merci Bruno, c'est parfait !

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)

 

[RONIBO]

Re : USF code postal et ville

Bonsoir,

Vous avez pas une idée?

 

[Yaloo]

Re : USF code postal et ville

Re,

Tout simplement

[A4] = TCodePostalVille & " " & TVille

A+

 

[RONIBO]

Re : USF code postal et ville

Re

Merci Yaloo

Et si je veux faire la même chose pour les lignes 5,6,7,8 etc

Je suis obliger de faire la même chose?

 

[Yaloo]

Re : USF code postal et ville

Re,

Il suffit de changer [A4] par [A5], [A6], etc...

 

[RONIBO]

Re : USF code postal et ville

Re,

En faite j'ai plus de 80 clients

A+

 

[youky(BJ)]

Re : USF code postal et ville

Bonsoir,
Une rectif à faire dans la macro du bouton Ajouter
Un copier coller de toute la macro et hop !

Private Sub BAjouter_Click()
Dim Ctrl As Control
Dim DerLigne As Long
If Trim(Me.TNom) = "" Then
Me.TNom.BackColor = vbRed
MsgBox "Veuilez renseigner au moins le nom de la société", vbInformation, "Attention"
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets("Clients")
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
If Val(Ctrl.Tag) > 0 Then
    If Val(Ctrl.Tag) = 3 Then
     .Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl & " " & TVille
    Else
     .Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl
    End If
End If
End If
Next
Trier
   .Visible = xlSheetVisible
   .Copy
   .Visible = xlSheetVeryHidden
End With
With ActiveWorkbook
Application.DisplayAlerts = False
   .SaveAs Filename:=Chemin & Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   .Close
End With
Me.TNom.BackColor = vbWhite
Unload Me
End Sub

Bruno