Bonjour à tous,
J'ai parcourus le forum à la recherche de la bonne syntaxe pour exprimer une SOMME.SI en VBA, en vain.
Mon cas est le suivant:
Je dois mettre à jour des formules dans plus de 600 fichiers Excel. Pour éviter de le faire à la main, j'envisage de créer un bouton par fichier qui activerai une macro pour mettre à jour les formules.
Je connais d'avance les formules et leur emplacement, car les 600 fichiers ont tous le même format.
Exemple: remplacer le contenu des cellules par les formules ci-dessous:
- cellule X55 =SOMME.SI('BI 2018'!L:L;"FONC_AUT";'BI 2018'!W:W)
- cellule AG55 =-SOMME.SI.ENS('CJIA 2018'!$Z$2:$Z$10000;'CJIA 2018'!$K$2:$K$10000;"FONC_AUT";'CJIA 2018'!$X$2:$X$10000;"AE 2018")+SOMME.SI.ENS('CJI3 2018'!$E$2:$E$10000;'CJI3 2018'!$J$2:$J$10000;"KR")+SOMME.SI.ENS('CJI3 2018'!$E$2:$E$10000;'CJI3 2018'!$J$2:$J$10000;"GA")-SOMME.SI.ENS('CJI3 2018'!$E$1:$E$10000;'CJI3 2018'!$C$1:$C$10000;"6251000000")-SOMME.SI.ENS('CJI3 2018'!$E$1:$E$10000;'CJI3 2018'!$C$1:$C$10000;"6251100000")
Pour la cellule X55, j'ai tenté d’appliquer ceci, mais ça ne fonctionne pas:
Sub copier_coller_formules()
Sheets("Synthèse").Select
Cells(55, 24).Value = WorksheetFunction.SumIf(Range("'BI 2018'!L:L,"FONC_AUT",range('BI 2018'!W:W")
End Sub
Je vous transmet un fichier en modèle pour mieux visualiser le contexte avec, dans l'onglet synthèse les deux cellules verte que j'aimerai compléter automatiquement via la macro.