formule avec variable

[ced]

bonjour a tous, j'ai un probleme urgent

j'ai une formule sous vba avec une variable mais le resultat ne s'affiche pas , comment peut-on faire pour remplacer la variable ou peut etre y a-t-il une autre solution?

la formule est comme ca:
ActiveCell.FormulaR1C1 = "=(100-tete)*[0718.xls]PTF!R8C4/100"

et le probleme se trouve sur la variable tete

J'ai besoin d'aide rapidement


Merci a tous pour vos precieux conseils

 

[dede8x]

Peut être que ça résoudra ton pb:
ActiveCell.FormulaR1C1 = "=(100-" & tete & ")*[0718.xls]PTF!R8C4/100"
mais si tu change la variable tete la formule ne change pas

 

[ced]

merci bcp pr ton aide mais ça bug encore , peut etre as tu une autre idee ou est ce juste un pb de syntaxe

 

[dede8x]

Je viens d'essayer vite fait, et ça marche. :-/

Tu es sur d'avoir un classeur "0718.xls" avec une feuille "PTF" ?
Tete est bien un nombre ?
il t'écris quoi dans la formule ?

 

[ced]

oui tete est bien un nombre avec décimal

En fait voila le bout du programme concerné:

CountA = 3
Do Until IsEmpty(Cells(CountA, 11)) = True
Cells(CountA, 11).Select
CountA = CountA + 1
Loop

tete = Cells(CountA - 1, 11).Value
Range("M8").Select

ActiveCell.FormulaR1C1 = "=(100-" & tete & ")*[0718.xls]PTF!R8C4/100"

End Sub

 

[dede8x]

On dirait que l'utilsation de nombre à virgule pose des problèmes, surtout que ce ne n'est pas des virgules qu'il voudrait mais 1 point. Un appel à Replace résoud le pb.

Dim tete As Double
Dim str As Variant

tete = 2.4549

str = (100 - tete) / 100
str = Replace(str, ",", ".")
str = "=" & str & "*[0718.xls]PTF!R8C4"
ActiveCell.FormulaR1C1 = str

Remarque on peut directement calculé (100 - tete) / 100, comme ça on simplifie les recalculs