Discussion :

[yasslak]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

est à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

F5.Range("Ai").Formula

ne fonctionnera pas mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[yasslak]

Bonjour , merci pr la réponse,

J'ai remplacé la formule par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[yasslak]

Bonjour , merci encore pour votre aide

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :/

[mercatog]

Attention aux espaces

Sinon privilégie formula pour portabilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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))))"