For, vers un autre UF

Le 05/06/2018 à 10:32

Bonjour,

afin d'evité un code trop long a taper je voulais faire un FOR, pour reprendre des donné d' un UF vers un autre... J'ai essayer le code suivant...

Sub cop2()
a = 269
b = 756
For i = 0 To 71
    UserForm1.Me.Controls("TextBox" & a + i).Value = Me.Controls("TextBox" & b + i).Value
Next i
End Sub

évidement passe pas le Me.controls, avec l'userform1, est ce qu'il y aurais une solution?

Merci à vous

Le 05/06/2018 à 10:50

Bonjour SVBB, bonjour le forum,

Si les deux UserForm ont le même nombre de TextBoxes et se nomment UserForm1 et UserForm2 alors ça devrait donner :

For i = 0 To 71
    UserForm1.Controls("TextBox" & a + i).Value = UserForm2.Controls("TextBox" & b + i).Value
Next i
Le 05/06/2018 à 10:53

parfait, je te remercie, je n ai pas penser a mettre le userform2 aussi... pourtant, ca parait logique... encore merci