multiselect et 1 cellule

[Lostgen67]

Bonjour le forum

J'ai un listbox a choix multiple et une cellule de destination.
( ex: liste de noms et dans cellule A1 d'une feuille x le résultat de mon choix multiple )
Qui pourrais me dire comment faire où m'orienter vers un exemple....
J'ai ecumé le forum mais ye po trouvé ce que je cherchais...

Merci d'avance

PS : je pose bcp de question en ce moment mais les vacances approche
:woohoo: et je voudrais finir mon bidule avant....

 

[lostgen67]

salut lostgen67

T'es pas dans la M.....
personne te réponds.... 🙂

merci d'avance

 

[myDearFriend!]

Bonsoir lostgen67,

Soit un Userform, une ListBox1 avec la propriété MultiSelect à true et un CommandButton1 :

Private Sub CommandButton1_Click()
Dim Chaine As String
Dim i As Byte
      For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                  Chaine = Chaine & ' ' & ListBox1.List(i)
            End If
      Next i
      Range('A1').Value = Trim(Chaine)
End Sub

Cordialement,

 

[Lostgen67]

Merci a toi grand détenteur du savoir...

franchement merci

La je joues un peu le féneant..... 😉 mais de temps en temps ca fait du bien ....