Problème écriture d'une formule

Version imprimable

18/03/2014, 14h25
mathilde13870

Problème écriture d'une formule

Bonjour,

J'ai un souci sur une relation que j'essaie de faire fonctionner dans une macro:

Excel m'indique : Incompatibilité de type

Voici la relation que j'ai écrite. J'ai déclaré toutes les variables en globales, ce sont des chiffres à décimal, et j'ai vérifié en les affichant, excel les reconnait.

Je ne comprends vraiment pas le problème, est ce que ma syntax est mauvaise ?

Code:

Range("B14").Offset(0, i).Formula = (((K * Math.Exp(a1 - (a0 + cNt * Nt + cSDBTO * SDBTO) / (Temp + 273.15)) * H2HC ^ c3_H2HC * ppH2 ^ c1_ppH2) / Math.Log(SDBTO / 9))) ^ (1 / c2_VVH)

Merci pour votre aide !
18/03/2014, 14h32
bboy-eazy

quelle ligne du code crée un pb lorsque le déboguage est lancé?

C'est justement cette ligne qui est indiquée en jaune

Je pensais que ce n'était peut être pas possible de faire un calcul avec le .Formula, mais ça fonctionne pour le reste

Voila le reste du programme, sachant que les deux userform fonctionnent

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub UsfMois_Initialize()
 
End Sub
 
Private Sub CmdValMois_Click()
 
Nb_Mois = Me.TxtNbmois.Value
 
 
For i = 0 To Nb_Mois - 1
 
 H2HC = 75
    Range("B2").Offset(0, i).Formula = i + 1
    Range("B12").Offset(0, i).Formula = H2HC
    Range("B6").Offset(0, i).Formula = 9
Next i
 
 
K = Me.TxtK.Value
Range("B5").Value = K
 
Unload Me
 
For i = 0 To Nb_Mois - 1
 
UsfParametres.Show
 
'Nb jour
Range("B3").Offset(0, i).Formula = Nb_jour
Range("B4").Offset(0, i).Formula = Nb_jour / 30.5
 
'Valeur de S0
Range("B7").Offset(0, i).Formula = S0
 
'Valeur de SDBTO
Range("B8").Offset(0, i).Formula = SDBTO
Range("B9").Offset(0, i).Formula = S0 * SDBTO / 100
 
'Valeur de Nt
Range("B10").Offset(0, i).Formula = Nt
 
'Valeur de Temperature
Range("B11").Offset(0, i).Formula = Temp
 
'Valeur de Pression H2
Range("B13").Offset(0, i).Formula = ppH2
 
'Calcul de LHSV
a0 = 11.0007
a1 = 6910.93
cSDBTO = 0.146611
cNt = 0.731505
c2_VVH = 0.415662
c3_H2HC = 0.220087
c1_ppH2 = 0.258668
 
 
Range("B14").Offset(0, i).Formula = (((K * Math.Exp(a0 - (a1 + cNt * Nt + cSDBTO * SDBTO) / (Temp + 273.15)) * H2HC ^ c3_H2HC * ppH2 ^ c1_ppH2) / Math.Log(SDBTO / 9))) ^ (1 / c2_VVH)
Next i
 
End Sub

18/03/2014, 15h11
mathilde13870

Bon et maintenant j'ai le droit à "erreur 5: argument ou appel de procédure incorrect"

Je n'ai pas touché grand chose de plus, mais je ne vois vraiment pas le problème