tamtam64

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    'Fais la somme d'une matrice par colonne
Function SumTableau(ByVal MyTab As Variant) As Variant
        'Definition des variables
    Dim i As Long, j As Long
    Dim MyVar As Variant
        'Forcage en vecteur ligne
    ReDim MyVar(1 To 1, 1 To UBound(MyTab, 1))
        'Somme
    For i = 1 To UBound(MyTab, 1)
            For j = 1 To UBound(MyTab, 2)
                MyVar(1, i) = MyVar(1, i) + MyTab(i, j)
            Next j
            MyVar(1, i) = MyVar(1, i) / 1000
    Next i
        'Attribution
    SumTableau = MyVar
        'vidage
    Erase MyVar
End Function