Degrés Celsius ou Farenheit

Comment convertir les degrés Farenheit en Celsius et réciproquement ?

Function CelsiusFarenheit(temp As Double, measure As String) As Double
If UCase(measure) = "C" Then
CelsiusFarenheit = temp * 1.8 + 32
Else
CelsiusFarenheit = (temp - 32) / 1.8
End If
End Function

Pour l'utiliser, il suffit d'entrer dans une cellule la formule: =CelsiusFarenheit(20;"c") ce qui donne 68 farenheit ou =CelsiusFarenheit(68;"f") ce qui donne 20 celsius

Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 7 pages modifiées.