[vba/excel] recuperer selection listbox

Fermé
antic80 Messages postés 4751 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 29 nov. 2008 à 11:11
antic80 Messages postés 4751 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 1 déc. 2008 à 19:29
Bonjour,

Bonjour,

j'ai une listbox avec environ 50 lignes

imaginons que je selectionne la ligne 1, 10 et 25, je souhaiterais afficher dans une cellule excel les 3 valeurs selectionnées en les séparants par le symbole /

merci pour votre aide

9 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
29 nov. 2008 à 11:38
Bonjour,
Un exemple...
Function ConcaTList() As String
Dim Txt As String
    For i = 1 To ListBox1.ListCount
        If ListBox1.Selected(i) = True Then
            Txt = Txt & ListBox1.List(i) & "/"
        End If
    Next i
    ConcaTList = Txt
End Function

A+
1