Ingénierie VITESSE()

[Nairolf]

Salut,

Une nouvelle contribution pour le calcul de la vitesse avec la gestion des unités selon le système S.I. (j'ai mis les unités les plus fréquentes, mais on pourrait en ajouter beaucoup) :

Function VITESSE(Distance As Double, UnitéDistance As String, Durée As Double, UnitéTemps As String, UnitéVitesse As String)
Dim ut As Double
Dim ud As Double
Dim uv As Double

Select Case UnitéTemps
    Case "h"
        ut = 3600
    Case "min"
        ut = 60
    Case "s"
        ut = 1
    Case Else
        VITESSE = "Pb unité temps"
        Exit Function
End Select

Select Case UnitéDistance
    Case "km"
        ud = 1000
    Case "m"
        ud = 1
    Case Else
        VITESSE = "Pb unité distance"
        Exit Function
End Select

Select Case UnitéVitesse
    Case "km/h"
        uv = 3600 / 1000
    Case "m/s"
        uv = 1
    Case Else
        VITESSE = "Pb unité vitesse"
        Exit Function
End Select

VITESSE = (Distance * ud) / (Durée * ut) * uv

End Function

Un petit exemple sur l'usage de cette fonction :

=VITESSE (1500;"m";6;"min";"km/h")

Il faut bien mettre les unités entre guillemets.

EDIT 23/04/21 16:47 :
Changement de catégorie Math => Ingénierie

 

[Etoto]

Bonjour,
On dirait que tu es spécialisé dans les unité composées avec tes fonctions VITESSE, MASSE et VOLUME merci de l'aide que tu apportes aux ingénieurs et aux scientifiques.

 

[Nairolf]

Salut,

Merci pour ton retour.

J'ai toujours remarqué que la gestion des unités dans les calculs scientifiques posaient régulièrement problème, d'où les formules que j'ai créées qui permettent d'éviter les habituelles erreurs de conversions en plus de faire les calculs (qui sont simples par eux-mêmes).
J'en ai d'autres que je mettrais au fur et à mesure.

N'hésite pas à indiquer de nouveaux besoins, dans le Forum Excel.

 

[Etoto]

Oui j'hésite à créer une fonction grâce au VBA pour la mettre dans ce forum mais je doute qu'elle soit utile vu qu'elle fait l'équation pour la vitesse de libération d'un astre et j'en ai aussi une pour son rayon de Schwarzschild. Mais je pense pas que beaucoup de gens vont les utilisés . Parce que je l'ai déjà faite mais avec des fonction créée de base par Excel

 

[Etoto]

Mais à ton avis devrais-je poster une page dessus ou pas ? Mais cela risque de prendre du temp (le temp de convertir ma formule Excel en une fonction créée en VBA).

 

[Nairolf]

Je ne peux pas répondre à ta place, mais, avant de faire un travail sur Excel (VBA ou Formules) et de le partager, je me demande toujours quel objectif je veux atteindre (il peut y en avoir plusieurs) :
- Rendre service à quelqu'un
- Partager quelque chose qui a été bien utile (à moi ou quelqu'un d'autre)
- Le faire parce que j'ai envie
...

La dernière raison n'est pas à sous-estimer

 

[Etoto]

Je ne peux pas répondre à ta place, mais, avant de faire un travail sur Excel (VBA ou Formules) et de le partager, je me demande toujours quel objectif je veux atteindre (il peut y en avoir plusieurs) :
- Rendre service à quelqu'un
- Partager quelque chose qui a été bien utile (à moi ou quelqu'un d'autre)
- Le faire parce que j'ai envie
...

La dernière raison n'est pas à sous-estimer

Oui tu as raisons. Je vais la créer de mon côté et si je remarque que dans ce site quelqu'un a besoin de quelque chose du genre je posterais un article alors.

 

[Magic_Doctor]

Je ne peux pas répondre à ta place, mais, avant de faire un travail sur Excel (VBA ou Formules) et de le partager, je me demande toujours quel objectif je veux atteindre (il peut y en avoir plusieurs) :
- Rendre service à quelqu'un
- Partager quelque chose qui a été bien utile (à moi ou quelqu'un d'autre)
- Le faire parce que j'ai envie
...

La dernière raison n'est pas à sous-estimer

Il n'y a pas de fonctions inutiles, il n'y a que des personnes qui manquent d'imagination.