Réponse acceptée !
Salut,
Pour une listbox, essaie ça :
'Pour remplir
Locazur.rsGetCategories.movefirst
Do While Not Locazur.rsGetCategories.EOF
List1.AddItem Locazur.rsGetCategories.fields("LibCategorie")
List1.ItemData(List1.NewIndex) = Locazur.rsGetCategories.fields("IdCategorie")
Locazur.rsGetCategories.movenext
Loop
'Pour relire
Private Sub List1_Click()
Msg = List1.ItemData(List1.ListIndex) & " " 'lire l'ID de l'item
Msg = Msg & List1.List(List1.ListIndex) 'lire le libelle de l'item
MsgBox Msg
End Sub
-------------------------------------------------
Dresseur de puces, .... normal pour un loup
!?