Sommeprod en macro

[babacool]

Bonsoir,

J'aurai souhaité transposer la formule suivante en macro :

SOMMEPROD((GAUCHE('Plage 1'!$H$8:$H$5000;2)="66")*('Plage 1'!$I$8:$I$5000))*-1

Cependant, dans l'éditeur VBA, quand je mets "66", il m'indique une erreur de syntaxe. Pas de guillemets
pour encadrer un chiffre dans VBA ? :

Range("B5").Formula = _
"=SUMPRODUCT(cnum((gauche('Plage 1'!R8C8:R5000C8,2))="66")*('Plage 1'!R8C9:R5000C9))*-1" ==> il
ressort une erreur à cause de 66 entre guillemets

Mais si pas de guillemets, la formule dans excel ne marche plus.

Pourriez-vous m'aider à adapter cette formule en VBA ?

Merci par avance !

 

[JCGL]

Re : Sommeprod en macro

Bonjour à tous,

Peux-tu essayer avec :

Range("B5").FormulaLocal ="=SOMMEPROD((GAUCHE('Plage 1'!$H$8:$H$5000;2)=66)*('Plage 1'!$I$8:$I$5000))*-1"

A+ à tous

 

[vmatthieu]

Re : Sommeprod en macro

Bonsoir le forum et vive l'enregistreur de macro !!
Range("C4").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((LEFT('Plage 1'!R8C8:R5000C8,2)=""66"")*('Plage 1'!R8C9:R5000C9))*-1"
Range("C4").Select
bonne soirée

 

[babacool]

Re : Sommeprod en macro

Bonjour à tous,

Merci d'avoir pris le temps de m'apporter votre aide. Cela marche nickel.
Je n'avais pas eu le réflexe de l'enregistreur. Il fallait donc mettre des doubles guillemets.

Bonne journée