VBA avec sommeprod
steph
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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))"
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))"
A voir également:
- VBA avec sommeprod
- Excel compter cellule couleur sans vba - Guide
- Vba sleep ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
- Range avec une Variable ✓ - Forum VB / VBA
1 réponse
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
Essayez
Cdlt
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
