quintés-fichier trop grand

[jad73]

bonjour le forum

j'ai une macro qui lorsque je l'éxécute ferme excel,il semblerait que cette opération demande trop de mémoire d'ou je me demanais s'il etait possible de faire deux opérations l'une des numéros de 1 a 35 et l'autre de 36 a 70,avec 2 macros.
comment faudrait-il l'inscrire dans le code
merci

 

[JJ1]

Re : quintés-fichier trop grand

Bonsoir,
Ce code de Roger devrait fonctionner (il y a près de 12 millions de combinaisons !!(concaténées sur x colonnes)


Sub combinaisons()
Dim lin&, col&, rc&, m%, n%, o%, p%, q%, tir$()
lin = 1
col = 0
rc = Rows.Count
ReDim tir(1 To rc, 0)
For m = 1 To 70
For n = m + 1 To 70
For o = n + 1 To 70
For p = o + 1 To 70
For q = p + 1 To 70

tir(lin, col) = m & " " & n & " " & o & " " & p & " " & q
lin = lin + 1
If lin > rc Then
col = col + 1
lin = 1
ReDim Preserve tir(1 To rc, col)
End If

Next q
Next p
Next o
Next n
Next m
Range(Cells(1, 1), Cells(rc, col + 1)).Value = tir
End Sub


Tu nous diras

A+

 

[jad73]

Re : quintés-fichier trop grand

bonsoir JJ1,le forum
effectivement ce code fonctionne bien mais le mien ne sert pas à avoir les combinaisons de 3,4 ,5 ou plus n°,mais a savoir quel sont les 5 n° qui sortent le plus souvent ensemble dans une plage de données.
merci quand meme
a+