boucle for next

[Evelynetfrancois]

bonjour tout le monde !
Pour simplifier ces huit lignes , j'essaye de boucler avec for next,sans resultat efficace
pouvais vous m 'aider et me montrer ma faille..;
Un grand merci d'avance pour tout
EetF

'UserFormSaisie.OptionButton1.Caption = UserFormItem.TextBox1.Value
'UserFormSaisie.OptionButton2.Caption = UserFormItem.TextBox2.Value
'UserFormSaisie.OptionButton3.Caption = UserFormItem.TextBox3.Value
'UserFormSaisie.OptionButton4.Caption = UserFormItem.TextBox4.Value
'UserFormSaisie.OptionButton5.Caption = UserFormItem.TextBox5.Value
'UserFormSaisie.OptionButton6.Caption = UserFormItem.TextBox6.Value
'UserFormSaisie.OptionButton7.Caption = UserFormItem.TextBox7.Value
'UserFormSaisie.OptionButton8.Caption = UserFormItem.TextBox8.Value
j essaye:

dim ob as byte
For ob = 1 To 8
Me.Controls("UserFormSaisie.OptionButton" & ob) = Me.Controls(" UserFormItem.TextBox" & ob).Value
Next ob

 

[Evelynetfrancois]

Re : boucle for next

merci beaucoup carcharodon carcharias
Cela fonctionne à merveille , à la difference pret , que je suis obligé de reinitialiser UserFormSaisie, ce qui n'est pas vraiment un gros soucis
bonne journée a toi et encore merci !!!
E et F