Cette leçon combine une Function et une boucle pour calculer automatiquement le salaire net de toute une liste d'employés, selon un taux de charges sociales qui varie par palier de salaire brut.

Function ChargesSociales(salaireBrut As Double) As Double
    If salaireBrut > 4000 Then
        ChargesSociales = salaireBrut * 0.22
    ElseIf salaireBrut > 2000 Then
        ChargesSociales = salaireBrut * 0.18
    Else
        ChargesSociales = salaireBrut * 0.15
    End If
End Function

Sub CalculerSalairesNets()
    Dim i As Integer
    For i = 2 To 10
        Cells(i, 3).Value = Cells(i, 2).Value - ChargesSociales(Cells(i, 2).Value)
    Next i
End Sub

La Function isole la règle de calcul des charges (3 paliers), et la boucle l'applique à chaque ligne : le salaire net en colonne C est obtenu en soustrayant les charges du salaire brut en colonne B.

À vous de jouer : adaptez cette Function pour ajouter un palier supplémentaire à 25% au-delà de 8 000 $.

Function ChargesSociales(salaireBrut As Double) As Double
    If salaireBrut > 4000 Then
        ChargesSociales = salaireBrut * 0.22
    ElseIf salaireBrut > 2000 Then
        ChargesSociales = salaireBrut * 0.18
    Else
        ChargesSociales = salaireBrut * 0.15
    End If
End Function

Sub Test()
    MsgBox Cells(4, 2).Value - ChargesSociales(Cells(4, 2).Value)
End Sub