P: Select Case P
'calcul de n
Case 12, 31: Me.TextBox6.Value = Format(CDbl(Me.TextBox4.Value) / CDbl(Me.TextBox3.Value), "0.00")
Case 3: Me.TextBox6.Value = Format(Log(CDbl(Me.TextBox1.Value) / CDbl(Me.TextBox2.Value)) / Log(2), "0.00")
'calcul de lambda
Case 4, 5, 7, 39: Me.TextBox5.Value = Format(Log(2) / CDbl(Me.TextBox3.Value), "0.00E+00")
P = 19: GoTo P
'calcul de A1
Case 33: Me.TextBox2.Value = Format(CDbl(Me.TextBox1.Value) / (2) ^ CDbl(Me.TextBox6.Value), "0.00E+00")
Case 25, 61: Me.TextBox2.Value = Format(CDbl(Me.TextBox1.Value) * Exp(-(CDbl(Me.TextBox5.Value) * CDbl(Me.TextBox4.Value))), "0.00E+00")
'calcul de t
Case 19, 23, 55: Me.TextBox4.Value = Format(Log(CDbl(Me.TextBox1.Value) / CDbl(Me.TextBox2.Value)) / CDbl(Me.TextBox5.Value), "0.00E+00")
'calcul de A0
Case 26, 30: Me.TextBox1.Value = CDbl(Me.TextBox2.Value) / Exp(-(CDbl(Me.TextBox5.Value) * CDbl(Me.TextBox4.Value)))
Case 14, 46, 62, 34: Me.TextBox1.Value = CDbl(Me.TextBox2.Value) * (2) ^ (Me.TextBox6.Value)
'calcul de A depuis la masse
Case 212: Me.TextBox1.Value = CDbl(Me.TextBox5.Value) * (6.023 * 10 ^ 23) * (CDbl(Me.TextBox7.Value) / CDbl(Me.TextBox8.Value))
Case Else: For i = 1 To 8: Me.Controls("TextBox" & (i)).ForeColor = 255: Next
End Select