Listebox

bonsoir Laurent

dans l'exemple ci-dessous , la macro extrait les données lorsque que tu cliques sur une ligne de la ListBox

comme je n'ai pas bien compris si ta listbox comporte 1 ou 3 colonnes , je te propose plusieurs options



Private Sub ListBox1_Click()
Dim i As Byte
Dim Cible As String, Nombre As String

'extrait toutes les valeurs numeriques dans la 3eme colonne d'une Listbox
Cible = ListBox1.List(ListBox1.ListIndex, 2)

For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
MsgBox Nombre
i = i + Len(Str(Nombre)) - 1
End If
Next

'**********************************************
'extrait le dernier caractere dans la 1ere colonne
'MsgBox Right(ListBox1.List(ListBox1.ListIndex), 1)
'**********************************************

End Sub


bonne soiree
MichelXld