un peu tard mais au cas ou d'autres recontrent ce pb
Moi j'utilise ça pour recuperer les valeurs selectionnees dans une listbox (ma listbox a 2 colonnes mais on peut facilement modifier le code pour x colonnes)
Dim arrTable() As String
' nombre de valeurs de la listbox
nb = Eval(lstComment.ListCount - 1)
' calcul du nombre de valeur selectionnees par utilisateur
y = 0
For x = 0 To nb
If lstComment.Selected(x) = True Then
y = y + 1
End If
Next x
' on redimensionne le tableau
ReDim arrTable(1, y)
' le tableau recupere les valeurs selectionnees
For j = 0 To 1
a = 0
For i = 0 To nb
If lstComment.Selected(i) = True Then
arrTable(j, a) = CStr(lstComment.Column(j, i))
a = a + 1
End If
Next i
Next j
@+
|