INFINITY100
XLDnaute Occasionnel
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
Merci à vous tous
Cordialement
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
VB:
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 SubMerci à vous tous
Cordialement