Discussion :

[fmris]

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 :

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

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))"

[marsupilami34]

Bonjour,
Perso, je ne mettrais pas les ""

[fmris]

en otant les " " ca marche pas

[marsupilami34]

Tu as quoi comme erreur ?

[fmris]

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

Code :

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

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

[marsupilami34]

Est ce que tu as essayé au debogger et voir si tes contenaient bien des valeurs ?