alléger un code

bonjour a tous
j'aimerais aléger un code

Code:

---

1 2 3 4 5 6 7 8 9 10

Sheets(Sheets.Count).Range("b15").Value = b15 Sheets(Sheets.Count).Range("b16").Value = b16 Sheets(Sheets.Count).Range("b17").Value = b17 Sheets(Sheets.Count).Range("b18").Value = b18 Sheets(Sheets.Count).Range("b19").Value = b19 Sheets(Sheets.Count).Range("b20").Value = b20 Sheets(Sheets.Count).Range("b21").Value = b21 Sheets(Sheets.Count).Range("b22").Value = b22 Sheets(Sheets.Count).Range("b23").Value = b23 Sheets(Sheets.Count).Range("b24").Value = b24

---

la "b" suivie dun chiffre après le signe"=" represente les noms des textboxs dans mon userform

j'ai essayer de le faire par ceci:

Code:

---

1 2 3

for i = 15 to 24 Sheets(Sheets.Count).Range("b"&i).Value=Controls("b"&i) next

---

ca ne fonctionne pas quelqu'un aurait la solution
merci d'avance

Salut,
J'ai essayé:

Code:

---

1 2 3 4

For i = 3 To 6 Step 1 MsgBox (Controls("CheckBox2" & i).Value) Next i

---

J'ai 3 checkbox dans mon userform qui ont pour nom "CheckBox2..." et ça fonctionne.
Essaye peut-être avec:

Code:

---

Controls("b"&i).Value

---

ou

Code:

---

Controls("b"&i).Caption

---

selon ton type de control.

bonjour patricktoulon MiXinG le forum comme tu l' as écris cela copy dans ta derniére feuille!!!!! regarde ta derniere feuille

Code:

---

1 2 3 4

Dim i As Byte For i = 15 To 24 Sheets(Sheets.Count).Range("b" & i) = Controls("b" & i).Value Next

---

C'est pas voulu tu crois de tout copier dans la dernière feuille? :koi:

bonjour laeticia

j'aivais bien éssayé cette formule mais ca n'avait pas fonctionné

re, tu as quoi comme erreur??

Bonjour,

si ton code n'est pas dans l'userform (appelons-le userform1) contenant tes textboxes, il est nécessaire de te référer en plus à l'Userform ...

Code:

---

1 2 3

For i = 15 To 24 Sheets(Sheets.Count).Range("b" & i) = UserForm1.Controls("b" & i).Value Next

---

rebonjour a tous

ok merci laetitia tu avais raison c'etait moi qui avait fait une faute de syntaxe

Code:

---

Sheets(nomdevis).Range("b & i")=Controls("b" & i).Value

---

tu vois l'erreur

et pour la proposition de ucfoutu je la garde pour les intervention en dehors de l'userform ca va me servir
merci a tous les deux
je pointe resolu

a ++