VBA avec sommeprod

Fermé
steph - 22 févr. 2017 à 11:52
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 22 févr. 2017 à 15:10
Bonjour,

Lorsque je tape ma formule sur la cellule concerné, cela fonctionne correctement.
Lorsque je la passe en version VBA, cela ne marche plus.
Merci de votre aide.

=SOMMEPROD((C2:C8="CAS")*(B2:B8<DATEVAL("01/10/2015"))*D2:D8)

ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(('[fichier.xlsx]BDD OR'!R5C2:R1234C2=""CAS"")*('[Fichier.xlsx]onglet'!R5C17:R1234C17<DATEVALUE(""01/10/2015""))*('[fichier.xlsx]BDD OR'!R5C11:R1234C11))"

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
22 févr. 2017 à 15:10
Bonjour
Sauf erreur de ma part, une seule anomalie constaté, supprimez les quotes ['Fichier.xlsx]onglet'!, le nom de la feuille "Onglet" n'étant pas un nom composé, les quotes sont inutiles
Ce qui donne
"=SUMPRODUCT(('[Fichier.xlsx]BDD OR'!R5C2:R1234C2=""CAS"")*([Fichier.xlsx]ONGLET!R5C17:R1234C17<DATEVALUE(""01/10/2015""))*('[Fichier.xlsx]BDD OR'!R5C11:R1234C11))"

Essayez
Cdlt
0