Automatismes pour bdi

bonjour a tous,

je cherche a comprendre (et j'ai du mal )

comment on fait par le biais de boucles ou commande pour réduire un code comme celui là a quelque lignes (j'en ai encore plus de 100 a taper):

Private Sub saisie_chèques_Click()

Dim Ws As Worksheet

Set Ws = Sheets("CALCUL BF")

Ws.Range("B3") = TextBox1.Value

Ws.Range("B4") = TextBox2.Value

Ws.Range("B5") = TextBox3.Value

Ws.Range("B6") = TextBox4.Value

Ws.Range("B7") = TextBox5.Value

Ws.Range("B8") = TextBox6.Value

Ws.Range("B9") = TextBox7.Value

Ws.Range("B10") = TextBox8.Value

Ws.Range("B11") = TextBox9.Value

Ws.Range("B12") = TextBox10.Value

Ws.Range("B13") = TextBox11.Value

Ws.Range("B14") = TextBox12.Value

Ws.Range("B15") = TextBox13.Value

Ws.Range("B16") = TextBox14.Value

Ws.Range("B17") = TextBox15.Value

Ws.Range("B18") = TextBox16.Value

Ws.Range("B19") = TextBox17.Value

Ws.Range("B20") = TextBox18.Value

Ws.Range("B21") = TextBox19.Value

Ws.Range("B22") = TextBox20.Value

Ws.Range("B23") = TextBox21.Value

Ws.Range("B24") = TextBox22.Value

Ws.Range("B25") = TextBox23.Value

Ws.Range("B26") = TextBox24.Value

Ws.Range("B27") = TextBox25.Value

Ws.Range("B28") = TextBox26.Value

Ws.Range("B29") = TextBox27.Value

Ws.Range("B30") = TextBox28.Value

Ws.Range("B31") = TextBox29.Value

Ws.Range("B32") = TextBox30.Value

Ws.Range("B33") = TextBox31.Value

Ws.Range("B34") = TextBox32.Value

Ws.Range("B35") = TextBox33.Value

Ws.Range("B36") = TextBox34.Value

Ws.Range("B37") = TextBox35.Value

Ws.Range("B38") = TextBox36.Value

Ws.Range("B39") = TextBox37.Value

Ws.Range("B40") = TextBox38.Value

Ws.Range("B41") = TextBox39.Value

Ws.Range("B42") = TextBox40.Value

Hide

End Sub

merci

Bonsoir,

A tester

For i= 1 to 40 step 1
Ws.cells(i+2,2)="Textbox" & i.value
next i

Cdlt.

Je ne suis pas sur de la syntaxe mais cela pourrai peut-être ressembler à ceci.

For i=1 to 100

Ws.Range("B"&(2+i)) = "TextBox" & i.Value

Next i

Bonjour

Je verrai plus comme ça (car je n'ai pas tester les autres solutions)

  For i = 1 To 100
    ws.Cells(i + 2, 2) = Me.Controls("Textbox" & i).Value
  Next i

Jean-Eric a écrit :

Bonsoir,

A tester

For i= 1 to 40 step 1
Ws.cells(i+2,2)="Textbox" & i.value
next i

Cdlt.

rebonjour,

me donne

Ws.cells(i+2,2)="Textbox" & i.value

qualificateur inconnu

ne reconnait pas la seconde variable I

merci

Bonjour

Je confirme cela ne passe pas

Une version

Private Sub saisie_chèques_Click()
Dim I As Long

  With Sheets("CALCUL BF")
    For I = 1 To 100
      .Cells(I + 2, "B") = Me.Controls("Textbox" & I).Value
      'ou
      .Range("B" & I + 2) = Me.Controls("Textbox" & I).Value
    Next I
  End With
End Sub

re a tous,

comme d'habitude merci Banzai64 ca marche!

merci

comme d'hab. aussi!

ps:

Banzai, tes deux versions passent !

merci a tous

un jour quand je serais grand je comprendrais........ peut être