Comment faire avec un même code postal pour une autre ville?

Bonjour,

Je suis occupé de refaire une base de donnée et le problème c'est que j'ai fais une recherche v pour trouver faire correspondre le code postal à sa ville.Ça marche mais comment faire si le CP a plusieurs villes?

Merci de votre aide.

Bonne après-midi

Fred de Belgique

bonjour

pas d'automatisme possible ,il va te falloir choisir dans le panel correspondant proposé

cordialement

Bonjour le forum,Fredo 74;Tulipe_4

un autre fichier.

Bonjour

A part proposer une liste déroulante des villes correspondantes il n'y a pas de solution

Bonjour,

Une proposition pour Excel 365 version 1911+.

Elle utilise les nouvelles fonctions de tableaux dynamiques (Unique et Filtrer) pour créer les listes déroulantes.

La gestion de la liste déroulantes des villes est assuré par VBA.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, lo As ListObject, lCol As Long

    On Error GoTo err_Handler
    Application.EnableEvents = False
    Set rng = Range("Données")
    If Not Intersect(Target, rng) Is Nothing Then
        Set lo = rng.ListObject
        lCol = Target.Column - lo.Range.Column + 1
        Select Case lCol
            Case 5:
                With Target.Offset(, 1)
                    .Value = vbNullString
                    .Validation.Delete
                End With
                If Not IsEmpty(Target) Then
                    Worksheets("bdd_VILLES").Cells(7).Value = Target.Value
                    Target.Offset(, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                                      xlBetween, Formula1:="=bdd_VILLES!$G$2#"
                Else
                    Target.Offset(, 1).ClearContents
                End If
            Case 6:
                Target.Validation.Delete
                If IsEmpty(Target) Then Target.Offset(, -1).ClearContents
        End Select
    End If

exit_Handler:
    Application.EnableEvents = True
    Exit Sub
err_Handler:
    MsgBox "erreur : " & Err.Number & vbLf & Err.Description
    Resume exit_Handler

End Sub

Bonjour à tous,

Un immense merci à vous de m'avoir aidé

Un merci particulier à Jean-Eric avec sa solution que j'ai eu un peu de mal de comprendre mais au final la pièce est tombée!!!!

Bonne après-midi à tous.

Fred de Belgique