bonjour a tous
j'aimerais aléger un code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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