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