' Fonction soustraction sur 2 valeurs, division optionnelle pour le ratio
Function soustraction_ratio(ByVal nombre1 As Double, ByVal nombre2 As Double, Optional ByVal nombre_diviseur As Variant) As Double
' Si le paramètre diviseur est manquant
If IsMissing(nombre_diviseur) Then
' On calcule la soustraction nombre1 - nombre2
soustraction_ratio = nombre1 - nombre2
' Sinon
Else
' On calcule la soustraction avec le diviseur pour le ratio (nombre1 - nombre2) / nombre1
soustraction_ratio = (nombre1 - nombre2) / nombre1
End If
End Function
Sub fonction_calcul()
' Calculer la différence valeur1 et valeur2, si valeur_diviseur ratio pour pourcentage
Dim calcul As Double
nombre1 = Range("A1").Value
nombre2 = Range("A2").Value
diviseur = Range("A3").Value
' Si le diviseur n'existe pas
If diviseur = False Then
' calcul soustraction
calcul = soustraction_ratio(nombre1, nombre2)
Else
' calcul ratio
calcul = soustraction_ratio(nombre1, nombre2, nombre1)
End If
Range("A4").Value = calcul
End Sub