[vba/excel] recuperer selection listbox

Question

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

lermite222 · Answer

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+

antic80 · Answer

merci pour ta reponse lermite

si j'ai bien tout suivi il me reste qu'a ajouté après ce code

activecell.value = txt

c'est bien ca ?

lermite222 · Answer

Beh oui...
A+

antic80 · Answer

merci beaucoup lermite

lermite222 · Answer

Désoler pour la réponse erronnée...
c'est 
ActiveCell = ConcaTList()

antic80 · Answer

ok merci

antic80 · Answer

j'ai essayé ta fonction mais j'obtient le message suivant

Erreur d'éxécution -2147024908....

impossible de lire la propriété selected. argument non valide

michel_m · Answer

Bonjour Antic, Louis

Dans les les propriétés de talistbox "multiselect" est elle  sur l'option "fmmultiselectextended" ?

antic80 · Answer

je n'ai pas verifier cette option mais j'ai modifier cette ligne

 For i = 1 To ListBox1.ListCount


j'ai mis 

 For i = 0 To ListBox1.ListCount -1

[vba/excel] recuperer selection listbox

9 réponses

Discussions similaires

Newsletters