sauvegarde des valeurs d'un ListBox multicolones avec selection multiple

Bonsoir à tous,

Je vous ai sollicité il y a quelques jours pour savoir comment sauvegarder
plusieurs valeurs selectionnées dans une Listebox dans une seule cellule.

La solution proposée par JB fonctionne parfaitement (voir plus bas le code
pour la Listebox "Diffusion".)



Je voudrais faire la même chose avec une ListBox à 2 colonnes
("Responsable") mais en ne sauvegardant que les valeurs de la 2eme colonne
(toujours dans une seule cellule)J'ai essayé de bidouiller quelque chose
(voir mon essai plus bas) sans succès.

Merci pour votre aide

Domi





'CODE (JB)POUR VALEURS AVEC UNE SEULE COLONE (ListBox Diffusion)
temp = ""

For i = 0 To Me.Diffusion.ListCount - 1

If Me.Diffusion.Selected(i) Then

temp = temp & Me.Diffusion.List(i) & " / "

End If

Next

NouvelleLigne.Cells(33).Value = temp 'sauvegarde des valeurs







'ESSAI DE CODE POUR les VALEURS de la 2eme COLONE (ListBox Responsable)
temp = ""

For i = 0 To Me.Responsable.ListCount - 1

If Me.Responsable.Selected(i) Then

temp = temp & Me.Responsable.List(Me.Responsable.ListIndex, 1)(i) & " /
" ' IZNOGOUD !

End If

Next

NouvelleLigne.Cells(34).Value = temp