Bonjour à tous !
J'ai dans une TextBox le résultat de différents calculs.
je voudrai les résultat en deux chiffres après le virguile
comment ajouter ça dans mon code vba
Private Function Calcul() As String
Dim borneDistMin, borneDistMax As Double
Dim borneTempsMin, borneTempsMax As Double
Dim okDist, okTemps As Boolean
borneDistMin = 292 - (292 * 2 / 100)
borneDistMax = 292 + (292 * 2 / 100)
borneTempsMin = 88 - (88 * 1.15 / 100)
borneTempsMax = 88 + (88 * 1.15 / 100)
okDist = False
okTemps = False
If Not (TextBox25 = "") And Not (TextBox22 = "") Then
If ((Val(TextBox24) >= borneDistMin) And (Val(TextBox24) <= borneDistMax)) Then okDist = True
If ((Val(TextBox23) >= borneTempsMin) And (Val(TextBox23) <= borneTempsMax)) Then okTemps = True
If okDist And okTemps Then
Calcul = "PASSE"
Else
Calcul = "REFUS"
End If
Else
Calcul = "?"
End If
End Function
merci