Discussion :

[tamtam64]

Bonjour,

J'ai un problème sur formulaaray, j'ai des formules excel que je prefere garder plutot que de faire avec une sub.

Je voudrais creer une formule matricielle dans excel par macro

voici mon code mais j'ai une erreur ( la formule marche trés bien par contre)

Code :

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

=IFERROR(MIN(IF(ISNUMBER(FIND(INDIRECT(ADDRESS(6;MATCH(H6;6:6;0)));Produits!$N$7:$N$12));Produits!$L$7:$L$12));TODAY())

Code :

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

.Cells(MyRow + 1, NBC + 1).FormulaArray = "=IFERROR(MIN(IF(ISNUMBER(FIND(INDIRECT(ADDRESS(6;MATCH(R6C16;R6;0);;0);FALSE);Produits!R7C14:R12C14));Produits!R7C12:R12C12));TODAY())"

La formule est correcte et marche mais j'ai une erreur comme quoi il ne peut pas appliquer le formulaarray au range ce qui est ilogique vu que c'est un attribut de la classe range... lol

donc il y aurait une erreur ou un truc qui m'echape

"Unable to set the formulaarray property of the range class"


Merci d'avance.

[Marc-L]

Bonjour !

J'ai l'impression de voir une grossière erreur mais autant vérifier par toi même comme pourtant expliqué dans le tutoriel !

• Entrer manuellement la formule matricielle dans une cellule et vérifier le résultat.

• La cellule contenant la formule doit être la cellule active puis côté VBE, ouvrir la fenêtre Exécution (CTRL + G)

et taper la commande suivante : ?activecell.formulaarray …

La formule en version native est affichée, il suffit de la recopier dans le code !
En cas de présence de guillemets dans la formule native, il faut les doubler dans le code …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[tamtam64]

Bonjour,

Alors le problème n'est pas résolu ceci dit j'ai bien aimé la methode que tu m'a proposé, j'ai appris un truc merci

sinon j'ai recopié la formule et ca ne marche tjs pas .

Code :

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

.Cells(MyRow + 1, NBC + 1).FormulaArray = "=IF(MIN(IF(ISNUMBER(FIND(INDIRECT(ADDRESS(6,MATCH(P6,6:6,0))),Produits!$N$7:$N$12)),Produits!$L$7:$L$12))<>0,MIN(IF(ISNUMBER(FIND(INDIRECT(ADDRESS(6,MATCH(P6,6:6,0))),Produits!$N$7:$N$12)),Produits!$L$7:$L$12)),DATE(2016,1,1))"

c'est ce que me propose l'immediate il n'y a pas de texte dans ma formule donc pas besoin de doubler les "" donc je ne comprend tjs pas d'ou ca peut venir .

[Marc-L]

Pourtant là il n'y a plus l'erreur initiale : les points-virgules au lieu des virgules …

Si tu a bien replacé la formule dans la cellule d'origine, je laisse la place aux spécialistes des formules matricielles en VBA !

[tamtam64]

Ah oui effectivement,

De toute façon j'ai fait un copy pastespecial sur la formule, mais si quelqu'un a une explication je suis preneur

Code :

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

1
2
                .Range("ExempleFormula").Copy
                .Cells(MyRow + 1, NBC).PasteSpecial Paste:=xlPasteFormulas

Pas térible mais comme ca j'avance

[Marc-L]

Comme c'est visuel, avec un peu d'observation, tu devrais trouver …