XL 2016 Liste de choix automatisé

[Berg1664]

Bonjour j'ai créé une liste de choix, je souhaiterais que la saisie manuelle d'un élément de la liste en E1 provoque la sélection de cet élément en A1, par exemple si je saisis 'Asie' en E1 j'aimerais retrouver 'Asie'dans ma liste de choix en A1. Je n'y parviens pas merci beaucoup pour votre aide

 

[frangy]

Bonjour,

Une proposition ...

Cordialement.

 

[job75]

Bonjour Berg1664, frangy,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E1]) Is Nothing Or [E1] = "" Then Exit Sub
With Sheets("Liste")
    .[A1].Insert xlDown
    .[A1] = [E1]
    .[A:A].Sort .[A1], Header:=xlNo
    .[A:A].RemoveDuplicates 1 'supprime les doublons
    .[A1].CurrentRegion.Name = "Liste" 'plage nommée
End With
End Sub

A+

 

[Berg1664]

Merci beaucoup ça marche très bien