Bonjour, Voici peut-être une solution : Function Somme(Grille As MSFlexGrid, Pl As Long, Dl As Long, Pc As Long, Dc As Long) As Double Dim i As Long, j As Long For i = Pl To Dl For j = Pc To Dc Somme = Somme + Val(Grille.TextMatrix(i, j)) Next j Next i End Function Bon courage
|