Récupérer des valeurs d'une listBox sous excelRésolu

Question

Bonjour &#224; tous,

J'ai un petit souci sur ma listbox :
j'aimerai r&#233;cuperer les valeurs s&#233;lectionn&#233;es de ma liste, les ajouter dans une variable,  afin de les mettre dans une cellule d'une feuille de calcul.

Dim Text1 As String
Dim text As String


    For i = 0 To 20
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
            text = ListBox1.Value
            Text1 = Text1 + text
        End If
    Next i

Merci d'avance


[?] Estelle[8D]

cs_Willi · Answer

Bonsoir,

Dim text As String 
For i = 0 To 20
   If ListBox1.Selected(i) = True Then text=text & " ; " & listbox1.list(i)
Next i

Range("B1")= mid$(text,1,len(text))

voila

cs_Willi · Answer

arf   Range("B1")= mid$(text,3,len(text))

fitzjames · Answer

Merci mais je me suis peut &#234;tre mal expliqu&#233;.
C'est le contenu de la listbox qui peut avoir 1 &#224; 10 enregistrements.
Le code suivant n'ajoute qu'un enregistrement dans la cellule :
en faite c'est le contenu de ma 2 &#232;me listbox "ListBox2" que je veux afficher dans ma cellule E30.

Dim Text1 As String


    For i = 0 To 20
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
            Text1 = Text1 & " ; " & ListBox1.List(i)
        End If
    Next i
    Range("E30") = Mid$(Text1, 3, Len(Text1))

Merci encore

[?] Estelle[8D]

cs_Willi · Answer

Re , on va y arriv&#233; :)
Que veux-tu dire par "n'ajoute qu'un enregistrement dans la cellule E30" ?
Ce code la ajoute bien le texte de tes s&#233;lections de la ListBox1 vers la cellule E30, j'avoue ne pas saisir ce qui te bloques.

For i = 0 To ListBox1.ListCount-1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
            Text1 = Text1 & " ; " & ListBox1.List(i)
        End If
Next i
Range("E30") = Mid$(Text1, 3, Len(Text1))

fitzjames · Answer

Je m'explique, j'ai un formulaire avec une Listbox1 de 20 enregistrements de villes : Paris, Versailles, Rennes, Marseille etc...
J'ai une listbox2 sur ce m&#234;me formulaire qui est en faite ma cellule E30.
Ce que j'aimerais faire c'est tout b&#234;te, mais je n'y arrive pas, c'est de mettre dans ma listbox2 et ma cellule E30 le r&#233;sultat de ma s&#233;lection de ma 1&#232;re liste.

Par exemple, j'aimerais que dans ma cellule E30 de ma feuil1 s'affiche le r&#233;sultat suivant :
 Paris, Rennes

Merci encore

[?] Estelle[8D]

cs_Willi · Answer

Mis &#224; part le " ; " &#224; remplacer par ", "
Sauf erreur de ma part ce code produit bien ce que tu attends !

fitzjames · Answer

Non si je selectionne Mulhouse et apr&#232;s que j'ajoute Rennes dans ma cellule E30 il me remplace Mulhouse par Rennes et  j'ai pas le r&#233;sultat attendu "Mulhouse, Rennes".

merci encore

[?] Estelle[8D]

cs_Willi · Answer

Ah ok je viens de saisir le truc (enfin je crois)

Dim Text1 As String
Text 1 = CStr(Range("E30"))

For i = 0 To ListBox1.ListCount-1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
            Text1 = Text1 & " ," & ListBox1.List(i)
        End If
Next i

Range("E30") = Mid$(Text1, 2, Len(Text1))

fitzjames · Answer

merci merci et encore merci  

[?] Estelle[8D]

Récupérer des valeurs d'une listBox sous excel

9 réponses

Discussions similaires