Récupération multiple d'une listbox multicolonnes

[Tchango]

Bonsoir,
Voici mon problème :
J'ai créé à l'aide de VBA une listbox qui récupère des infos d'une feuille excel (qui comporte donc plusieurs lignes et plusieurs colonnes). J'aimerai pouvoir, en sélectionnant plusieurs lignes de cette listbox, récupérer les données des lignes sélectionnées et les insérer dans une nouvelle feuille de calcul en choisissant moi meme les valeurs de la ligne sélectionnée dans la listbox.
Merci de votre aide,
tchango

 

[Zon]

Salut,

Voici une fonction qui te retourne un tableau à toi de passer par une boucle pour exclure ce que tu ne veux pas:
dim T() 'à déclarer en haut du module


Private Function ListeMulti(Ctrl As MSForms.ListBox) As Boolean
Dim J As Long
ReDim T(J)
With Ctrl
For I = LBound(.List) To UBound(.List)
If .Selected(I) Then
ReDim Preserve T(J)
T(J) = .List(I)
J = J + 1
ListeMulti = True
End If
Next I
End With
End Function


If listemulit(lenomdetalistbox) then
for i=lbound(t) to ubound(t)
'tes tests

next i

A+++