Discussion :

[Oupss]

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 :

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

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.

[Krovax]

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.

[Oupss]

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 :

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

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.

[Oupss]

Pour info, voila une solution qui marche :

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

Code :

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

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.