Discussion :

[bbouling]

Bonjour,
j'ai 3 variables de type single:ErrRea; VolRea; ErrMasse
Je dois les inclure dans une formule relative. Mais j'ai une erreur de type. Le code est le suivant:

Code :

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

DestCell.FormulaR1C1 = "=(" & ErrRea / VolRea + ErrMasse & "/RC[-2])*RC[-1]"

j'ai essayé ça aussi mais sans résutat

Code :

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

DestCell.FormulaR1C1 = "=(" & CStr(ErrRea) / Cstr(VolRea) + Cstr(ErrMasse) & "/RC[-2])*RC[-1]"

et ça aussi mais sans résutat

Code :

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

DestCell.FormulaR1C1 = "=(" & CStr(ErrRea) & "/" &Cstr(VolRea) & "+" & Cstr(ErrMasse) & "/RC[-2])*RC[-1]"

merci de vos idées.

[AlainTech]

Curieux...

Si je mets cette formulation

Code :

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

DestCell.FormulaR1C1 = "=(" & CStr(ErrRea) & "/" & CStr(VolRea) & "+" & CStr(ErrMasse) & "/RC[-2])*RC[-1]"

j'obtiens bien une formule correcte dans la cellule.

[bbouling]

J'ai essayé cela pour faire plus simple

Code :

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

.FormulaR1C1 = "=" & CStr(ErrRea)

et il me retourne la même erreur: Erreur de type 1004

En revanche cela fonctionne avec

Code :

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

.FormulaR1C1 = ErrRea

mais la valeur retournée est 0,00999999977648258 alors qu'elle est définit par

Code :

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

1
2
3
4
Dim VolRea As Single, ErrRea As Single, ErrMasse As Single
VolRea = 2.175           'Volume du réacteur en L
ErrRea = 0.01            'Erreur sur volume reacteur en L
ErrMasse = 0.4           'Erreur sur masse en mg

En passant les types de données en double, il garde la bonne valeur mais rien ne change dans la formule.
Je coince sur ça ...

[SilkyRoad]

bonsoir

http://www.developpez.net/forums/arc.../t-427237.html

bonne soirée
michel

[bbouling]

En effet le mic-mac de la définition de la décimale explique la feinte pour résoudre ça... merci Michel

Solution

Code :

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

.FormulaR1C1 = "=(" & Replace(CStr(ErrRea), Chr(44), Chr(46)) & ")*RC[-1]"

j'ai une alternative moins lourde je trouve:

Code :

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

.FormulaR1C1Local = "=" & CStr(ErrRea) & "/" & CStr(VolRea) & "+" & CStr(ErrMasse) & "*LC(-1)"

j'apporte ma petite contribution à l'édifice communautaire