XL 2010 Récupération valeur listbox1 et 2 dans la même Cellule

[thespeedy20]

Bonsoir,

Comment puis-je faire pour récupérer les valeurs d'une listbox1 multichoix et une listobox2 multichoix dans la même cellule. La première étant liée à la deuxième...

ex : listbox1 : nom de professeur , listbox2 : instrument

le Résultat : nom du professeur, instrument

Merci pour votre aide

Olivier

 

[phlaurent55]

Bonjour Olivier,

un essai (sans avoir vu ton fichier)

à+
Philippe

 

[Paf]

bonjour,

une solution possible :

Dim Résult As String, i As Integer
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then Résult = Résult & ListBox1.List(i)
Next
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) = True Then Résult = Résult & ListBox2.List(i)
Next
Range("A1") = Résult

adapter la mise en forme

A+

Edit : Bonjour phlaurent55