Petite question sur l'utilisation des variables

nougitch à dit:

Bonjour,
Une petite question pas bien méchante par rapport au code suivant

Code:

Sub Test()
    ' declare variables
    Dim Rates
    ' affect values to variables
    Rates = ThisWorkbook.Sheets("Sheet1").Range("G28").Value
    ' select concerned cell
    ThisWorkbook.Sheets("Sheet1").Range("J29").Select
    ' apply formula
    ActiveCell.FormulaR1C1 = "=OptStdPrice(INDIRECT(R[-1]C[-3]),LTDIVAEX,OFFSETAEX,10,""EURO"",RC[-6],TODAY(),TODAY(),RC[-7],OFFSETAEX,R25C3,RC6,0,0,0,0,0,0,""SIGMACST"",10,LTREPOAEX)"
End Sub

Au début de la formule, dans le Indirect, cela correspond à la variable Rates.
Comment faire pour faire un INDIRECT(Rates), au lieu de INDIRECT(R[-1]C[-3]) ?
Merci par avance.

Cliquez pour agrandir...

Sub Test()
    ' declare variables
    Dim Rates as string 
    ' affect values to variables
    Rates = ThisWorkbook.Sheets("Sheet1").Range("G28")
    ' select concerned cell
    ThisWorkbook.Sheets("Sheet1").Range("J29").formula = _
     "=OptStdPrice(INDIRECT(G28),LTDIVAEX,OFFSETAEX,10,""EURO"",D29,TODAY(),TODAY(),C29,OFFSETAEX,$C$25,$F29,0,0,0,0,0,0,""SIGMACST"",10,LTREPOAEX)"
End Sub

nougitch à dit:

Merci les gars.
Donc à priori, pas moyen d'insérer ma variable directement dans ma fonction.
++

Cliquez pour agrandir...