Listebox

[laurent]

bonjour le forum,

j'ai un petit problème avec une listebox:

en gros j'ai une listebox ou il ya sur la meme ligne plusieurs valeur -departement, ville , et zone de transport style

95100 argenteuil zone 2

je voudrais qu'en double cliquant sur la ligne il m'extrait juste le 2 et me l'insère dans une combobox

est-ce que cela est possible??


merci d'avance

Laurent

 

[michel]

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