En fait, si tu veux toutes les combinaisons possibles avec 9 chiffres pour 49 valeurs, il y a 2 054 455 634 cas differents. C'est en theorie possible de le calculer, mais cela demanderait beaucoup de ressources a l'ordinateur (et beaucoup, beaucoup de temps) et c'est si ton ordinateur arrive a le faire.
Sub test()
Const u& = 49
Const v& = 9
Dim c(), y()
Dim i&, j&, r&, x&
ReDim y(1 To u ^ v, 1 To v), c(1 To u ^ v, 1 To v)
For j = 1 To v
For i = 1 To u ^ v
y(i, j) = 1 + Int((i - 1) / (u ^ (v - j))) Mod u
Next i
Next j
For i = 1 To u ^ v
For j = 2 To v
If Not y(i, j) - y(i, j - 1) > 0 Then GoTo nxti
Next j
x = x + 1
For j = 1 To v
c(x, j) = y(i, j)
Next j
nxti:
Next i
[a1].Resize(x, v).Value = c
End Sub
Un code qui marche PEUT ETRE si tu veux t'amuser ^^