youguybass
XLDnaute Junior
Je cherche à simplifier ces boucles en 1 seule
Merci pour votre aide
'Remplissage des références
E = 37
For C = 10 To 164 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des désignations Op
E = 39
For C = 12 To 166 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des Clients
E = 40
For C = 14 To 168 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des désignations Pièces
E = 41
For C = 13 To 167 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des Ref clients
E = 42
For C = 15 To 169 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
Merci pour votre aide
'Remplissage des références
E = 37
For C = 10 To 164 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des désignations Op
E = 39
For C = 12 To 166 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des Clients
E = 40
For C = 14 To 168 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des désignations Pièces
E = 41
For C = 13 To 167 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des Ref clients
E = 42
For C = 15 To 169 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next