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 attendre 1 seconde ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
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
