Vitesse moyenne

[MPP87]

Bonjour à tout le forum.

Petit souci d'affichage d'une division dans un usf. Dans ce dernier je saisie un nombre de Km, le temps ecoulé et dans le 3ème je voudrais avoir la vitesse moyenne.... Il y a un bug sur l'avant dernière ligne du code (VITMOY = CDbl(KM) / temps) que je n'arrive pas à résoudre. Si quelqu'un peu m'aider, merci d'avance !
voici mon code :

Private Sub TEMPS_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
KeyAscii = 0
End If
Dim Heur
temps.MaxLength = 5
Heur = Replace(temps.Value, ":", "")
If Len(Heur) > 2 Then Heur = Left(Heur, 2) & ":" & Right(Heur, Len(Heur) - 2)
If Len(Heur) = 5 Then
If Not IsDate(Format(temps, "hh:mm")) Then MsgBox "Heure invalide"
End If
temps.Value = Heur
Dim KM As Single, VITMOY As Single
KM = CDbl(Me.KM.Value)
Me.VITMOY.Value = Format(CDbl(VITMOY), "00.00")
VITMOY = CDbl(KM) / temps
End Sub

 

[JNP]

Re : Vitesse moyenne

Bonjour MPP87 ,
De base, je ne pense pas que dimensionner une variable KM quand un TextBox s'appelle déjà KM soit un bon choix...
Bonne journée

 

[MPP87]

Re : Vitesse moyenne

Bonjour JNP.
Merci pour ta réponse, mais je sèche toujours.

 

[MPP87]

Re : Vitesse moyenne affichée dans un usf

Plus j'essaie et moins je comprend.

 

[JNP]

Re : Vitesse moyenne

Re ,
Ne peux-tu poster une version light de ton fichier, et surtout avec ton USF ?
Bonne soirée

 

[MPP87]

Re : Vitesse moyenne

Bonsoir jnp.
Merci de bien vouloir m'aider.
Le temps d'aléger mon fichier et je l'envoi.

 

[MPP87]

Re : Vitesse moyenne

Re bonsoir.
Ci-joint une version light de mon fichier ; la seule solution que j'ai trouvé c'est de me calculer la vitesse moyenne dans une cellule lors de l'enregistrement de mes données.