XL 2019 Besoin de votre aide svp ... Excel ville code postal

[isabelle646464]

Bonjour a tous,

Je cherche a créer une feuille avec les coordonnées client, le code postal et la ville.
J'aimerais que lorsque le code postal est saisi, la case ville soit sous forme de liste déroulante et propose les différentes villes correspondantes au code postal.
J'ai vu beaucoup de tuto, lu des discussions sur des forums...mais je suis toujours bloquée.
Le fichier ci-joint regroupe en seconde feuille la base des codes postaux de l'INSEE, la première feuille étant la feuille ou je souhaite saisir le CP et voir la liste déroulante de ville s'afficher.
Quelqu'un pourrait-il m'expliquer simplement les étapes pour réaliser ça svp ?
Ou me mettre un exemple sur le fichier ci-joint ?
Merci d'avance pour vos réponses !
Isabelle

 

[sylvanu]

Bonjour Isabelle,
En PJ un essai qui marche.
Librement inspiré du post paru sur XLD :

Créer une liste déroulante de "Villes" correspondant à un "Code Postal" donné

Bonjour à tous, Voilà, je souhaiterais créer une liste déroulante de "Villes" correspondant à un "Code Postal" donné (liste source Code postaux/Villes figurant sur une deuxième feuille). Je n'arrive pas à trouvrer la solution seul et je vous remercie de me donner un petit coup de main...

www.excel-downloads.com

Vous avez un pdf qui explique la marche à suivre écrite par Modeste.

 

[isabelle646464]

Mille merci ! Il ne me reste plus qu'a bien comprendre
Très bonne soirée à vous !

 

[job75]

Bonsoir isabelle646464, sylvanu,

Pas compris pourquoi sylvanu donne cet exemple car il n'y a pas de macro...

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille "bddclient" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
[D:D].Validation.Delete 'RAZ
[G:G].ClearContents 'RAZ
If Target.Count > 1 Or Not (Target(1) Like "####" Or Target(1) Like "#####") Then Exit Sub
Dim code&, tablo, lig&, i&
code = Target
tablo = Sheets("codepostal").[A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
lig = 1
Application.EnableEvents = False 'désactive les évènements
For i = 2 To UBound(tablo)
    If tablo(i, 2) = code Then Cells(lig, "G") = tablo(i, 1): lig = lig + 1
Next
Application.EnableEvents = True 'réactive les évènements
If lig = 1 Then Exit Sub
With [G1].Resize(lig - 1)
    Target(1, 2).Validation.Add xlValidateList, Formula1:="=" & .Address
    .Sort .Cells(1), xlAscending, Header:=xlNo 'tri
End With
Target(1, 2).Select
CreateObject("wscript.shell").SendKeys "%{DOWN}" 'déroule la liste
End Sub

Elle se déclenche quand on renseigne le code postal en colonne C

PS : il y a des doublons dans la liste des villes, ce n'est pas normal...

A+

 

[sylvanu]

Re bonsoir, Bonsoir Job,
Pourquoi vouloir mettre une macro quand ce n'est pas utile.
Isabelle veut la liste des villes correspondant à un code postal dans une liste déroulante.
Le post de Modeste est pertinent puisqu'il correspond au besoin, j'ai juste adapté au format d'Isabelle.

car il n'y a pas de macro

... parce que ce n'est pas utile.

 

[job75]

J'avoue ne pas comprendre, dans la feuille "bddclient" il y aura beaucoup de lignes.

Donc il faut une macro pour fonctionner sur n'importe quelle ligne.

 

[sylvanu]

La demande est qu'avec le code postal, une liste déroulante permette d' avoir le choix entre les villes/villages ayant le même code postal.
Vous ne pouvez pas le faire en VBA, seul l'utilisateur peut faire le choix.
Ex : le code postal 011090 correspond à 8 villes :

Ensuite combien de lignes y aura t-il dans bddclient. Seule Isabelle peut répondre.

 

[job75]

La demande est qu'avec le code postal, une liste déroulante permette d' avoir le choix entre les villes/villages ayant le même code postal.

C'est ce que fait ma macro pour n'importe quelle cellule de la colonne C de "bddclient".

Ta solution manuelle doit être refaite sur chaque cellule, ça ne va pas.

Allez bonne nuit.

 

[sylvanu]

Il suffit de tirer la cellule vers le bas.

ça ne va pas

C'est au demandeur de se positionner.
Mais une telle macro versus tirer une cellule, tout dépendra du niveau d'Isabelle en VBA.
Car il faut toujours penser maintenance.

 

[job75]

Oui désolé, pas besoin de VBA puisque la liste des codes postaux est triée.

 

[GALOUGALOU]

bonsoir isabelle 646464, bonsoir sylvanu, bonsoir job75, bonsoir le fil
et oui ce que je propose ne correspond pas à la demande, mais j'avais réfléchi il y a bien longtemps maintenant, à une problématique identique, aussi j'avais envie de vous la proposer (richesse de solution ne nuira pas à isabelle646464).

dans la feuille bddclient, un double-clic sur une cellule colonne C ouvre une boite de dialogue.
la saisie partielle ou complète du code postal ou de la ville, fait apparaitre la totalité des résultats avec des occurrences identiques.
sélectionner avec la souris le résultat souhaité, et valider pour compléter la feuille. (faite un essai avec le mot Provence)

cordialement
galougalou

 

[sylvanu]

Bonsoir Galougalou,
Hé hop, aux archives.
Et en plus ça peut marcher avec n'importe quoi, tant qu'on a une colonne nombre et une colonne données.
D'après ce que j'ai vu, la liste nombre n'a pas à être triée ?

 

[GALOUGALOU]

totalement, le tri de la colonne nombre est inutile. (Mais il faut que les nombres soit au format texte)
je suis passé ce soir par hasard, content que ça te plaise
@+

 

[casou]

Bonjour Isabelle,
En PJ un essai qui marche.
Librement inspiré du post paru sur XLD :

Créer une liste déroulante de "Villes" correspondant à un "Code Postal" donné

Bonjour à tous, Voilà, je souhaiterais créer une liste déroulante de "Villes" correspondant à un "Code Postal" donné (liste source Code postaux/Villes figurant sur une deuxième feuille). Je n'arrive pas à trouvrer la solution seul et je vous remercie de me donner un petit coup de main...

www.excel-downloads.com

Vous avez un pdf qui explique la marche à suivre écrite par Modeste.

Hello, merci beaucoup de partager vos connaissances ici !
Y a-t-il moyen d'afficher les villes par ordre alphabetique dans cette liste déroulante svp?
/

 

[casou]

Hello, merci beaucoup de partager vos connaissances ici !
Y a-t-il moyen d'afficher les villes par ordre alphabetique dans cette liste déroulante svp?