formule avec variable

  • Initiateur de la discussion ced
  • Date de début
C

ced

Guest
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
 
C

ced

Guest
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
 
D

dede8x

Guest
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
 

Discussions similaires