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

ChTi160

XLDnaute Barbatruc

• 25 Juillet 2022

• #2

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juillet 2022

• #3

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 :

VB:

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+

 

Pièces jointes

• Classeur(1).xlsm

  16.4 KB · Affichages: 11

Dernière édition: 13 Juillet 2024

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 25 Juillet 2022

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juillet 2022

• #5

Bonjour goube,

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

A+

 

Pièces jointes

• Classeur(2).xlsm

  18 KB · Affichages: 10

Vote positif 0 Vote négatif

F

frederic78

XLDnaute Nouveau

• 25 Juillet 2022

• #6

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

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 25 Juillet 2022

• #7

Re,

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juillet 2022

• #8

frederic78 à dit:

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

Cliquez pour agrandir...

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 :

VB:

Private Sub Worksheet_Activate()
Worksheet_SelectionChange ActiveCell
End Sub

 

Vote positif 0 Vote négatif