Discussion :

[patricktoulon]

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

[MiXinG]

Salut,
J'ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("b"&i).Value

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("b"&i).Caption

selon ton type de control.

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MiXinG]

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

[patricktoulon]

bonjour laeticia

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

[laetitia]

re, tu as quoi comme erreur??

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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