Discussion :

[Pierre67]

Bonjour

dans un userform, j'ai une liste déroulante dans laquelle je souhaite permettre la sélection multiple.

ma question : est-il possible de récupérer dans UNE cellule mes sélections dans la listbox dans le genre :

si je sélectionne dans ma liste ligne1 et ligne5 j'obtiens en A1 : ligne1/ligne5.
En gros un genre de concaténation de mes sélections ?
Merci pour votre contribution
@+

[ucfoutu]

Bonsoir,

Bien évidemment !
Il te suffit d'une boucle For... Next... et de concaténer dans une vairiable, chaque fois que tu tombes sur un article sélectionné ...

[Pierre67]

merci

ça parait simple mais mes connaissances en VBA ne me portent pas si loin

[ucfoutu]

Ah ?
Bon ... A main levée ...

Code :

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

1
2
3
4
5
6
7
8
Dim a As String, i As Integer
 for i = 0 To listbox1.listCount - 1
   if listbox1.Selected(i) Then
     if a <> "" Then a = a & "-"
     a = a & listbox1.list(i)
   End If
 Next
 MsgBox a

Mais tu devrais vite t'intéresser à ce que tu trouves dans ton aide en ligne, si tes connaissances sont encore celles que tu dis ...

[Pierre67]

Ok Ucfoutu, cela fonctionne à merveille.
je vais me forcer à suivre ton conseil
Cordialement