Discussion :

[papyxy]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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.

[papyxy]

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.

[Pierre Fauconnier]

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



Tu pourrais utiliser le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[papyxy]

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")

[Pierre Fauconnier]

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.

[papyxy]

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.

[Pierre Fauconnier]

[...]
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.

[papyxy]

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