Petite correction sur une macro de copie entre textbox

[cpeens]

Bonjour à tous j'ai bricoler cette petite macro pour copier un groupe de textbox vers un notre groupe

1er groupe est les textbox Q1 a Q15 à copier vers le second Q16 à Q30

j'ai penser donc à sa

Dim a As Long
Dim b As Long
  For b = 1 To 15
 For a = 16 To 30

USF1.Controls("Q" & a).Value = USF1.Controls("Q" & b).Value
USF1.Controls("Q" & a) = ""

Next a
Next b

mais rien ne se passe ai je fais une erreur svp merci d'avance

 

[Pierrot93]

Re : Petite correction sur une macro de copie entre textbox

Bonjour,

essaye ceci... A voir...

Dim a As Long
For a = 1 To 15
USF1.Controls("Q" & a + 15).Value = USF1.Controls("Q" & a).Value
USF1.Controls("Q" & a) = ""
Next a

bon après midi
@+

 

[cpeens]

Re : Petite correction sur une macro de copie entre textbox

bonjour et merci pierrot93 ta solution à bien résolu mes problemes merci encore