VBA deux chiffre après le virguille

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

Bonjour

Utilise Round()

    borneDistMin = Round(292 - (292 * 2 / 100), 2)
    borneDistMax = Round(292 + (292 * 2 / 100), 2)
    borneTempsMin = Round(88 - (88 * 1.15 / 100), 2)
    borneTempsMax = Round(88 + (88 * 1.15 / 100), 2)

Si pas ça fournis un fichier dans lequel tu expliques ce que tu veux

Merci Banzai64 de rapidité de réponse j'ai Utilise Round() mais ça ne marcha pas j'ai déjà fais

autre problème dans le mémé contexte le limite de EMT pour le deux cas temp et distance est : EMT temp = ±1,02

EMTdist = ±5,84 mais même sup 1.1 accepté eu aussi mémé 5.9 pour la distance accepte peux être la formule de pourcentage que j'ai fais et fausse

merci d'avance

Bonjour

Désolé je ne comprends rien, cela ne vient pas de toi mais de moi

J'ai toujours eu des difficultés à comprendre

Je laisse la place