Probleme avec formula

Version imprimable

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

Code:

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

30/04/2016, 15h45
Promethee25

Bonjour,

Il y a plusieurs soucis:
- La propriété Formula prend les formules en anglais. Si tu veux saisir ta formule en français sous VBA, il faut utiliser la propriété FormulaLocal.

- La formule doit commencer par un '=' absent ici.

- La formule doit ressembler à ce que tu aurais sous Excel et non à du code VBA: pas de Range("A1").value mais simplement A1 (en précisant le nom de la feuille si différent de la feuille où tu mets la formule; comme test!A1 par exemple).
Ex:

Code:

F5.Range("A" & i).FormulaLocal = "=SI(test!B3=0;..."

Code:

F4.range("B3").value:F4.range("B21").value

est à remplacer par

Code:

test!B3:B21

si j'ai bien compris ce que tu voulais.

- Le caractère guillemet en VBA est représenté par un double guillemet "" dans une chaîne de texte VBA.
Ex pour comparer B1 à "toto":

Code:

F5.Range("A" & i).FormulaLocal = "B1 = ""toto"""

- Quand tu veux utiliser la valeur contenue dans tes variables e, p ou j, il ne faut pas mettre le caractère e, p ou j mais bien la variable.
Ainsi,

Code:

F5.Range("Ai").Formula

ne fonctionnera pas mais

Code:

F5.Range("A" & i).Formula

si.

Reste à voir après si la formule est bonne et sa syntaxe ok; je n'ai pas vérifié.
Tu pourrais peut-être commencer par préparer un cas particulier de ta formule dans une case Excel et relire ensuite sa propriété Formula ou FormulaLocal sous VBA (via MsgBox ou Debug.Print) pour que tu vois à quoi ça doit ressembler (il te restera à insérer tes variables j, e et p pour passer du cas particulier à ton cas plus générique.
30/04/2016, 16h29
yasslak

Bonjour , merci pr la réponse,

J'ai remplacé la formule par:

Code:

F5.Range("A" & i).FormulaLocal = "=SI(test!B3=0;0;SI(data!(I & j)=1;data!B3*e;SOMMEPROD(data!I4:I22;test!B3:B21)*e*(1-p)/p*data!(J & j)/(SOMME(data!J4:data!J22)-SOMMEPROD(data!J4:data!J22;data!I4:data!I22))))"

Ca va mieux :) sauf que quand j'execute la macro il me marque : Erreur d'execution 424 , objet non trouvé :/

Ca veut dire quoi précisemment?
30/04/2016, 17h30
Promethee25

Bonjour,

Il y a un net progrès en effet, mais tu as encore laissé les j, e et p comme faisant partie de la formule au lieu de récupérer leur valeur.
Ex:

Code:

F5.Range("A" & i).FormulaLocal = "=SI(test!B3=0;0;SI(data!(I & j)=1;data!B3*e;SOMMEPROD(...

à remplacer par

Code:

F5.Range("A" & i).FormulaLocal = "=SI(test!B3=0;0;SI(data!I" & j & "=1;data!B3*" & e & ";SOMMEPROD(...

"data!J4:data!J22" est correct mais plus digeste si écrit comme ça: "data!J4:J22".
30/04/2016, 19h42
yasslak

Bonjour , merci encore pour votre aide

donc si j'ai bien compris, il faut mettre le code suivant

Code:

F5.Range("A" & i).FormulaLocal = "=SI(test!B3=0;0;SI(data!I " & j & " =1;data!B3 * " & e & ";SOMMEPROD(data!I4:I22;test!B3:B21)* "&e&" * (1 - "&p&" )/"&p&" *data!J" & j & "/(SOMME(data!J4:J22)-SOMMEPROD(data!J4:J22;data!I4:I22))))"

Mais Il me marque une erreur de syntaxe :/
30/04/2016, 19h58
mercatog

Attention aux espaces

Sinon privilégie formula pour portabilité

Code:

F5.Range("A" & i).FormulaLocal="=SI(test!B3=0;0;SI(data!I" & j & "=1;data!B3 * " & e & ";SOMMEPROD(data!I4:I22;test!B3:B21)*" & e & "*(1-" & p & ")/" & p & "*data!J" & j & "/(SOMME(data!J4:J22)-SOMMEPROD(data!J4:J22;data!I4:I22))))"