XL 2016 Liste de choix automatisé

Berg1664

XLDnaute Occasionnel
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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour Berg1664, frangy,
VB:
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+
 

Fichiers joints

Discussions similaires


Haut Bas