• Thème : fonctions et paramètres optionnels | Durée : 20 min | Niveau : intermédiaire.
• Macros à écrire : la fonction TTC et la macro CalculerTTC.

• Créer la fonction TTC(ht As Double, Optional taux As Double = 0.2) As Double, qui renvoie le prix TTC arrondi à 2 décimales.
• Écrire la macro CalculerTTC, qui remplit la colonne D (Prix TTC) pour chaque article.
• Si le taux de la colonne C est vide, appeler la fonction sans taux, donc à 20 %.

Function TTC(ht As Double, Optional taux As Double = 0.2) As Double
    TTC = Round(ht * (1 + taux), 2)
End Function

Sub CalculerTTC()
    Dim i As Long
    i = 2
    Do While Cells(i, 1).Value <> ""
        If IsEmpty(Cells(i, 3).Value) Then
            Cells(i, 4).Value = TTC(Cells(i, 2).Value)
        Else
            Cells(i, 4).Value = TTC(Cells(i, 2).Value, Cells(i, 3).Value)
        End If
        i = i + 1
    Loop
End Sub

• Une fonction renvoie son résultat en l'affectant à son propre nom.
• Un paramètre Optional avec une valeur par défaut s'omet à l'appel.
• IsEmpty distingue une cellule vide d'une cellule qui contient 0 (le taux 0 % de l'article Formation).
• Dans Excel, une fonction publique d'un module est aussi utilisable en formule : =TTC(B2).

• Instruction Function : Source Microsoft Learn
• Fonction IsEmpty : Source Microsoft Learn