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
 

Pièces jointes

  • Liste.xlsx
    9.5 KB · Affichages: 11

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+
 

Pièces jointes

  • Liste(1).xlsm
    22.4 KB · Affichages: 9

Discussions similaires

Réponses
8
Affichages
363
Réponses
21
Affichages
1 K

Statistiques des forums

Discussions
311 720
Messages
2 081 899
Membres
101 834
dernier inscrit
Jeremy06510