Sommeprod compliquée LE RETOUR

[redrainette]

Re bonjour!!!

Bon je sais que suis toute proche!! mais çà veut pas marcher.....;

J'ai essayé d'intégrer DANS la formule SOMMPRODUCT plage.interior.colorIndex<1 mais il doit y avoir un conflit d'écriture VBA......

Est ce que qq'1 peut m'aider je veux juste qu' excel ne me selectionne que les lignes qui n'ont pas de fond coloré dans la 1ère colonne du tableau pour faire le cumul de la colonne 39 ..... c'est juste une 8ieme condition.....mais de forme ...

je sais pas si je suis claire....

ma macro :
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
If Not IsEmpty(ActiveCell) And ActiveCell.Interior.ColorIndex > 0 Then
ActiveCell.Offset(0, 51).Value = "=RC39"
Else
ActiveCell.Offset(0, 51).Value = "sumproduct((R2C3:R10000C3='Critères'!RC[-49])*(R2C4:R10000C4='Critères'!RC[-48])*(R2C5:R10000C5='Critères'!RC[-47])*(R2C6:R10000C6='Critères'!RC[-46])*(R2C7:R10000C7='Critères'!RC[-45])*(R2C8:R10000C8='Critères'!RC[-44])*(R2C9:R10000C9='Critères'!RC[-43])*(R2C39:R10000C39))"
End If
ActiveCell.Offset(1, 0).Select
Loop


MERCI BEAUCOUP

redrainette

 

[CBernardT]

Re : Sommeprod compliquée LE RETOUR

Bonsoir redrainette et le forum,

Un essai de remise en forme du code :

Range("A2").Select
Do While Not IsEmpty(ActiveCell)
If Not IsEmpty(ActiveCell) And ActiveCell.Interior.ColorIndex > 0 Then
ActiveCell.Offset(0, 51).Value = "=RC39"
Else
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((R2C3:R10000C3=Critères!RC3)*(R2C4:R10000C4=Critères!RC4)*(R2C5:R10000C5=Critères!RC5)*(R2C6:R10000C6=Critères!RC6)*(R2C7:R10000C7=Critères!RC7)*(R2C8:R10000C8=Critères!RC8)*(R2C9:R10000C9=Critères!RC9)*(R2C39:R10000C39))"
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
ActiveCell.Offset(1, 0).Select
Loop

Cordialement

Bernard

 

[JHA]

Re : Sommeprod compliquée LE RETOUR

Bonjour,

Ci joint un fichier de JB avec sommeprod et fonction couleur

En esperant que cela t'aide,

JHA