Cette leçon combine une Function et une boucle pour déterminer automatiquement le rendement cible (en tonnes par hectare) de chaque parcelle, selon le type de culture qui y est planté.

Function RendementCible(culture As String) As Double
    If culture = "Blé" Then
        RendementCible = 6
    ElseIf culture = "Maïs" Then
        RendementCible = 9
    Else
        RendementCible = 4
    End If
End Function

Sub AppliquerRendementsCibles()
    Dim i As Integer
    For i = 2 To 20
        Cells(i, 3).Value = RendementCible(Cells(i, 2).Value)
    Next i
End Sub

La Function centralise les rendements cibles par culture (Blé, Maïs, autre culture par défaut), et la boucle l'applique à chaque parcelle, en lisant la culture en colonne B et en écrivant le rendement cible en colonne C.

À vous de jouer : adaptez cette Function pour ajouter une culture "Riz" avec son propre rendement cible.

Function RendementCible(culture As String) As Double
    If culture = "Blé" Then
        RendementCible = 6
    ElseIf culture = "Maïs" Then
        RendementCible = 9
    Else
        RendementCible = 4
    End If
End Function

Sub Test()
    MsgBox RendementCible(Cells(5, 2).Value)
End Sub