Petite question sur l'utilisation des variables

[nougitch]

Bonjour,

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

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.

 

[Gorfael]

Re : Petite question sur l'utilisation des variables

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

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.

Salut à tous
Si tu déclares une variable, il est préférable de le faire réellement dans le type concerné

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

Devrait pas être loin du résultat,mais comme tu connaîs le résultat que tu attends, s'il y a une correction à apporter, tu devrais y arriver facilement

A+

 

[mutzik]

Re : Petite question sur l'utilisation des variables

bonjour,

éventuellement
"=OptStdPrice(INDIRECT("&G28&"),LTDIVAEX...

 

[nougitch]

Re : Petite question sur l'utilisation des variables

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

 

[Gorfael]

Re : Petite question sur l'utilisation des variables

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

Salut
Quelle variable et à quel endroit ?
A+