Afficher les sélections d'une ListBox dans une LinkedCell

Bonjour à tous,

Je souhaite effectuer une action qui me semble facile, mais que je suis incapable de réaliser (trop de rosé?)
Aussi je vous demande votre aide.

Dans un cellule Excel, je souhaite afficher une liste des produits sélectionnés par utilisateur: ex : "Prod1, Prod3, Prod4".

Pour cela, j'ai saisi tous les produits dans une colonne et j'ai créé une ListBox (ActivX) qui contient l'ensemble de ces produits.
Je souhaite que lorsque l'utilisateur sélectionne les produits désirés, ils s'affichent automatiquement dans une cellule (LinkedCell?) en cellule J2.

Pour le moment, la listBox s'affiche avec tous les produits, on peut sélectionner les produits qui apparaissent en couleur inversée, mais je suis bloqué ici.

Pièce jointe 382117

Pouvez-vous m'aider à résoudre mon problème?

Merci

Philippe

Bonjour

LinkedCell n'affiche jamais le texte de la sélection mais la position de l'élément sélectionné. Il faut une autre cellule utilisant INDEX et le contenu de LinkedCell pour afficher le texte.

Bonjour Chris,

Le libellé sélectionné s'affiche bien en J2 (LinkedCell) si la ListBox est configurée en multiselectSingle (voir image plus bas) , mais ça ne fonctionne pas si elle est en multiple. Et je veux qu'elle soit en multiple :?

Pièce jointe 382130Merci

Bonjour

Effectivement j'ai confondu avec la listbox de type formulaire.

Néanmoins l'aide en ligne est claire

"Syntaxe

expression.LinkedCell

expression Variable qui représente un objet ControlFormat.

Remarques

Il est impossible d'utiliser cette propriété avec des zones de liste à sélection multiple.



Il faut donc VBA pour récupérer les mentions sélectionnées et éventuellement les placer dans une ou des cellules...

Quelque chose comme

Code:

---

1 2 3 4 5 6

Dim Choix As String, i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Choix = Choix & ListBox1.List(i) & ", " Next i Choix = Left(Choix, Len(Choix) - 2) Cells(1, 1) = Choix

---

Merci beaucoup, ça fonctionne bien.