With Me.ListBox1
.ColumnCount = [Tableau13].Columns.Count
.ColumnWidths = "0;1;0;0;0;0;0"
.List = [Tableau13].Value 'On met dans la ListBox l'ensemble de la BD
End With
Private Sub ListBox1_Click()
c = 0
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
For j = 0 To 6
c = c + 1
Me.Controls("TextBox" & c).Text = Me.ListBox1.List(i, j)
Next j
Exit For
End If
Next i
End Sub