Liste déroulante sans vide

Bonjour à tous,

J'affecte une liste déroulante aux cellules d'une colonne (page 1) avec les données contenues (page 2).

Je souhaite pour une flexibilité de l'application que le taille de ma liste déroulante s'adapte automatiquement au nombre de lignes qui alimentent ma liste déroulante, le tout en ayant une valeur unique (c'est à dire que si toto est inscrit deux fois, il n'apparaît qu'une fois dans ma liste :-)

Ci joint mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'TypeOfTest array: If ActiveSheet.Name = "PAGE1" Then If ActiveColumn = 5 And ActiveRow < 101 Then 'MsgBox "Column: " & ActiveColumn & ", line: " & ActiveRow With Range("E" & ActiveRow).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="=PAGE2!G2:G10" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End If End If

---

Merci par avance

Bonjour,

En fonction de votre version excel les function sort et unique pourraient faire le job.

Avis perso, je base toujours mes listes déroulantes (liste validation et combobox) sur un tableau structuré dédié, ce qui évite ce genre de "chipotages", rend la chose plus maintenableet secure.

L'ajout de liste de validation par code est aussi pour moi un défaut de conception. Avec un tableau structuré, il suffit de mettre une fois la liste de validation bien en place pour qu'elle soit automatiquement répliqué sur les lignes suivantes d'une même colonne.

Bav,

Bonjour à tous,

Insserer Controle ActiveX - Zone de liste déroulante

et macro à lancer

Code:

---

1 2 3 4 5 6 7 8 9

Sub Alimente_la_ComboBox_de_la_Feuil1_sans_doublon() Dim Cell As Range Feuil1.ComboBox1.Clear For Each Cell In Feuil1.Range("E1:E47") ' A adapter Feuil1.ComboBox1 = Cell If Feuil1.ComboBox1.ListIndex = -1 Then _ Feuil1.ComboBox1.AddItem Cell Next Cell End Sub

---

@+
Nicolas

Il n'existe pas un moyen en VBA dans le code

Code:

---

Operator:=xlBetween, Formula1:="=Informations!A2:A50"

---

de mettre tout ça en forme? C'est à dire qu'il doit bien exister une formule pour dire :"Dans la colonne A, tu ne récupères que les cellules non vide et enlèves les doublons"...

Merci par avance

Salut.

Merci de préciser ta version d'Excel.

Je suis d'accord avec Michaël. Jusqu'à la version 2016, j'utilisais des tableaux structurés spécifiques puis des listes nommées pour réaliser ce genre d'opérations. Avec 365, on peut travailler sur les plages dynamiques résultant de l'utilisation des fonctions UNIQUE, TRIER (TRIERPAR) et FILTRE qui permettent d'éviter les tableaux intermédiaires.

Je suis aussi d'accord avec lui sur le fait que, sauf rarissime exception, la mise en place de listes de validation s'effectue lors de la conception du classeur et ne nécessite pas de VBA.

La version d'Excel est sous Office365. Après j'utilise VBA pour automatiser l'ensemble pour que cela soit transparent pour l'utilisateur , en plus cela éviterai les erreurs de supression ou modificatgion...). Après s'il existe une façon beaucoup plus simple je suis preneur :-)

Pour Office 365, avec 0 lignes de VBA:

1. Travailler avec des tableaux structurés (ici, j'ai créé un tableau avec une colonne pour les départements de l'entreprise comprenant des doublons);
2. Dans une feuille de paramètres, créer tes plages dynamiques avec les fonction TRIER(UNIQUE(...) (formule à saisir dans la première cellule, Excel étendant la plage dynamique aux cellules en dessous. Attention: ne rien mettre sous la cellule, la colonne doit être entièrement vide sous la cellule de formule pour pouvoir accueillir les valeurs);
3. Nommer cette cellule (ici, DPTS);
4. Dans le tableau structuré où tu souhaites placer la liste déroulante, utiliser une liste de validation en faisant suivre le nom de la plage du signe #.

En plaçant la liste de validation dans la colonne d'un tableau structuré, tu t'assures qu'Excel étendra la liste de validation aux nouvelles saisies dans le tableau. Pour plus d'infos sur les tableaux structurés, voir mon tuto qui explique tout cela.


Pièce jointe 588530

Pièce jointe 588531

Pièce jointe 588532

Pièce jointe 588533

Pièce jointe 588534


En complément, voici la formule pour supprimer les vides: =TRIER(UNIQUE(FILTRE(t_Départements[Dpt];t_Départements[Dpt]<>"")))

Merci je vais regarder cela.

Mais comme je suis un peu têtu... Si je mets cette fonction dans une cellule

Code:

---

=UNIQUE(FILTRE(Informations!G2:G100;NON(ESTVIDE(Informations!G2:G100))))

---

J'ai bien toutes mes valeurs uniques et sans vides... Alors pourquoi lorsque je tente de crééer une validation de données avec listes et cette fonction dans source j'ai une erreur??:aie:

Parce que les listes de validation, comme d'autres outils (Mise en forme conditionnelle notamment), n'ont pas évolué pour permettre d'utiliser ces fonctions qui créent des plages dynamiques ni les colonnes des tableaux structurés. L'astuce consiste donc à "leurrer" Excel en créant des plages nommées que ces outils savent manipuler.

J'admets que l'explication peut sembler étrange puisque la liste de validation accepte le signe # (extension d'une cellule à "sa" plage dynamique, inconnu des autres versions), mais c'est la seule explication que je vois.

D'une manière générale, les tableaux structurés et les plages dynamiques permettent une approche différente du vba et, lorsque la programmation en vba est encore nécessaire, allègent considérablement le code à produire.