Cette leçon combine une Function et une boucle pour calculer automatiquement le montant TTC de toute une liste de factures, selon un taux de TVA qui varie selon la catégorie du produit ou service facturé.

Function CalculerTTC(montantHT As Double, tauxTVA As Double) As Double
    CalculerTTC = montantHT * (1 + tauxTVA)
End Function

Sub AppliquerTVA()
    Dim i As Integer
    For i = 2 To 10
        If Cells(i, 3).Value = "Réduit" Then
            Cells(i, 4).Value = CalculerTTC(Cells(i, 2).Value, 0.06)
        Else
            Cells(i, 4).Value = CalculerTTC(Cells(i, 2).Value, 0.18)
        End If
    Next i
End Sub

La Function centralise le calcul TTC lui-même (montant HT majoré du taux reçu en paramètre), tandis que la boucle détermine, ligne par ligne, quel taux appliquer selon la catégorie indiquée en colonne C.

À vous de jouer : adaptez cette macro pour gérer une troisième catégorie de taux, par exemple un taux "Exonéré" à 0%.

Function CalculerTTC(montantHT As Double, tauxTVA As Double) As Double
    CalculerTTC = montantHT * (1 + tauxTVA)
End Function

Sub Test()
    If Cells(3, 3).Value = "Réduit" Then
        MsgBox CalculerTTC(Cells(3, 2).Value, 0.06)
    Else
        MsgBox CalculerTTC(Cells(3, 2).Value, 0.18)
    End If
End Sub