VBA - Problème avec formule matricielle [Résolu/Fermé]

Signaler
-
Messages postés
16391
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 février 2021
-
Bonjour,

J'ai un problème avec une formule matricielle, et je ne trouve pas de réponse sur internet malgrès mes recherches :(

Contexte : Je cherche à trouver les termes d'un polynome d'une courbe de tendance, et mettre chacun des termes dans la cellule (excel 2003)

Lorsque je rentre la formule matricielle suivante dans excel en selectionnant une plage de 3 cellules et en validant par ctrl + maj + enter, ça marche :
=INDEX(DROITEREG($D$2:$D$5;$C$2:$C$5^{1.2.3}); 1; {1.2.3})

J'essaie maintenant de rentrer cette formule avec VBA avec des plage de valeurs variable et là problème :
- soit je rentre
poscoeff.FormulaArray = "=INDEX(DROITEREG(xrange,yrange^{1,2,3}), 1, {1,2,3})"
(avec poscoeff, xrange et yrange définis comme des plages de cellules)
et j'obtient la formule écrite dans les cellules, mais sans interpretation des variables xrange et yrange donc le calcul ne marche pas

- soit je rentre
poscoeff.FormulaArray = INDEX(DROITEREG(xrange,yrange^{1,2,3}), 1, {1,2,3})
et j'obtiens l'erreur "caractère incorrect" qui pointe sur le premier "{" de la formule. Impossible de le remplacer, sinon la formule n'est plus une formule matricielle!?

Merci d'avance pour vos réponse, j'ai passé presque toute la journée d'hier sur ce problème, et là j'avoue que je sèche...

12 réponses

Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
443
Re,
essaie comme ça, ça fonctionne chez moi...
.FormulaArray = "=INDEX(LINEST(" & xrange.Address & "," & yrange.Address & "^{1;2;3}),1,{1;2;3})"

L'astuce ds un cas comme ça, c'est par exemple de taper la formule en A1 avec des plages fixes, fixer les memes plages dans le code et simplement comparer :
MsgBox "=INDEX(LINEST(" & xrange.Address & "," & yrange.Address & "^{1;2;3}),1,{1;2;3})" & vbCrLf & Range("A1").FormulaArray

:)
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
1543
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
3 avril 2011
338
essaye formulalocal a la place de formulaarray
c'est pour utiliser les formules de la feuille de calcul dans du vba
J'ai toujours la même erreur : "caractère incorrect"...
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
443
Bonjour,
poscoeff.FormulaArray = "=INDEX(DROITEREG( "& xrange & ";" & yrange & "^{1,2,3}); 1; {1,2,3})" 
Ca ne marche toujours pas, j'ai une erreur "incompatibilité de type"...
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
443
Bonjour,
Ok, si xrange et yrange sont des objets range alors:
poscoeff.FormulaArray = "=INDEX(DROITEREG( "& xrange.address & ";" & yrange.address & "^{1,2,3}); 1; {1,2,3})"
J'ai une erreur d'execution 424 : objet requis.
Pour info mes variables sont définies comme suit :
xrange = Sheets("Traitement des données").Range(Cells((cl - counter - 1), 3), Cells((cl - 1), 3))
yrange = Sheets("Traitement des données").Range(Cells((cl - counter - 1), 4), Cells((cl - 1), 4))


J'ai essayé de déclarer mes variables xrange et yrange pour voir si ça venait de là:
Dim xrange as range
Dim yrange as range
Set xrange = Sheets("Traitement des données").Range(Cells((cl - counter - 1), 3), Cells((cl - 1), 3))
Set yrange = Sheets("Traitement des données").Range(Cells((cl - counter - 1), 4), Cells((cl - 1), 4))
Mais dans ce cas j'ai une erreur d'execution 1004 : impossible de définir la propriété FormulaArray de la classe Range...
Messages postés
1543
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
3 avril 2011
338
j'ai l'impression que ta syntaxe est mauvaise pour Sheets("Traitement des données").Range(Cells((cl - counter - 1), 3), Cells((cl - 1), 3))
, as tu essayé de voir si ca renvoyai bien la valeur souhaité ?
Oui, une vérification avec xrange.Select renvoie bien la bonne plage de valeurs.
Merci beaucoup tompols!!

Ta formule ne marchait pas au début, il faut remplacer {1;2;3} par {1,2,3}, ce que j'ai pu voir grace à ta petite astuce!

La syntaxe exacte est donc :
poscoeff.FormulaArray = "=INDEX(LINEST(" & yrange.Address & "," & xrange.Address & "^{1,2,3}),1,{1,2,3})"

Merci encore
:)
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
443
Oki, chez moi ct bien {1;2;3}, surement une histoire de séparateurs, d'où l'utilité de la ptite astuce ;)
Messages postés
16391
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 février 2021
3 142
Bonjour,
Le pb peut se résoudre par la fonction evaluate mais le calcul se fait sans inscrire la formule dans la cellule

Par exemple je calcule ci dessous la somme des 3 plus grande valeurs de la plage A1:A36
  xrange = Range("A1:A36").Address
Range("E2") = Evaluate("SUM(large(" & xrange & ",{1,2,3}))")

si la plage de cellule n'est pas variable on peut écrire (dans mon exemple)
Range("E3") = [SUM(large(A1:A36,{1,2,3}))]

--------

pour droitereg= linest en anglais
La formule de Tompols pourrait apparemment convenir en remplacant les points-virgules par des virgules ( patois VBA anglais) et en mettant un espace dans le premier "& (---> " espace & )



Nota: il est rare qu'on y arrive du premier coup (erreur 2015): restez zen et polis... bref! pas comme moi ;-)

EDIT 15h06: Excusez moi je n'avais pas rafraichi !!!