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
- Dépassement de capacité vba ✓ - Forum Excel
- Find vba - Astuces et Solutions
- Vba range avec variable ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - 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
