speedtriple
XLDnaute Junior
Bonjour le forum,
je bloque sur mon bout de code. J'ai 9 Textbox à remplir, les 8 premiers Textbox vont bien chercher leurs valeurs dans 8 colonnes qui se suivent de la colonne 1 à 8. Mais le 9 éme Textbox doit aller chercher la valeur de la colonne n°12. Voici mon code et je ne sais pas comment l'écrire.Merci
Private Sub ListBox1_Click() 'au clic dans la ListBox
For Y = 1 To 8
Me.Controls("TextBox" & Y).Value = ListBox1.List(ListBox1.ListIndex, Y - 1)
Me.Controls("TextBox" & 9).Value = ListBox1.List(ListBox1.ListIndex, 12)
Next Y
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End Sub
je bloque sur mon bout de code. J'ai 9 Textbox à remplir, les 8 premiers Textbox vont bien chercher leurs valeurs dans 8 colonnes qui se suivent de la colonne 1 à 8. Mais le 9 éme Textbox doit aller chercher la valeur de la colonne n°12. Voici mon code et je ne sais pas comment l'écrire.Merci
Private Sub ListBox1_Click() 'au clic dans la ListBox
For Y = 1 To 8
Me.Controls("TextBox" & Y).Value = ListBox1.List(ListBox1.ListIndex, Y - 1)
Me.Controls("TextBox" & 9).Value = ListBox1.List(ListBox1.ListIndex, 12)
Next Y
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End Sub