louatt
XLDnaute Junior
Bonjour une petite question j'ai un fichier avec 17 texbox alimenté par le code ci-dessous.
Je cherche a ajouter un textbox donc les données serait issu de la cellule E1 de la feuille 1.
Comment je dois modifier mon code
Merci pour tout
Code:
Lig& = Me.ComboBox1
Do
nbLig& = nbLig& + 1
If Lig& + nbLig& > UBound(var, 1) Then Exit Do
Loop Until var(Lig& + nbLig&, 1) <> ""
For i& = 1 To 17
Me.Controls("TextBox" & i&) = ""
Next i&
j& = 1
For i& = Lig& To Lig& + nbLig& - 1
Me.Controls("TextBox" & j&) = var(i&, 2)
Me.Controls("TextBox" & j& + 1) = var(i&, 3)
j& = j& + 2
Next i&
For i& = 15 To 17
Me.Controls("TextBox" & i&) = var(Lig&, i& - 11)
Next i&Je cherche a ajouter un textbox donc les données serait issu de la cellule E1 de la feuille 1.
Comment je dois modifier mon code
Merci pour tout