ajouter une condition a un textbox

[louatt]

Bonjour une petite question j'ai un fichier avec 17 texbox alimenté par le code ci-dessous.

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

 

[Pierrot93]

Re : ajouter une condition a un textbox

Bonsoir Louatt

sans plus de détails, rajoute peut être ceci à la fin de ton code...

Me.NomNouveauTextbox = Sheets("Feuil1").Range("E1").Value

bonne soirée
@+