Application fonction ligne tableau vba

[Hoareau]

Re bonjour, j'essai d'appliquer une fonction, sur les lignes du tableau, résultat 6 colonne, mais erreur

sum c'est pour l'exemple
merci

Sub test_tableau()

Dim My_Array()

Sheets("BD").Select


My_Array = Range(Range("E3"), Range("I3").End(xlDown))

ReDim Preserve My_Array(1 To UBound(My_Array, 1), 1 To 6)


For x = 1 To UBound(My_Array, 1)
For y = 1 To UBound(My_Array, 2)

My_Array(x, 6) = Application.Sum(My_Array(X, Y))


Next
Next


Sheets("feuil1").Activate


[A1].Resize(UBound(My_Array, 1), UBound(My_Array, 2)) = My_Array

End Sub

 

[pierrejean]

Re : Application fonction ligne tableau vba

Bonjour Hoareau

Sans avoir testé (faute de fichier)

remplacer:

My_Array(x, 6) = Application.Sum(My_Array(X, Y))

par

My_Array(x, 6) = My_Array(x, 6) + My_Array(X, Y))

 

[Hoareau]

Re : Application fonction ligne tableau vba

la reponse me donne la somme, ce que cherche à faire, c'est appliquer une fonction, ligne par ligne du tableauet qui me met le resultat dans la colonne.

cette fonction peut etre sum, average ...

 

[Hoareau]

Re : Application fonction ligne tableau vba

Ci-joint fichier exemple

merci