VBA avec sommeprod
steph
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
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
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir 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