[Excel] Liste déroulante de longueur variable

Re,

Pour le fun, je te propose le petit code ci-dessous...

- La liste saisie par les utilisateurs se trouve dans la colonne 1 de Feuil1.
- La liste triée tirée de la saisie se trouve en colonne 1 de Feuil2.
- Je nomme Liste cette liste triée, utilisée pour la validation des données.

Dans le code VBA de la feuille Feuil2, je mets ce code :

Private Sub Worksheet_Activate()
  
  Dim DerLig As Long
    
  Application.ScreenUpdating = False
  
  Sheets("Feuil1").Columns(1).Cells.Copy
  Cells(1, 1).Select
  ActiveSheet.Paste
  On Error Resume Next
  ActiveWorkbook.Names("Liste").Delete
  On Error GoTo 0
  DerLig = Columns(1).End(xlDown).Row
  Range(Cells(1, 1), Cells(DerLig, 1)).Sort Key1:=Range(Cells(1, 1), Cells(1, 1)), Order1:=xlAscending
  Range(Cells(1, 1), Cells(1, 1)).Select
  
  ActiveWorkbook.Names.Add Name:="Liste", RefersToR1C1:="=R1C1:R" & DerLig & "C1"
  
  Application.ScreenUpdating = True

End Sub

A chaque fois qu'on va sur la feuille Feuil2, la macro s'exécute automatiquement :
- copie de la liste saisie
- tri alpha
- recalcul de la plage nommée Liste.

Regarde si ça te convient...

Bonjour thibane,

Tu peux encadrer la liste par une marque de début et une marque de fin. Exemple :

____DEB
tata
tete
titi
tutu
tyty
____FIN

Tu donnes un nom à ta liste(Maliste par exemple), et tu indiques =Maliste dans la validation de données.

Inconvénient (?) : les marques de début/fin apparaissent dans la liste déroulante.
Avantage : tu peux ajouter ou supprimer de nouvelles valeurs n'importe où sans rien changer.

Tu peux aussi ne pas mettre les marques si elles te gênent. Dans ce cas, il faut seulement prendre des précautions pour un ajout en tête et en queue de liste.
- pour ajouter en tête : copier la ligne de tête, et insérer la copie derrière. Ensuite on utilise la ligne de tête pour mettre la nouvelle entrée.
- pour ajouter en queue : copier la ligne de fin, et insérer la copie devant. Ensuite on utilise la ligne de fin pour mettre la nouvelle entrée.

Merci pour ta réponse Arjomax.
Cependant, j'ajoute quelques précisions concernant le fait de ne pas mettre de marques.

Pour simplifier, la feuille 1 contient dans la premiere colonne une liste de noms.

Cette liste est modifiable par l'utilisateur : il peut ajouter un nom et les données sont triées par ordre alphabétique.

Cette liste est recopiée dans la feuille 2 (où doit se trouver ma liste déroulante) pour me simplifier. Et donc la liste déroulante va chercher dans cette liste de nom recopiés.

Donc dans tous les cas, la longueur de la liste source est "modifiée par le bas", la cellule supérieure restant fixe. Je ne sais pas si je suis clair là... Donc pas d'ajout en tete...

PS: en tout cas, l'histoire des marques fonctionnent, merci bcp!
il faut juste que je rajoute un peu de code pour trouver l'endroit où rajouter "FIN" mais c'est pas compliqué.

C'est ce qu'il me fallait merci.
Par contre, dans ton code, je ne vois "Feuill2" nulle part.. Ou est-ce qu'il y a changement de page??

Ce code se trouvant dans le code VBA de Feuil2, et s'exécutant quand Feuil2 est activée, toutes les plages nommées sans précision se rapportent à cette feuille.

Entièrement satisfait. Merci à vous!

Bonjour,

Je suis moi aussi confronté à un petit souci.

J'ai deux liste sur 2 feuilles différentes, une avec les coordonées de 150 personnes, et l'autre avec des informations relative à leur travail. Ce que je cherche c'est faire une liste déroulante sur chaque nom, sur la deuxième feuille afin de ne pas toujours aller chercher les informations sur l'autre feuille.

Je ne sait pas si j'ai été assez claire.

Si vous pouviez m'aider.

Merci