julien clerc
XLDnaute Junior
voila , un code vba pour une combinaisons de 5 numéros parmi 25
seulement, je veux classer 10 combinaisons par colonne, impossible d'écrire les combinaison manquante sur la feuille n°2 .
Sub combinaisons()
lin = 1
col = 1
For m = 1 To 25
For n = m + 1 To 25
For o = n + 1 To 25
For p = o + 1 To 25
For q = p + 1 To 25
Cells(lin, col) = m & " " & n & " " & " " & o & " " & p & " " & q
lin = lin + 1
If lin > 10 Then
col = col + 1
lin = 1
End If
Next q
Next p
Next o
Next n
Next m
End Sub
merci de votre aide
seulement, je veux classer 10 combinaisons par colonne, impossible d'écrire les combinaison manquante sur la feuille n°2 .
Sub combinaisons()
lin = 1
col = 1
For m = 1 To 25
For n = m + 1 To 25
For o = n + 1 To 25
For p = o + 1 To 25
For q = p + 1 To 25
Cells(lin, col) = m & " " & n & " " & " " & o & " " & p & " " & q
lin = lin + 1
If lin > 10 Then
col = col + 1
lin = 1
End If
Next q
Next p
Next o
Next n
Next m
End Sub
merci de votre aide