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

 

[djidji59430]

Bonjour à tous,

tu as quelle version d'excel ?
sous 365, il y a la fonction unique()

 

[WIsh_]

Bonjour Djidji,

2013.
(pas la fonction UNIQUE donc...)

bàt,
Wish

 

[CB60]

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

 

[M12]

Bonjour
Bonjour CB60

avec un peu de retard, mais comme il est fait

 

[WIsh_]

Bonjour M12,

Merci pour l'essai.

Je recherche une formule unique qui ne demande pas une manipulation chaque fois que le tableau3 s'agrandit. Il y aura minimum une date par semaine, soit 52 dates x 231 lignes minimum.

Il faut que cela soit automatique.

merci d'avance,
Wish

 

[CB60]

Et ma solution ne te convient pas???

 

[WIsh_]

Re CB60,

Comment les autre dates vont-elles s'inscrire automatiquement en A5 et ensuite ?

 

[CB60]

tu test, comme ta premiere liste et un tableau je ne vois pas de soucis

 

[WIsh_]

Merci CB60.

 

[WIsh_]

@M12, peux-tu m'envoyer un MP svp ?

 

[job75]

Bonjour Wish_, djidji59430, CB60, M12,

Une solution VBA, voyez cette macro dans le code de Feuil2 :

Private Sub Worksheet_Change(ByVal Target As Range)
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 [Choix_Date].Validation 'cellule nommée
    .Delete
    .Add xlValidateList, Formula1:="=" & ListObjects(2).DataBodyRange.Address(External:=True)
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque de la feuille.

A+

 

[WIsh_]

Merci Job75.

Est-il possible que la dernière date ne soit pas reprise dans la liste déroulante et que par défaut le choix dans la liste déroulante soit la date la plus récente ?

Merci d'avance,
Wish

 

[job75]

Qu'entendez-vous par "dernière date" ? La plus ancienne ou la plus récente ?

Et je ne vois pas ce que vous voulez dire par "choix par défaut".

 

[WIsh_]

Qu'entendez-vous par "dernière date" ? La plus ancienne ou la plus récente ?

Et je ne vois pas ce que vous voulez dire par "choix par défaut".

Re Job75,

Par dernière date, j'entends la plus récente.

La liste déroulante permet de choisir entre plusieurs dates. Je souhaite que le choix de la date la plus récente soit celui par défaut. Si on ne choisit rien, c'est la dernière date qui est choisie (l'avant dernière date de "tableau3[Date]" vu que la plus récente n'est pas reprise dans la liste déroulante).

Exemple:
Tableau3[DATE]
01/01/2021
02/01/2021
03/01/2021

Liste déroulante :
01/01/2021
02/01/2021

Choix par défaut de la liste déroulante 02/01/2021.