C'est pas du VB, c'est des maths, des stats pour être précis, mais bon voila la réponse :
Une grille à 70 numéros :
Nb de combinaison à 2 cases : 70*69
Nb de combinaison à 3 cases : 70*69*68
...
Nb de combinaison à 10 cases : 70*69*68*67*66*65*64*63*62*61
nb total de solution : 70*69+70*69*68+70*69*68*67+ ....
+70*69*68*67*66*65*64*63*62*61
Tu n'as plus qu'a faire le calcul final
Mais comme je suis cool, voici le code :
Dim i As Long, r1 As Double, r2 As Double, j As Long
For i = 1 To 9 r1 = 1 For j = 70 To 70 - i Step -1 r1 = r1 * j Next r2 = r2 + r1 Next MsgBox r2
|
Soit un résultat d'environ 1,4 E+18
Christophe R.