XL 2013 Liste déroulante sans doublon

WIsh_ · 12 Janvier 2021

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

CB60 · 12 Janvier 2021

bonjour
Avec une liste intermédiaire qui peut etre masqué?

job75 · 12 Janvier 2021

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

WIsh_ · 12 Janvier 2021

job75 à dit:
"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 · 12 Janvier 2021

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

VB:

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_ · 12 Janvier 2021

Merci Job.

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

Merci d'avance,
Wish

WIsh_ · 12 Janvier 2021

@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 · 12 Janvier 2021

WIsh_ à dit:
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.

WIsh_ à dit:
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 :

VB:

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

XL 2013 Liste déroulante sans doublon

WIsh_

XLDnaute Occasionnel

CB60

job75

XLDnaute Barbatruc

WIsh_

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

WIsh_

XLDnaute Occasionnel

WIsh_

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires