Cette leçon combine un tableau (Array), un tableau de totaux et une boucle imbriquée pour additionner automatiquement les dons reçus selon le type de donateur.

Sub RepartirDonsParType()
    Dim typesDonateurs As Variant
    Dim totaux(0 To 2) As Double
    Dim i As Integer, j As Integer

    typesDonateurs = Array("Particulier", "Entreprise", "Fondation")

    For i = 2 To 15
        For j = 0 To 2
            If Cells(i, 2).Value = typesDonateurs(j) Then
                totaux(j) = totaux(j) + Cells(i, 3).Value
            End If
        Next j
    Next i

    MsgBox "Particuliers : " & totaux(0) & " $"
End Sub

Pour chaque don, la boucle intérieure compare le type de donateur (colonne B) à chaque valeur du tableau typesDonateurs ; en cas de correspondance, le montant en colonne C s'ajoute au total correspondant.

À vous de jouer : adaptez cette macro pour afficher les trois totaux dans un seul message.