voila j'ai une listbox qui m'affiche ma table1 mais j'aimerais que quand je clique sur une element il m'affiche les divers renseignement dans des textbox.

merci si vous pouvez me donnez un bout de code, me mettre dur la voix, ou me donnez l'adresse tutoriel

merci

voici un bout de code, si quelqu'un pouvait m'aider a le corriger. Sa serait simpa.

Private Sub lb_ItemClick(ByVal ItemValide As ListItem)

' Variable récupération index Listview
Dim ListIndex As Long
For I = 0 To 23
lb.ListIndex = I
Next I
' Gestion de l'erreur
On Error GoTo Aff_Err

' Désactivation et activation de certains boutons
'cmdsupprimer.Enabled = True
'cmdmodifier.Enabled = True
'cmdnouveau.Enabled = False

' Récupération de l'index
ListIndex = ItemValide.Index

' Affichage des zones de texte
Call TxtVisible(True)

' Attribution de Clé primaire to Key
' Pour suppression ultérieur
Key = lb.ListItems(ListIndex).SubItems(22)

' Affichage dans les zone de text
Texthippo(0).Text = lb.ListItems(ListIndex).Text
Texthippo(1).Text = lb.ListItems(ListIndex).SubItems(1)
Texthippo(2).Text = lb.ListItems(ListIndex).SubItems(2)
Texthippo(3).Text = lb.ListItems(ListIndex).SubItems(3)
Texthippo(4).Text = lb.ListItems(ListIndex).SubItems(4)
Texthippo(5).Text = lb.ListItems(ListIndex).SubItems(5)
Texthippo(6).Text = lb.ListItems(ListIndex).SubItems(6)
Texthippo(7).Text = lb.ListItems(ListIndex).SubItems(7)
Texthippo(8).Text = lb.ListItems(ListIndex).SubItems(8)
Texthippo(9).Text = lb.ListItems(ListIndex).SubItems(9)
Texthippo(10).Text = lb.ListItems(ListIndex).SubItems(10)
Texthippo(11).Text = lb.ListItems(ListIndex).SubItems(11)
Texthippo(12).Text = lb.ListItems(ListIndex).SubItems(12)
Texthippo(13).Text = lb.ListItems(ListIndex).SubItems(13)
Texthippo(14).Text = lb.ListItems(ListIndex).SubItems(14)
Texthippo(15).Text = lb.ListItems(ListIndex).SubItems(15)
Texthippo(16).Text = lb.ListItems(ListIndex).SubItems(16)
Texthippo(17).Text = lb.ListItems(ListIndex).SubItems(17)
Texthippo(18).Text = lb.ListItems(ListIndex).SubItems(18)
Texthippo(19).Text = lb.ListItems(ListIndex).SubItems(19)
Texthippo(20).Text = lb.ListItems(ListIndex).SubItems(20)
Texthippo(21).Text = lb.ListItems(ListIndex).SubItems(21)
Texthippo(22).Text = lb.ListItems(ListIndex).SubItems(21)
Texthippo(23).Text = lb.lisitems(ListIndex).subittems(22)
' On sort
Exit Sub