XL 2013 Liste déroulante sans doublon

[WIsh_]

Bonjour à tous,

Je cherche une formule qui permette d'afficher dans une liste déroulante une seule fois chaque valeur présente dans une colonne d'une table.

J'ai une table (tableau3) avec 200 lignes qui ont en colonne [Date] la date .

La liste déroulante me renvoie 200x la date 01/01/2020 et j'aimerais qu'elle ne me la renvoie qu'une seule fois.
=INDIRECT("Tableau3[DATE]")

Le tableau3 est évolutif et il y aura demain 400 lignes dont 200 avec la date 13/01/2021.

J'aimerais que la liste déroulante renvoie deux choix : 01/01/2021 et 13/01/2021 et pas 200x chaque date...

Merci d'avance,
Wish

 

[job75]

"Choix par défaut" n'a aucun sens, si on ne choisit rien il ne se passe rien...

 

[WIsh_]

"Choix par défaut" n'a aucun sens, si on ne choisit rien il ne se passe rien...

Je souhaite que la macro choisisse 02/01/2021.

 

[job75]

D'accord, utilisez ce fichier (2) et la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'sécurité
[A:A].Copy [C1] 'copier-coller
ListObjects(2).Range.RemoveDuplicates 1, xlYes 'supprime les doublons
With ListObjects(2).Range
    .Cells(Application.Match(Application.Max(.Value2), .Value2, 0)).Delete xlUp 'supprime la date la plus récente
End With
With [Choix_Date].Validation 'cellule nommée
    .Delete
    .Add xlValidateList, Formula1:="=" & ListObjects(2).DataBodyRange.Address(External:=True)
    .Parent = "" 'RAZ au cas où...
    .Parent = Application.Max(ListObjects(2).Range) 'date la plus récente
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

PS : je ne vois pas pourquoi vous utilisez le format "m/j/aaaa" mais bon...

 

[WIsh_]

Merci Job.

A quoi correspond listobject(2) ? Au 2ème listobject de la feuille ou du classeur ?

Merci d'avance,
Wish

 

[WIsh_]

@job75

Cela ne marche qu'une fois. Si je modifie une seconde fois la liste des dates, il n'y a plus d'update chez moi

 

[job75]

A quoi correspond listobject(2) ? Au 2ème listobject de la feuille ou du classeur ?

De la feuille, celle-ci n'est pas précisée devant ListObjects(2) puisque nous sommes dans son code.

Cela ne marche qu'une fois. Si je modifie une seconde fois la liste des dates, il n'y a plus d'update chez moi

Je ne comprends pas, vous avez peut-être mal copié ou modifié la macro ? La macro ne peut plus s'exécuter s'il n'y a pas Application.EnableEvents = True à la fin.

Enfin pour faire bon poids voyez ce fichier (3) et cette macro dans le code de Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [Choix_Date].Address And Target(1) = "" Then Feuil2.[A1] = Feuil2.[A1] 'lance la macro
End Sub