Bonjour les amis,
Je viens de débuter dans le VBA et je bloque dans le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim e, p, i, j As Integer
 
Set F2 = Worksheets("data")
Set F4 = Worksheets("test")
Set F5 = Worksheets("resultat")
 
e = F2.Range("J25").Value
p = F2.Range("J26").Value
 
For i = 3 To 21
j = i + 1
 
 F5.Range("Ai").Formula = "SI(F4.range("B3").value=0;0;SI(F2.range("Ij").value=1;F4.range("B3").value*e;SOMMEPROD(F2.Range("I4").value:F2.Range("I22").value;F4.range("B3").value:F4.range("B21").value)*e*(1-p)/p*F2.range.value("Jj")/(SOMME(F2.Range("J4").value:F2.Range("J22").value)-SOMMEPROD(F2.Range("J4").value:F2.Range("J22").value;F2.Range("I4").value:F2.Range("I22").value))))"
Il me marque une erreur dans la formule :/

Merci pour toute aide