J
JJ1
Guest
Bonjour,
J'ai quelques lignes de code qui fonctionnent mais très lentement...
Auriez-vous une idée de turbo !!
Dim cel As Range
Dim a, b, c, d, e, f As Integer
For a = 1 To 50
For b = a + 1 To 50
For c = b + 1 To 50
For d = c + 1 To 50
For e = d + 1 To 50
For f = e + 1 To 50
Range("G1") = a
Range("H1") = b
Range("I1") = c
Range("J1") = d
Range("K1") = e
Range("L1") = f
If [R1] = 0 Then [G1:L1].Copy Range("Y" & Cells(Rows.Count, 28).End(xlUp).Row + 1)' copie de la série
Next
Next
Next
Next
Next
Next
merci beaucoup.
Bon samedi.
J'ai quelques lignes de code qui fonctionnent mais très lentement...
Auriez-vous une idée de turbo !!
Dim cel As Range
Dim a, b, c, d, e, f As Integer
For a = 1 To 50
For b = a + 1 To 50
For c = b + 1 To 50
For d = c + 1 To 50
For e = d + 1 To 50
For f = e + 1 To 50
Range("G1") = a
Range("H1") = b
Range("I1") = c
Range("J1") = d
Range("K1") = e
Range("L1") = f
If [R1] = 0 Then [G1:L1].Copy Range("Y" & Cells(Rows.Count, 28).End(xlUp).Row + 1)' copie de la série
Next
Next
Next
Next
Next
Next
merci beaucoup.
Bon samedi.