Discussion :

[rampage92]

Ma formule est la suivante :

Code :

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

1
2
"=SUMPRODUCT(MMULT(R[-31]C[-2]:R[-31]C[17],R[-26]C[-2]:R[-7]C[17]),R[-31]C[-2]:R[-31]C[17])"
    Range("D34").Select

Sauf que la complication arrive

Mon calcul matricielle ne prend pas forcement la meme matrice a chaque fois. C est une matrice carree N*N ou N est variable.

Je dois imperativement metre ca sous forme de formule car je vais utiliser le solveur après

La notation en rouge fonctionne mais je ne veux pas ce format ------
¦
¦
¦

Cells(nr + 2, 2) = WorksheetFunction.SumProduct(WorksheetFunction.MMult(Range(Cells(2, 2), Cells(2, nc)), Range(Cells(7, 2), Cells(7 + nmtitres - 1, nc))), Range(Cells(2, 2), Cells(2, nc)))



Merci pour votre aide

[Kiouane]

A première vue, il te manque des .value après cells() et Range()

Code :

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

Cells(nr + 2, 2).value = WorksheetFunction.SumProduct(WorksheetFunction.MMult(Range(Cells(2, 2), Cells(2, nc)).value, Range(Cells(7, 2), Cells(7 + nmtitres - 1, nc)).value), Range(Cells(2, 2), Cells(2, nc)).value)

[rampage92]

La formule en rouge fonctionne mais je ne la veux pas dans ce format la ... Je pense aue tu devrais relire le message je sais que ce n'ai pas tres simple a comprendre... fais moi signe si tu as besoin de plus de details

Je ne veux donc pas utiliser le format de formule en rouge

[Al__22]

Je pense que si tu nous expliquais plus clairement ta demande cela aiderait car selon moi la remarque de Kiouane est plus que pertinente

Quel format veux tu ? Qu'es ce que N (j'entends par la d'ou vient il) ? A quel moment intervient il ? etc.

[rampage92]

Pour faire plus simple je vais prendre une formule plus abordable :

Je voudrais convertir ceci :

Code :

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

1
2
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(R[-32]C[-2]:R[-32]C[17],R[-31]C[-2]:R[-31]C[17])"

En quelque chose comme ca :

Code :

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

1
2
3
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(&Cellls(2,2).address : &Cellls(2,dernierecolonnematrice).address ,(&Cellls(2,
3).address : &Cellls(2,dernierecolonnematrice).address

je pense que c'est possible mais ma sintaxe n est pas bonne. Soit c est une pb de "" soit de &. Est ce plus clair ?

[Philippe Tulliez]

Bonjour,
Pourquoi écris-tu tes formules avec le style R1C1 ?
A lire éventuellement les deux billets Ecrire une formule dans Excel à l'aide d'une procédure VBA et Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

[rampage92]

Je suis oblige de l ecrire en R1C14 car je vais utiliser le solver après avec la solution ...

[Al__22]

Tout à fait

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(" & Cells(2, 2).address & ":" & Cells(2,dernierecolonnematrice).address & "," & Cells(2, 3).address & ":" & Cells(2,dernierecolonnematrice).address & ")"

PS : j'ai pas vérifié si ca fonctionne

[rampage92]

Merci si tu arrives aussi a me traduire celle la tu serais un ange hahaha

Code :

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

1
2
 "=SUMPRODUCT(MMULT(R[-31]C[-2]:R[-31]C[17],R[-26]C[-2]:R[-7]C[17]),R[-31]C[-2]:R[-31]C[17])"
    Range("D34").Select

Je l'ai fait tout seul cependant il y a un probleme :

Code :

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

Cells(nr + 6, 2) = "=SUMPRODUCT(" & Cells(2, 2).Address & ":" & Cells(2, nc).Address & "," & Cells(3, 2).Address & ":" & Cells(3, nc).Address & ")"

Me donne :

Code :

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

=SUMPRODUCT($B$2:$P$2,$B$3:$P$3)

J aimerai avoir :

Code :

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

=SUMPRODUCT(B2:P2,B3:P3)

Ca serait parfait merci beaucoup

[joe.levrai]

Bonjour,

toujours consulter l'aide en ligne ... on oublie facilement que certaines propriétés disposent de paramètres à force de ne jamais en avoir besoin

http://www.developpez.net/forums/d15...a/#post8654986