bill
-
26 mars 2001 à 19:27
J_A_Zed_Zed
Messages postés2Date d'inscriptionmercredi 20 octobre 2004StatutMembreDernière intervention21 octobre 2004
-
22 oct. 2004 à 14:25
Bonjour !
Je voudrai recuperer la valeur sélectionné dans ma listebox quand on clique sur cette valeur (la selectionne).
Merci.
J_A_Zed_Zed
Messages postés2Date d'inscriptionmercredi 20 octobre 2004StatutMembreDernière intervention21 octobre 2004 22 oct. 2004 à 14:25
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