Suite post SUMPROD conditions multiples

[anber]

Bonjour le forum,

Une nouvelle condition, que j'ai omis de demander.

Avec des conditions multiples. Où place-t-on le ou ?

Merci [file name=Testsumprod_20060316071919.zip size=8663]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Testsumprod_20060316071919.zip[/file]

 

[Jocelyn]

Bonjour le Forum,
Bonjour Anber,

en piece jointe la formule par contre pour la rendre plus lisisble tu devrais peut etre nommer tes plages. 🙂

Jocelyn [file name=testsumprod.zip size=6811]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testsumprod.zip[/file]

j'oubliais, comme te l'a dit monique dans ce post : Double condition avec SUMPRODUCT tu peux je pense suprimer la partie de la formule esterreur

Message édité par: Jocelyn, à: 16/03/2006 08:53

 

[Monique]

Bonjour,

SommeProd(Nb.Si()) pour raccourcir la formule
Plages nommées pour raccoucir la formule et accélérer le recalcul
Test EstErreur() enlevé : si le test = VRAI, c'est que la formule est mal construite
ou bien c'est que suis à côté de la plaque [file name=SommeProdAnberV1.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SommeProdAnberV1.zip[/file]

Message édité par: monique, à: 16/03/2006 09:39

 

[Monique]

Re,

Le Zip est vide... [file name=SommeProdAnberV2.zip size=7935]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SommeProdAnberV2.zip[/file]

 

[anber]

Bonjour Monique, Jocelyn, le Forum.


Merci pour vos réponses, effectivement avec des formules c'est OK, mais mon probleme c'est de les traduire en code, idem pour mon 1er post

.Range('A2').FormulaR1C1 = '=(ISERROR(SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13))),0,SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13)))'

J'ai essayé de traduire en code mais j'ai un plantage, je ne vois pas où ??

Merci

 

[Jocelyn]

re bonjour,
Bonjour Monique,

La je suis désolé mais en VBA je ne peux pas t'aider.

Jocelyn

 

[anber]

Bonjour le forum,

J'ai trouvé mon pb.
Pour info le code :

.Range('A2').FormulaR1C1 = '=IF(ISERROR(SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13))),0,SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13)))'

 

[Monique]

Re,

Est-ce que tu as essayé de supprimer la 1ère partie ? (c'est carrément la moitié)

 

[anber]

Bonsoir Monique,

Décidement cette SUMPROD est tenance ...

Que me conseilles-tu de supprimer ?

J'ai pas essayé

Merci

 

[Monique]

Re,

De ça :
.Range('A2').FormulaR1C1 = '=IF(ISERROR(SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13))),0,SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13)))'

tu gardes ça :
.Range('A2').FormulaR1C1 = '=SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13))'

Tu regardes le dernier fichier (ton post suivant) en A4 et B4, c'est supprimé

 

[anber]

Bonsoir Monique,

Merci pour ton aide, ça fonctionne sans iferror

Cordialement