Algorithme & matrice

Bonjour,

J'ai une matrice 1x4 [ n , n , n , n ] et j'aimerais la multiplier par une matrice 4x1. Connaissez-vous le moyen de realiser cette opération dans la VBA excel ?

En vous remerciant

bonjour,

à tester,

=SOMMEPROD((A1:A4)*(B1:E1))

Bonjour SabV,

En faisant ça je dois ecrire les valeurs dans un fichier excel. J'aimerais faire cette opération dans la feuille macro.

En te remerciant

Yoboys

Bonjour,

à tester,

Sub test()
Set plg1 = Range("A1:A4")
Set plg2 = Range("B1:E1")
resultat = Evaluate("SUMPRODUCT(" & plg1.Address & "*" & plg2.Address & ")")
End Sub

La encore je dois utiliser une feuille d'excel. J'aimerais que tout ce passe sur la macro. Il y a des milliers de calcul a faire et utiliser une feuilles excel pour ça prendrait trop de temps.

voulez-vous dire "à partir de boucle"

For I = 1 To 4
   For J = 1 To 4

ÉDIT:

par exemple:

Sub test()
For i = 1 To 4
  For j = 1 To 4
   resultat = resultat + (i * j)
  Next
Next
MsgBox resultat
End Sub