Calcul est faux dans textbox

[kakidtuile]

bonjour, je vous souhaite une très bonne année 2024

Retraité je me suis amusé de faire des UserForms pour faire calculs mes je ne comprend pas sur les km/h sur le textbox de Km/h le résultat et faux je ne trouve pas pourquoi, si vous trouver dit moi avec le pourquoi
Merci
km-h.xlsm (44,8 Ko)

[taz067]

hello
ben les résultats son juste, si je mets 100 km à faire en 1 heure il me calcule bien 100 km/h

[kakidtuile]

---------- Forwarded message ----------

merci taz067
km-h.xlsm (44,8 Ko)

oui mais si tu mets le résultat est faux si il y a des chiffres après la virgule

[taz067]

J’ai peur de ne pas comprendre ce que tu veux dire
Résultat après quelle virgule, mets un exemple concret de ce que tu « vois »

[kakidtuile]

ce que je veux dire exemple pour 100.45km en 1:52h résultat doit être 53.81km/h et sur le textbox il est de 53.571 donc différence 0.239
bonne soirée merci

[taz067]

Heu 100.45 km sauf erreur de ma part, ça fait 100 km et 450 m

et dans le textbox ça fait même, 53,5714285714286, en fait la cellule F6 affiche l’arrondi à 2 chiffres après la virgule

[Cow18]

Private Sub CommandButton2_Click()
     If Len(TextBox5.Value) = 0 Then MsgBox "temps inconnu": Exit Sub

     km = CDbl(Replace(Me.TextBox4, ".", ","))
     h = CDbl(TimeValue(TextBox5.Value))
     If h = 0 Then
          vitesse = "***"
          TextBox6.Value = vitesse
     Else
          vitesse = km / (h * 24)
          TextBox6.Value = Format(vitesse, "#,##0.00""Km/h""")
     End If

     ActiveSheet.Range("F1") = km
     ActiveSheet.Range("F2") = h
     
End Sub

[kakidtuile]

bonjour a tous
merci taz067 et Cow18
qui a trouvé la solution vous êtes des pro
résolu
bonne journée