XL 2016 somme ligne Tableau 2D

[djiska]

bonjour ,
je rencontre un bugg avec mon code.
j'essaie de faire la somme des cases dont la valeur est la plus grande pour chaque ligne du tableau

Merci de m'aider.
vous trouverez le code en PJ.

 

[Dudu2]

Bonjour,

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

 

[Dudu2]

Tu ferais mieux de mettre ton tableau d'entré dans des cellules.

 

[JHA]

Bonjour à tous,

Un essai avec les données en mode tableau

JHA