Vitesse horaire

Soit deux colonnes, la première avec des distances parcourues, la seconde avec le temps mis pour parcourir ce trajet, comment calculer par formule ou en VBA la vitesse horaire ?

Avec la distance (exprimée en Km) en A1 nommée ici traG, et le temps en B1 (exprimé en h:mm) nommée ici tmP =(A1/B1)*"1:" ou par macro...

sub zaza()
Dim vitS As Double
On Error Resume Next
traG = Application.InputBox _
("La distance parcourue en Km", Type:=1)
tmP = Application.InputBox _
("La durée du trajet ?" & Chr(10) & _
"(Ex: 2:15:36 pour 2h 15' 36'')", Type:=1)
vitS = traG / (tmP * 24)
vitMoy = Application.Round((traG / (tmP * 24)), 2)
MsgBox "Vitesse moyenne: " & vitMoy & " Km/h"
end sub
Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 1 page modifiée.