Arobase dans formule VBA

Bonjour,

J'essaye d'inserer une formule par vba et dans ma formule il y a un arobase

existe-t-il un moyen d'inserer arobase en VBA ?

un peu comme Chr(34) pour les guillemets ce serait top

Merci d avance!

bonjour,

2 manières possibles de faire

Sub test()
arobase = "@"
arobase1 = Chr(64)
MsgBox arobase & arobase1
End Sub

supeeeeer!

merci beaucoup je vais utiliser le chr(64)!

en fait ma formule ne fonctionne pas et on dirait que le chr(64) pose probleme...

une idee

Sub prix()

Dim main As Worksheet
Dim i As String

Set main = ActiveWorkbook.Sheets("Main")
Set i = 1

Do While main.Cells(i, 1) <> "": i = i + 1: Loop

i = i - 1

For u = 1 To i Step 1
    '=BDP(ISIN@ebnp corp,"PX_MID")
    main.Cells(u, 2).Formula = "=BDP("&main.Cells(u,1).value&chr(64)&"EBNP corp"&","&chr(34)&"PX_MID"&chr(34)&")"

Next

End Sub

il me met un "expected end of statement" sur le chr(64)

merci encore

bonjour,

essaie ceci

Sub prix()

Dim main As Worksheet
Dim i As String

Set main = ActiveWorkbook.Sheets("Main")
Set i = 1

Do While main.Cells(i, 1) <> "": i = i + 1: Loop

i = i - 1

For u = 1 To i Step 1
    '=BDP(ISIN@ebnp corp,"PX_MID")
    main.Cells(u, 2).Formula = "=BDP(" & main.Cells(u, 1).Value & Chr(64) & "EBNP corp" & "," & Chr(34) & "PX_MID" & Chr(34) & ")"

Next

End Sub

alors ce coup ci il reconnait ma ligne

qu'as tu changé? je n'arrive pas à voir

mais il me met erreur run time 1004 sur la meme ligne, et je ne sais pas pourquoi

merci encore pour ton aide!

whereisbryan a écrit :

alors ce coup ci il reconnait ma ligne

qu'as tu changé? je n'arrive pas à voir

j'ai mis des espaces

whereisbryan a écrit :

mais il me met erreur run time 1004 sur la meme ligne, et je ne sais pas pourquoi

merci encore pour ton aide!

je ne connais pas la fonction BDP, mais selon moi il faudrait des guillemets dans la formule

remplace

'=BDP(ISIN@ebnp corp,"PX_MID")

par

'=BDP("ISIN@ebnp corp","PX_MID")

PAR-FAIT

voila que maintenant je me sens bete

merci beaucoup