XL 2013 Liste déroulante sans doublon

djidji59430

XLDnaute Barbatruc

• 12 Janvier 2021

• #2

Bonjour à tous,

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

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #3

Bonjour Djidji,

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

bàt,
Wish

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 12 Janvier 2021

• #4

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

 

Pièces jointes

• liste choix date.xlsx

  19.1 KB · Affichages: 15

Vote positif 0 Vote négatif

Solution

M12

XLDnaute Accro

• 12 Janvier 2021

• #5

Bonjour
Bonjour CB60

avec un peu de retard, mais comme il est fait

 

Pièces jointes

• liste choix date.xlsx

  20.2 KB · Affichages: 10

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #6

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 12 Janvier 2021

• #7

Et ma solution ne te convient pas???

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #8

Re CB60,

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 12 Janvier 2021

• #9

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

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #10

Merci CB60.

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2021

• #12

Bonjour Wish_, djidji59430, CB60, M12,

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

VB:

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+

 

Pièces jointes

• liste choix date(1).xlsm

  21.4 KB · Affichages: 4

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #13

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

 

Pièces jointes

• liste choix date v2.xlsm

  23.3 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2021

• #14

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".

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 12 Janvier 2021

• #15

job75 à dit:

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".

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif