Salut à tous.
SVP comment recuperer les valeurs d'un textbox 3sur un formulaire form1 et le mettre dans un autre textbox3 sur un autre formulaire form2.
voici le code de mon module
Module Module1
Function Factoriel(ByVal n As String) As String
If n <= 1 Then
'Par convention 0!=1
Factoriel = 1
Else
Factoriel = n * Factoriel(n - 1)
End If
End Function
Function Combinaison(ByVal n As String, ByVal k As String) As String
'Les deux premieres étapes évitent des calculs évidents
If k = 0 Or n = k Then
Combinaison = 1
Exit Function
End If
If k = 1 Or k = n - 1 Then
Combinaison = n
Exit Function
End If
Combinaison = Factoriel(n) / (Factoriel(k) * Factoriel(n - k))
End Function
End Module
voici le code de mon form1
n = TextBox1.Text
k = TextBox2.Text
Factoriel(n)
Combinaison(n, k)
TextBox3.Text = Combinaison(n, k)
Celui de mon form2
TextBox1.Text = Form1.TextBox3.Text
je signale qu'il affiche la valeur 1 dans le textbox1 de mon form2 kelke soit le resultat obtenu dans le textbox3 du form1
comment faire?????
AU SECOURS