Re : Calculs mathématiques depuis Userform
Bonjour,
Très modeste contribution sur les puissances 10, pour afficher une notation dite scientifique :
....(IIf(lavaleur < 1, lavaleur, Format(lavaleur, "0.00E+00")))
Avec un point, oui, un point.
Et donc, pour les premiers calculs, sur les A1 et Lambda, même approche, le point :
Private Sub Calcul_Click()If Me.A0 <> "" And Me.A1 <> "" And Me.L <> "" Then
Me.té = Format(WorksheetFunction.Ln(A0 / A1) / L, "##0.000000")
ElseIf Me.A0 <> "" And Me.té <> "" And Me.L <> "" Then
Me.A1 = Format(Exp(1) ^ (-L * té) * A0, "##0.000000")
Else
MsgBox "Il manque une variable"
End If
End Sub
Comme ça, les textboxes contiendront des nombres, lesquels s'afficheront avec une virgule. Va comprendre ?
Donc, on peut se resservir de ces données pour calculs ultérieurs, ce qui pourrait éviter les replace et les CDbl, mais là je m'avance peut-être.
Peut-être que VBA interprète toutes les virgules comme séparateur dans une instruction avec arguments ???
Tiens, pendant que j'y suis, comment calcules-tu le T (le grand T) en textbox3 ? Qu'est-ce ?
A bientôt pour de nouvelles aventures...
Gruick