Créer une liste dynamique

Bonjour

J'ai trouvé un exemple sur un forum qui permet de créer une liste dynamiquement sur une feuille.

Code:

---

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

Private Sub CreateList() Dim mylist   ' AddFormControl(Type, lngLeft, lngTop, lngWidth, lngHeight) Set mylist = ActiveSheet.Shapes.AddFormControl(xlDropDown, 1, 1, 200, 12) mylist.Name = "MyList" mylist.ControlFormat.AddItem ("John") mylist.ControlFormat.AddItem ("Paul") mylist.ControlFormat.AddItem ("Ringo")   mylist.OnAction = "ShowPhones" End Sub   Sub ShowPhones() Debug.Print ActiveSheet.Shapes("mylist").OLEFormat.Object.Value End Sub

---

Ma question est de savoir comment obtenir le nom que j'ai sélectionné.
Par contre j'ai bien la position dans cette liste.

Merci d'avance si vous pouvez me renseigner.

Salut.

Pourquoi créer cela par VBA? Que cherches-tu à réaliser?

Ton code ajoute une liste déroulante de formulaire. Cette liste renvoie dans une cellule la position dans la liste de la valeur sélectionnée et s'appuie normalement sur une plage de cellules, et mieux encore, depuis XL2007, sur un tableau structuré.

Il faut donc une formule INDEX pour aller rechercher dans la liste la valeur qui se trouve à la position renvoyée par le contrôle.

Pièce jointe 583661

Pièce jointe 583662

Pièce jointe 583663

En fait, je veux créer une liste temporaire à partir d'une sélection dans une feuille (valeurs non contigües).
Après avoir choisi la valeur, je supprime cette liste.
Sinon j'utilise déjà un Listbox dans ma feuille de façon permanente comme tu indiques.

Je n'aime décidément pas ces contrôles de formulaire (=> donc je ne les connais pas très bien, et je ne vois pas comment en récupérer les lignes, mais il y a sûrement moyen)... Ton truc pue l'usine à gaz (coder des données en dur, créer un contrôle à la volée pour le supprimer ensuite, ...)

Puisque tu connais les données que tu mets "en dur" dans ton code (à ne jamais faire, je pense que tu pourrais les placer dans une plage d'une feuille éventuellement masquée et récupérer la valeur en VBA avec EVALUATE("INDEX...")

Toujours sur base d'un tableau structuré, nommé ici t_Contacts

Pièce jointe 583667

Tu pourrais utiliser le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CreateList() Dim mylist   ' AddFormControl(Type, lngLeft, lngTop, lngWidth, lngHeight) Set mylist = ActiveSheet.Shapes.AddFormControl(xlDropDown, 1, 1, 200, 12) mylist.Name = "MyList" mylist.ControlFormat.List = Range("t_Contacts").Value mylist.OnAction = "ShowPhones" End Sub   Sub ShowPhones() Debug.Print Range("t_Contacts")(ActiveSheet.Shapes("mylist").OLEFormat.Object.Value) End Sub

---

Si vraiment tu tiens à faire tout par code, tu pourrais utiliser une variable du module (tu as créé la fonction Sub CreateList en private donc je suppose qu'elle est dans le module d'une feuille) qui serait un array (un tableau en VBA) et qui permettrait à la macro ShowPhones de récupérer la valeur de l'array en fonction de la position récupérée dans le contrôle.

Code:

---

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

Option Explicit   Dim Values   Sub CreateList() Dim mylist   Values = VBA.Array("John", "Paul", "Ringo") ' AddFormControl(Type, lngLeft, lngTop, lngWidth, lngHeight) Set mylist = ActiveSheet.Shapes.AddFormControl(xlDropDown, 1, 1, 200, 12) mylist.Name = "MyList" mylist.ControlFormat.List = Values mylist.OnAction = "ShowPhones" End Sub   Sub ShowPhones() Debug.Print Values(ActiveSheet.Shapes("mylist").OLEFormat.Object.Value - 1) End Sub

---

Effectivement je suis sur un module, mais pas de la feuille.
Je t'explique le but de ce que je veux faire : c'est une gestion de mes vidéos.
Je propose un choix d'acteurs à partir d' une partie du nom ou prénom.
Il s'agit depuis cette sélection que je choisis l'acteur que je vais affecter au film.
Après quoi la liste ne me sert plus et je ne veux pas encombrer ma feuille qui est déjà bien remplie.
(je ne me sert pas de "Userform")

Ta feuille est bien remplie, mais dispose tout de même de plus de 17 milliards de cellules ;)

Plus sérieusement, ton code ne correspond pas à ce que tu expliques. C'est toujours plus rapide et rentable d'expliquer le problème "réel" auquel tu es confronté, plutôt que de mettre des noms en dur alors qu'ils proviennent probablement d'une sélection. Sans être précis dans ce que tu mets en place et en voulant "simplifier" le code que tu donnes, tu nous empêche de t'aider de façon pertinente.

D'où proviennent les noms qui vont alimenter ta liste? A mon avis, la piste de l'array pourrait être exploitée, même si je n'aime pas du tout ce genre de variables publiques. Mais sans en savoir plus sur la conception de ton classeur, je ne sais t'aider mieux.

Bon et bien je vais procéder autrement :
1) stocker la sélection d'acteurs dans un tableau
2) puis récupérer mon choix à partir de la position dans la liste que je récupère comme indiqué dans "ShowPhones".

Merci quand même pour ton intervention.

NB quand je parlais de feuille bien remplie, c'est plutôt l'écran.

Citation:

---

Envoyé par papyxy

[...]
NB quand je parlais de feuille bien remplie, c'est plutôt l'écran.

---

Oui, je m'en doutais... c'est pour cela que je te parlais de placer les valeurs dans une autre feuille.

Finalement je suis ton idée de créer une "Listbox" et de la rendre visible ou non selon le cas.