'test pour exceldownload
Sub testX()
'combien de combinaisons/permutation possibles avec 5 item sur 70
NombreCombiper = NbCombiPermut1(70, 5)
texte = "il y a " & NbCombi(70, 5) & " combinaisons possibles de 5 nombres sur 70 " & vbCrLf & vbCrLf
texte = texte & "il y a " & NombreCombiper & " combinaisons/Permutations possibles avec 5 nombres sur 70"
texte = texte & vbCrLf & vbCrLf & NbCombiPermut1(5, 5) & " permutations de ces 5 nombres " & "dans ces " & NombreCombiper
MsgBox texte
End Sub
'--------------------------------------------------------------------------------------------
Sub test()
MsgBox NbCombi(70, 5) & " (combinaisons possibles s"
End Sub
Function NbCombi(Base#, N#)
'FORMULE PATRICKTOULON Developpez.com
NbCombi = WorksheetFunction.Combin(Base, N) ' avec worksheetfunction
End Function
'--------------------------------------------------------------------------------------------
Sub test1()
MsgBox NbCombiPermut1(5, 5) & " (combinaison /permutations) possibles"
End Sub
Function NbCombiPermut1(Base#, N#) As Double
'FORMULE PATRICKTOULON Developpez.com
Dim Nb#, i#: Nb = Base
For i = 1 To N - 1: Nb = Nb * (Base - i): Next: NbCombiPermut1 = Nb
End Function
'--------------------------------------------------------------------------------------------
Sub test2()
MsgBox NbCombiPermut2(5, 5) & " (combinaison /permutations) possibles"
End Sub
Function NbCombiPermut2(Base#, N#) As Double
'formule de Menhir Developpez.com
Dim res#
res = Evaluate("Fact(" & N & ")*Combin(" & Base & "," & N & ")")
NbCombiPermut2 = res
End Function
'--------------------------------------------------------------------------------------------
Sub test3()
MsgBox NbCombiPermut3(5, 5) & " (combinaison /permutations) possibles"
End Sub
Function NbCombiPermut3(Base#, N#) As Double
'formule de Menhir Developpez.com
Dim res#
res = Evaluate("Fact(" & Base & ")/Fact(" & Base & "-" & N & ")")
NbCombiPermut3 = res
End Function
'--------------------------------------------------------------------------------------------
Sub test4()
MsgBox NbCombiPermut4(5, 5) & " (combinaison /permutations) possibles"
End Sub
Function NbCombiPermut4(Base#, N#) As Double
'FORMULE PATRICKTOULON Developpez.com
Dim res#, x#, y#
x = Application.Combin(Base, N)
y = Evaluate("Fact(" & N & " )*Combin(" & N & "," & N & ")")
NbCombiPermut4 = Val(x * y)
End Function