[E-02] : utilisation de matrice dans Vba

Bonjour,

je cherche a affecter a des cellules (m,n) la valeur retournee par la fonction sommeprod(A;B) où A et B sont 2 matrices variables.

Par exemple A est une matrice colonne qui contient les cellules de (1,1) a (i,1)
et B une matrice ligne contenant les cellules (i+1,1) a (i+1,i)

J'ai essaye :

Code:

---

1 2 3 4 5 6 7

For j = 1 To i A(i) = Cells(j, 1) B(i) = Cells(i + 1, j) Next i   Cells(m,n) = Application.WorksheetFunction.sommeprod(A()*B())

---

mais je n'arrive pas a passer les tableaux Vba en matrice dans la fonction excel.


Merci de votre aide.

hmm on part du principe que les tableau sont bien déclaré et que le problème ne viens pas de là
Excel ne connais pas la multiplication de tableau
A()*B() n'a pas de sens (du moins dans les exemples que j'ai testé)
C'est a toi de définir la fonction produit de matrice, ainsi que l'addition la soustraction la puissance la transposition, etc...
Puisque a ma connaissance excel ne connait pas les matrices.

Le produit ne peut se faire entre une matrice ligne et colonne la solution "Excel" est : sommeprod(A;transpose(B))

J'ai en outre stocke dans des variables les adresses des cellules de debut et de fin de matrice afin de passer par l'assignation de formules dans une cellule :

Code:

---

1 2 3 4 5 6 7

AA = Cells(1,1).Address AZ = Cells(i,1).Address BA = Cells(i+1,1).Address BZ = Cells(i+1,i).Address   Cells(m,n).Formula = "=SOMMEPROD(" & AA & ":" & AZ & "*(TRANSPOSE(" & BA & ":" & BZ & ")))"

---

La formule apparait bien dans la cellule voulue mais me retourne une erreur #NOM?
Lorsque je sors de la macro et que je clique sur cette cellule, edite la formule puis fais Ctrl+Maj+Entree la cellule prend la bonne valeur...

Connaissez-vous un moyen de lui faire valider la cellule en matrice ?
J'ai essaye de placer la formule entre {} dans la macro mais ca ne marche pas.

Pour info, voila une solution qui marche :

J'ai remplace le sommeprod par le sum du produit des matrices.

Code:

---

1 2 3

Cells(m,n).Select Selection.FormulaArray = "=SUM(R1C1:R" & i & "C1*(TRANSPOSE(R" & (i + 1) & "C1:R" & (i + 1) & "C" & i & ")))"

---

Etrange mais il faut absolument passer par le Cells.Select puis le Selection.FormulaArray....sinon ca marche pas.

:roll: