J
JJ1
Guest
Bonjour à tous,
J'utilise un petit code pour développer une série de 9 nombres placés en J1:R1 en 9 séries de 8 nombres de A2 à H10:
Dim N(9) As Integer
Dim P As Integer
Nt = 9
For i = 1 To 9: N(i) = Cells(1, 9 + i): Next
P = 1
For A = 1 To Nt
For B = A + 1 To Nt
For C = B + 1 To Nt
For D = C + 1 To Nt
For E = D + 1 To Nt
For F = E + 1 To Nt
For G = F + 1 To Nt
For H = G + 1 To Nt
P = P + 1
Range("A" & P) = N(A)
Range("B" & P) = N(B)
Range("C" & P) = N(C)
Range("D" & P) = N(D)
Range("E" & P) = N(E)
Range("F" & P) = N(F)
Range("G" & P) = N(G)
Range("H" & P) = N(H)
Next H
Next G
Next F
Next E
Next D
Next C
Next B
Next A
Ce code a tendance à "ramer" , auriez-vous une astuce pour le "booster" ?
Merci de votre aide
a+
J'utilise un petit code pour développer une série de 9 nombres placés en J1:R1 en 9 séries de 8 nombres de A2 à H10:
Dim N(9) As Integer
Dim P As Integer
Nt = 9
For i = 1 To 9: N(i) = Cells(1, 9 + i): Next
P = 1
For A = 1 To Nt
For B = A + 1 To Nt
For C = B + 1 To Nt
For D = C + 1 To Nt
For E = D + 1 To Nt
For F = E + 1 To Nt
For G = F + 1 To Nt
For H = G + 1 To Nt
P = P + 1
Range("A" & P) = N(A)
Range("B" & P) = N(B)
Range("C" & P) = N(C)
Range("D" & P) = N(D)
Range("E" & P) = N(E)
Range("F" & P) = N(F)
Range("G" & P) = N(G)
Range("H" & P) = N(H)
Next H
Next G
Next F
Next E
Next D
Next C
Next B
Next A
Ce code a tendance à "ramer" , auriez-vous une astuce pour le "booster" ?
Merci de votre aide
a+