Bonjour,

J'ai l'erreur suivante:
"Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
        ...
        nbJoursOuvres = 22
        For i = 1 To Format(dernierJourMois, "dd")
 
        If (IsNumeric(Cells(cptJour + 3, 3))) Then
            trueFalse = True
        Else
            trueFalse = False
        End If
        Debug.Print trueFalse
        Sheets("Synthese").Activate
        Cells(cptJour + 4, 3).Select
        ActiveCell.Formula = "=SOMME(J2/" & nbJoursOuvres & " * SI(" & trueFalse & "=""Vrai"";" & Cells(cptJour + 3, 3) & ";0)))"
        ...
Le code n'est pas entier, mais le reste de la boucle se déroule bien lorsque je mets en commentaire:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveCell.FormulaLocal = "=SOMME(J2/" & nbJoursOuvres & " + SI(" & trueFalse & "=""Vrai"";" & Cells(cptJour + 3, 3) & ";0)))"
J'ai testé pas mal de variantes de cette ligne, touchant surtout aux parenthèses et guillemets et j'en arrive donc à cette version, toujours non fonctionnelle, mais je ne comprends pas pourquoi.

edit: J'ai testé en entrant directement sur une cellule d'excel la formule suivante (ce que je veux):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
=SOMME(J2/22+SI(H4="true";C4;0))
(j'ai créé spécialement une cellule (H4) contenant true)

Mais il y a là aussi une erreur. Comment puis-je faire pour intégrer la condition dans cette formule svp?

Merci d'avance!