Bonjour,
J'ai plusieurs TxtBox dans mon UserForm et pour récupérer les valeurs des TxtBox j'ai mis en place une boucle mais qui ne s'exécute pas correctement.

Voici l'ancien code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub ButtonOk_Click()
 
Range("I2") = TextBox5
Range("J2") = TextBox6
Range("K2") = TextBox7
 
Range("I3") = TextBox8
Range("J3") = TextBox9
Range("K3") = TextBox10
 
Range("I4") = TextBox11
Range("J4") = TextBox12
Range("K4") = TextBox13
 
End Sub
Et voici le nouveau code avec la boucle :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub ButtonOk_Click()
'
j = 5
k = 1
l = 2
'
For i = 2 To 13
Range("I" & i) = Me.Controls("TextBox" & i)
Range("J" & i) = Me.Controls("TextBox" & j + k)
Range("K" & i) = Me.Controls("TextBox" & j + l)
j = j + 1
Next i
'
Unload Me
'
End Sub
En fait la boucle ne me prend pas en compte les valeurs k et l.

Merci pour votre aide.

Loumie.