VBA : Transfert de données listbox vers cellule

Bonjour,

Je tourne en rond depuis plusieurs jours, et je fais donc appel à vos connaissances.

J'ai dans un Userform une listbox remplie via la propriété Rowsource et un bouton "valider" qui permet d'enregistrer le tout dans une feuille appelée "Data".

Ce que je n'arrive pas à faire, c'est si je sélectionne un ou plusieurs éléments de cette listbox, à les transférer dans une seule cellule. J'arrive à transférer l'ensemble du contenu d'une listbox, mais pas seulement ce qui est sélectionné.

Exemple :

Contenu listbox : toto, tata, titi, tutu

Sélection : toto, titi

Résultat dans la cellule de la feuille Data : toto, titi (l'un en dessous de l'autre)

Si vous avez une piste vers laquelle m'orienter, je suis preneur.

Merci à vous .

Bonjour,

Pour transférer ce qui est sélectionné, il faut balayer la liste en examinant la propriété "Selected"

    For i = 0 To ListBox1.ListCount - 1
        if ListBox1.Selected(i) Then   .....
    Next i

Bonjour,

Exemple pour une copie dans la cellule B1 :

Dim i As Integer
Dim Texte As String
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then
            Texte = Texte & ListBox1.List(i) & Chr(10)
        End If
    Next i
    Range("B1") = Left(Texte, Len(Texte) - 1)

A+

frangy a écrit :

Bonjour,

Exemple pour une copie dans la cellule B1 :

Dim i As Integer
Dim Texte As String
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then
            Texte = Texte & ListBox1.List(i) & Chr(10)
        End If
    Next i
    Range("B1") = Left(Texte, Len(Texte) - 1)

A+

Bonjour,

Je viens de tester, ça fonctionne impeccable.

Merci à vous.