Discussion :

[HankMoody]

Bonjour tout le monde !

La fonction RTD("MLRTD.RTDFunctions";;"Price";"CR1\H123.4.EO";"Delta") me permet d'aller récupérer la valeur "Delta" de l'actif "CR1\H123.4.EO" sur un logiciel de données dynamique (Marketmap).

Je souhaite créer une macro (pas par formule donc..) qui me donne dans la cellule (2,3) le "Delta" en fonction du nom de l'actif que rentre l'utilisateur dans la cellule (3,1)

Code :

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

1
2
3
4
 
Sub Delta()
Cells(2,3).value = "=RTD("MLRTD.RTDFunctions";;"Price";Cells(3,1).value;"Last")
End Sub

Message d'erreur "Erreur de syntaxe"; si quelqu'un a une idée sur la syntaxe je suis preneur !

[Supermichou]

Bonjour,

en vba, le ";" devient ","

essaye avec

Code :

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

1
2
3
Sub Delta()
Cells(2,3).value = "=RTD("MLRTD.RTDFunctions",,"Price",Cells(3,1).value,"Last")
End Sub

[HankMoody]

Merci de ta réponse mais même après avoir remplacé il y a toujours "erreur de syntaxe".

[mercatog]

En plus il faut doubler les "

Code :

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

1
2
3
4
Sub Delta()
 
Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price""," & Cells(3, 1).Value & ",""Last"")"
End Sub

[HankMoody]

C'est bon, il fallait aussi doubler les " pour la partie & cells().value&

Merci à tous.

[HankMoody]

Désolé de revenir là dessus mais en fait ce n'est pas résolu !
le but est que la formule dans la cellule (2,3)soit sous cette forme:
"=RTD("MLRTD.RTDFunctions";;"Price"; "valeur_cellule(3,1)";"Delta")"


Avec la macro suivante:

Code :

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

1
2
3
4
 
Sub Delta()
 Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price""," & Cells(3, 1).Value & ",""Delta"")"
End Sub

la formule est :"=RTD("MLRTD.RTDFunctions";;"Price"; valeur_cellule(3,1);"Delta")"
Donc sans les "" autour de valeur_cellule(3,1)

et avec la macro suivante

Code :

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

1
2
3
4
 
Sub Delta()
 Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price"","" & Cells(3, 1).Value & "",""Delta"")"
End Sub

La formule est : "=RTD("MLRTD.RTDFunctions";;"Price", " & cells(3,1).value &";"Delta"")"

Bref c'est tout bête mais je ne vois pas la solution !
Merci d'avance.

[mercatog]

Code :

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

1
2
3
4
Sub Delta()
 
Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price"",""" & Cells(3, 1).Value & """,""Last"")"
End Sub