Boucler sur une colonne dans une ListBox

[INFINITY100]

Bonjour à tous

Voila je suis face à un problème dans ma ListBox en effet ci dessous j'ai un code qui rapport toute les données d'une ligne d'une ListBox ver des TextBox appropriées jusque lâ tout fonction bien seulement ça coince quand je veut faire de même mais pour juste pour une colonne de ma ListBox je m'explique
si par exmple la colonne 7 de la listbox contient des chiffes (10 pour la ligne 1, 20 pour la ligne 2...) je veux envoyer les valeurs 10 et 20 dans leur TextBox appropriées.

Voici le code qui fonctionne pour les lignes

Private Sub ListBox1_Change()
Dim n As Integer

If ListBox1.ListCount <= 1 Or ListBox1.ListIndex <= 0 Then Exit Sub
For n = 0 To 7
Controls("TextBox" & n + 1) = ListBox1.List(ListBox1.ListIndex, n)
Next
End Sub

Merci à vous tous

Cordialement

 

[youky(BJ)]

Bonjour,
Essayez comme cela
For n = 0 To 7
Controls("TextBox" & n + 1) = ListBox1.List(n)
Next
Bruno