problème dans l'écriture d'une formule

**jackall** · 19/06/2008, 09h42

bonjour à tous,

voila j'ai un petit problème avec l'enregistreur de macro, j'ai une formule qui est :
=SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000<30)*(REJECT!b4:b1000000=1))+SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000>50)*(REJECT!b4:b1000000=1))+SOMME((REJECT!d4:d1000000>TEMP!d11)*(REJECT!b4:b1000000=1))>TEMP!d19)*(REJECT!m4:m1000000<TEMP!h19)*(REJECT!l4:l1000000>50)*(REJECT!j4:j1000000>TEMP!d17)*(REJECT!j4:j1000000<TEMP!h17)*(REJECT!i4:i1000000>3.5)*(REJECT!i4:i1000000<18.5)*(REJECT!h4:h1000000<TEMP!d15)*(REJECT!g4:g1000000>135)*(REJECT!g4:g1000000<170)*(REJECT!f4:f1000000<TEMP!d13)*(REJECT!e4:e1000000>100)*(REJECT!e4:e1000000<140)*(REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000>30)*(REJECT!c4:c1000000<50)*(REJECT!b4:b1000000=1)))

donc ma manipulation est la suivante, j'active l'enregistreur de macro, je tape ma formule, je la fini par ctrl+shift+enter. la tout ce passe bien il me trouve le bon résultat. ensuite j'arrete l'enregistreur. je place un contrôle activeX sur ma feuille excel et je lui assigne la macro avec la ligne de code :

Code :

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

call Module3.macro3

et la il me donne une fenêtre de deboggage ...
j'ai fais un test, j'ai découper la formule, c'est à dire que j'ai fait une macro qu'avec :
=SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:Cc1000000<30)*(REJECT!b4:b1000000=1))
et sa marche trés bien, et lorsque je rajoute :
=SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000<30)*(REJECT!b4:b1000000=1))+SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000>50)*(REJECT!b4:b1000000=1))
cela ne marche plus ...

est ce que l'on pourrai m'aider ...

**mayekeul** · 19/06/2008, 10h15

bonjour,

et c'est quoi l'erreur renvoyée?
sur quelle partie du code,....

sans cela, ça va etre duraille!

**jackall** · 19/06/2008, 10h24

il me dit :
Erreur d'éxécution '1004':
Impossible de définir la propriété FormulaArray de la classe Range

et je ne comprend pas trop ...

**mayekeul** · 19/06/2008, 10h25

un petit bout de code ne serait pas superflu!

:o)

**jackall** · 19/06/2008, 10h36

oups dsl ... ^^

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro11()
'
' Macro11 Macro
'
 
'
    Selection.FormulaArray = _
        "=(SUM((REJECT!R[-121]C:R[999875]C<STAT_REJECT!RC[-2])*(REJECT!R[-121]C[-1]:R[999875]C[-1]<30)*(REJECT!R[-121]C[-2]:R[999875]C[-2]=1))+SUM((REJECT!R[-121]C:R[999875]C<STAT_REJECT!RC[-2])*(REJECT!R[-121]C[-1]:R[999875]C[-1]>50)*(REJECT!R[-121]C[-2]:R[999875]C[-2]=1))+SUM((REJECT!R[-121]C:R[999875]C>STAT_REJECT!RC[-2])*(REJECT!R[-121]C[-2]:R[999875]C[-2]=1)))"
End Sub

voila voila ^^

**golliat** · 19/06/2008, 10h43

Pourquoi ne pas décomposer ta formule dans plusieurs cellules
et ensuite relier le tout avec un sum qui ajoute les résultats de chaque partie ?

**jackall** · 19/06/2008, 10h47

ben j'avais deja penser à sa, mais je voudrais bien savoir pourquoi l'enregistreur ne fonctionne pas correctement, surtout que par la suite j'ai une formule asser grosse ...

**mayekeul** · 19/06/2008, 10h57

alors, tout de suite à chaud

si la cellule active est en dessous de la ligne 122, ça va bugger à tout les coup

**jackall** · 19/06/2008, 10h59

ah bon ? ben pourquoi sa ?

**mayekeul** · 19/06/2008, 10h59

et si elle se situe au dessus de 125 aussi!

lorsque tu as enregistré la macro, l'option relative était activée diroat-on!

**mayekeul** · 19/06/2008, 11h03

ah bon ? ben pourquoi sa ?

Code :

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

R[-121]C:R[999875]

ce sont des références relatives
donc, à partir de la sélection (puisque c'est là que tu envoie la formule)
cf

Code :

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

    Selection.FormulaArray

il va se décaler de 121 ligne vers le haut

**jackall** · 19/06/2008, 11h06

donc en fait la solution de golliat serait la plus judicieuse ?

**golliat** · 19/06/2008, 11h09

Déjà faire
=sum(1+2) + sum(3+4)
Excel le tolère pas... Après il y a peut-etre d'autres erreur comme le suggère mayekeul.

**mayekeul** · 19/06/2008, 11h09

c'est juste à toi de savoir si cela doit se passer d'une maniere relative ou pas.

Mais si décomposer te permet d'y voir plus clair et que cela te conviens , alors, oui.

**jackall** · 19/06/2008, 11h11

ben je ne sais pas trop, car la formule excel que j'ai donné en exemple, c'est la plus simple et la plus petite, je dois faire la même chose avec des formules plus grosses ... donc je ne sais pas quels choix serai le mieu ...

**golliat** · 19/06/2008, 11h18

Pour le bug des "sum" utilise beaucoup de "+" à la place. => long :/

Mais pour ce dont te parle mayekeul vois avec lui xD

**mayekeul** · 19/06/2008, 11h28

c'est très simple, si tu dois aplliquer une formule
tu peux le fair e comme ça, ça ira très bien et ce sera plus clair pour toi

Code :

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

ActiveCell.Formula = "=sum(A1:A6)"

**ouskel'n'or** · 19/06/2008, 11h38

Je n'ai pas tes feuilles mais je n'ai pas de bug avec ça :

Code :

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

Range("A1").FormulaLocal = "=SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000<30)*(REJECT!b4:b1000000=1))" & " + SOMME((REJECT!d4:d1000000<TEMP!d11)*(REJECT!c4:c1000000>50)*(REJECT!b4:b1000000=1))"

Tu peux tester pour nous ?