Public Function SommeMaxligne(ByRef Tableau_Terrain() As Long, ByRef Tableau_Carte() As Long) As Long
Dim MaxLigne As Long
Dim i As Integer
Dim j As Integer
SommeMaxligne = 0
For i = LBound(Tableau_Carte, 1) To UBound(Tableau_Carte, 1)
MaxLigne = 0
For j = LBound(Tableau_Carte, 2) To UBound(Tableau_Carte, 2)
If Tableau_Carte(i, j) > MaxLigne And Tableau_Carte(i, j) > SeuilRentabilite Then
MaxLigne = Tableau_Carte(i, j)
End If
Next j
SommeMaxligne = SommeMaxligne + MaxLigne
Next i
End Function
Public Sub Tester()
Dim Tableau_Carte(1 To 4, 1 To 5) As Long
Dim Tableau_Terrain(1 To 4, 1 To 5) As Long
Dim i As Long
Dim j As Long
Dim Somme As Long
For i = LBound(Tableau_Carte, 1) To UBound(Tableau_Carte, 1)
For j = LBound(Tableau_Carte, 2) To UBound(Tableau_Carte, 2)
Tableau_Carte(i, j) = Val(InputBox("Entrer un valeur pour Tableau_Carte(" & i & ", " & j & ")"))
Next j
Next i
Somme = SommeMaxligne(Tableau_Terrain(), Tableau_Carte())
Call MsgBox(Somme)
End Sub