XL 2019 Récupération des valeurs selectionnées dans une ListBox

[Pieerre69]

Bonjour à tous,

J'ai, dans un UserForm, une listbox qui a pour paramètre MultiSelect = 1 - fmMultiSelectMulti, et qui comporte 3 colonnes.
J'aimerais récupérer dans une cellule quelconque les valeurs de la première colonne que l'utilisateur a sélectionné ! J'ai essayé de faire ListBox1.selected mais ça ne donne rien (ou alors je l'ai mal fait).
En sachant que le nombre de lignes dans la listbox est variable!

Merci d'avance pour les réponses proposées

Pierre

 

[Phil69970]

Bonjour Pierre, le forum

Ceci correspond à ce que tu souhaites.

For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then Range("A2").Value = Range("A2") & Me.ListBox1.List(i) & Chr(10)
Next i

@Phil69970

 

[Pieerre69]

Salut Phil et merci pour ta réponse.

Ca ne correspond pas tout à fait à ce que je cherche étant donné que ma ListBox est une ListeBox avec un multiselect (donc des cases à cocher).
Je te laisse ci-joint le fichier test sur lequel je travaille, qui pourra te permettre de mieux appréhender ma problématique.

Pierre

 

[Phil69970]

Pierre


Que cela soit des cases à cocher ne change rien
A la place de :

For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then Range("A2").Value = Range("A2") & Me.ListBox1.List(i) & Chr(10)
Next i

Tu mets la cellule que tu veux :

For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then Range("J2").Value = Range("J2") & Me.ListBox1.List(i) & Chr(10)
Next i

@Phil69970

 

[Phil69970]

@Pieerre69

Et si tu veux récupérer les 3 colonnes ...

@Phil69970

 

[Pieerre69]

La V3 est exactement ce que je cherchais ! Merci beaucoup de ton aide @Phil69970 !