XL 2019 liste déroulante sans doublons, sans vide, sans passer par un colonne intermédiaire.

[frederic78]

Bonjour,
existe t-il un moyen de créer une liste déroulante sans passer une colonne intermédiaire pour éviter les doublons ?
merci de votre aide

 

[ChTi160]

Bonjour Frédéric ,
Y'a sûrement moyen ! Lol
mais aurais tu un fichier exemple de ce que tu as et ce que tu veux ?
Dans l'attente
Jean marie

 

[job75]

Bonjour frederic78, Jean-Marie,

La solution classique passe par une plage supplémentaire avec une formule matricielle.

Si vous n'en voulez pas il faut du VBA.

Voyez le fichier joint et cette macro qui construit la liste en dur :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, r As Range, f$
Set cel = [A2] 'à adapter
cel.Validation.Delete 'RAZ
If Target.Address <> cel.Address Then Exit Sub
Set r = Range("C2", Range("C" & Rows.Count).End(xlUp)) 'à adapter
If r.Row < 2 Then Exit Sub
For Each r In r
    If r <> "" Then If InStr(f & ",", "," & r & ",") = 0 Then f = f & "," & r
Next
cel.Validation.Add xlValidateList, Formula1:=Mid(f, 2) 'création de la liste en dur, elle est limitée à 8192 caractères
End Sub

Comme toutes les formules cette liste est limitée à 8192 caractères.

Edit : non, c'est 255 caractères, voyez ce fil :

https://excel-downloads.com/threads/macro-liste-deroulante-bug.20083737/#post-20651694

A+

 

[goube]

Bonsoir à tous,
@job75, excellent cette proposition.
Est il possible d’obtenir le classement alphabétique de cette liste ?
Bonne continuation, cordialement.

 

[job75]

Bonjour goube,

Pour trier la liste utiliser la macro bien connue Quick sort, voyez ce fichier (2).

A+

 

[frederic78]

Merci beaucoup Job75, effectivement c'est plus simple
mes connaissances VBA ne me permettaient de trouver ou d'adapter cette formule, d'ailleurs si ma liste déroulante est sur une autre feuille j'adapte comment cette macro
merci

 

[goube]

Re,

Merci @job75 pour cette amélioration.
Sans abuser, serait-il possible d'avoir quelques explication sur sa syntaxe et son déroulement.
Cordialement.

 

[job75]

d'ailleurs si ma liste déroulante est sur une autre feuille j'adapte comment cette macro

La macro doit être placée dans le module de la feuille où l'on crée la liste de validation puisque c'est une SelectionChange.

Si la liste originale est dans une autre feuille il faut préciser cette feuille pour définir la plage r.

Et ajouter cette macro dans le même module que la SelectionChange :

Private Sub Worksheet_Activate()
Worksheet_SelectionChange ActiveCell
End Sub