Bonjour,

Voici mon code qui pose probleme au niveau de la dernière ligne et je ne comprends pas pkoi. Si vouz pouvez m'aider merci.

formule1 contient une formule sous forme d'un string que je veux affecter dans un activecell.formulaR1C1.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RendeAnnualise()
Dim formule1 As String
 
formule1 = "(1+RC[-39])"
 
For i = 2 To 38
    formule1 = formule1 & "*(1+RC[" & -39 + i & ")"
Next i
 
Range("CJ33").Select
 
ActiveCell.FormulaR1C1 = "=100*" & formule1
 
End Sub
Merci