Cette leçon combine un tableau (Array), un tableau de totaux et une boucle imbriquée pour additionner automatiquement la quantité consommée de chaque type d'intrant agricole (engrais, semences, pesticides).

Sub RepartirConsommationIntrants()
    Dim typesIntrants As Variant
    Dim totaux(0 To 2) As Double
    Dim i As Integer, j As Integer

    typesIntrants = Array("Engrais", "Semences", "Pesticides")

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

    MsgBox "Engrais : " & totaux(0) & " kg"
End Sub

Pour chaque ligne d'achat d'intrant, la boucle intérieure compare le type (colonne B) à chaque valeur du tableau typesIntrants ; en cas de correspondance, la quantité en colonne C s'ajoute au total correspondant.

À vous de jouer : adaptez cette macro pour afficher les trois totaux dans un seul message, avec leur unité respective.