boucler sur deux for next .

[Evelynetfrancois]

bonjour le forum

j ai écris une macro qui fonctionne bien , mais qui me semble bien cochonne
je pense que l'on peut boucler , mais je ne trouve pas l astuce ..
voici un extrait
Private Sub CommandButton4_Click()
TextBox26.Value = Label1.Caption
TextBox27.Value = Label2.Caption
TextBox28.Value = Label3.Caption
TextBox29.Value = Label4.Caption
TextBox30.Value = Label5.Caption
TextBox31.Value = Label6.Caption
TextBox32.Value = Label7.Caption
................
TextBox50.Value = Label25.Caption
End Sub

j essaye avec

Dim I As Byte
Dim x As Byte
For x = 1 To 25
For I = 26 To 50
Me.Controls("textbox" & I).Value =Me.Controls("label" & x).Caption
next
next
End Sub

bien sur ça beugue
auriez vous la solution , une voie .... je vous en remercie d'avance

bonne soirée
E et F

 

[Pierrot93]

Re : boucler sur deux for next .

Bonjour,

peut être ainsi :

Dim i As Byte
For i = 1 To 25
    Me.Controls("Textbox" & i + 25).Value = Me.Controls("Label" & i).Caption
Next i

bon après midi
@+

 

[MJ13]

Re : boucler sur deux for next .

Bonjour EF, Pierrot

Normalement, il sufirait de mettre un code du genre:

For I = 26 To 50
Me.Controls("textbox" & I).Value =Me.Controls("label" & I-25).Caption
next

 

[Evelynetfrancois]

Re : boucler sur deux for next .

Waouuuu
Un grand merci pierro93 et mj13 !
Dans un sens ou dans l'autre lol
je n avais pas penser a mettre un operateur
vraiment super
bonne soirée à vous , forum
E et F