Pb avec ActiveCell.FormulaR1C1

Version imprimable

bonjour
j'ai un soucis avec la fonction activecell.formular1c1
dans le code suivant il m'inscrit dans la cellule DV22 le texte "(((Cells(25, 129).Value - Cells((t + 27), 90).Value) / ((Cells(25, 129).Value + Cells((t + 27), 90).Value)) * 100))" au lieu d'effectuer l'opération.
Pouvez vous m'aider
merci
Code:

1 2 3 4 5 6 7 8 Dim t t = 24 While Cells(24, 124).Value <> Cells(t, 116).Value And t < 30 t = t + 1 Wend Range("dv22").Select ActiveCell.FormulaR1C1 = "(((Cells(25, 129).Value - Cells((t + 27), 90).Value) / ((Cells(25, 129).Value + Cells((t + 27), 90).Value)) * 100))"

23/10/2006, 14h00
marsupilami34

Bonjour,
Perso, je ne mettrais pas les ""
23/10/2006, 14h06
fmris

en otant les " " ca marche pas
23/10/2006, 14h11
marsupilami34

Tu as quoi comme erreur ?
23/10/2006, 14h19
fmris

j'ai remplace par le code précédent par le suivant qui marche pas non plus

Code:

Worksheets(1).Range("dv22").Formula = (Cells(25, 129) - Cells(t + 27, 90)) / (Cells(25, 129) + Cells(t + 27, 90)) * 100

erreur d'execution 13
incompatibilité de type
23/10/2006, 14h31
marsupilami34

Est ce que tu as essayé au debogger et voir si tes contenaient bien des valeurs ?
23/10/2006, 14h49
ced600

J'ai une idée que je n'ai pas testé :

Code:

ActiveCell.FormulaR1C1 = "=(((Cells(25, 129).Value - Cells((t + 27), 90).Value) / ((Cells(25, 129).Value + Cells((t + 27), 90).Value)) * 100))"

Pour imiter ce que l'on fait manuellement sous Excel lorsque l'on rentre une formule.
23/10/2006, 14h49
fmris

Code:

Worksheets(1).Range("dv22").Formula = "=cells(24,117)"

Code:

Worksheets(1).Range("dv22").Formula = "=dm24"

le 1er code ne fonctionne pas tandis que le 2eme fonctionne
23/10/2006, 14h53
fmris

jai testé et ca fonctionne pas il fo a mon avis so'rienter vers

Code:

Worksheets(1).Range("dv22").Formula = Cells(25, 129)

qui fonctionne (avec formulaR1C1 le cellules doivent etre sous la for de R1C1 d'ou la solution du dessus cependant je n'arrive pas à faire des opérations

Code:

Worksheets(1).Range("dv22").Formula = Cells(25, 129)-cells(26,129)

ne fonctionne pas
23/10/2006, 14h56
ouskel'n'or

Donne-nous la formule que tu souhaites placer dans ta cellule
Si c'est juste pour placer "(((Cells(25, 129).Value - Cells((t + 27), 90).Value) / ((Cells(25, 129).Value + Cells((t + 27), 90).Value)) * 100))" dans une cellule, utilise value...

Code:

Range("A1").value = "(((Cells(25, 129).Value - Cells((t + 27), 90).Value) / ((Cells(25, 129).Value + Cells((t + 27), 90).Value)) * 100))"

A+
23/10/2006, 14h57
ced600
Citation:

Code :
Worksheets(1).Range("dv22").Formula = "=cells(24,117)"

Code :
Worksheets(1).Range("dv22").Formula = "=dm24"

le 1er code ne fonctionne pas tandis que le 2eme fonctionne

Pour le premier essaye un truc comme ça :
Code:

1 2 Worksheets(1).Range("dv22").Formula = "=A7"
23/10/2006, 14h58
marsupilami34
Peut être :

Code:

Worksheets(1).cells(126,22) = Cells(25, 129)

ou encore
Code:

1 2 Worksheets(1).Range("DV22") = Cells(25, 129
23/10/2006, 15h00
ced600

Dans ce cas ça ne serais pas plutot :

Code:

Range("A1").value = "=(((Cells(25, 129).Value - Cells((t + 27), 90).Value) / ((Cells(25, 129).Value + Cells((t + 27), 90).Value)) * 100))"

Pour que cela soit considérer comme une formule sous Excel, non ?
23/10/2006, 15h01
fmris

ok merci ta derniere solution fonctionne