Insertion Formule dans une Boucle VBA (bloomberg)

Bonjour,
En fait mon probleme est d ecrire la formule Bloomberg suivante dans des cellules successives: "BDP(A1corpisin,Fund_total_assets)"
En fait la formule serait pour le Range"Ak" (où k est la variable qui parcourt les cellules):

Code:

---

"Sheets(1).Range("A" & k).Formula="BDP(A&k&corpisin,Fund_total_assets)"

---

le pb c est que je veux le faire pour toutes les cellules de A1 à A&LastRow
j ai tenté plusieurs ecritures mais rien à faire j obtiens toujours: Erreur '1004'
voici un exemple de ce que j ai essayé:

Code:

---

1 2	Sheets(1).Range("T" & k ).Formula = _ "=BDP(A " & k & ";" & "Fund_total_assets)"

---

ne vous focalisez pas sur le BDP, c juste la syntaxe pour n importe qu elle focntion dont j ai besoin .
Merci

Bonjour,

En anglais, le séparateur d'argument dans les fonctions est la virgule et il ne faut pas d'espace entre le nom de la colonne et le numéro de la ligne (Ak et non A k) :

Code:

---

1 2	Sheets(1).Range("T" & k ).Formula = _ "=BDP(A" & k & "," & "Fund_total_assets)"

---

Tu peux utiliser la version francisée de la formule (avec le point virgule) avec :

Code:

---

1 2	Sheets(1).Range("T" & k ).FormulaLocal = _ "=MAFONCTION(A" & k & ";" & "Fund_total_assets)"

---

Merci beaucoup ! Je n y aurais jamais pensé ! :ccool:

Bonjour
Tu peux appliquer directement ta formule à ta plage (sans boucle)

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim LastLig As Long   With Sheets(1) LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("T1:T" & LastLig).Formula = "=BDP(A1,Fund_total_assets)" End With End Sub

---

Merci pour cette précision mais en fait la formula en question depend de Ak et non A1, il faut donc une boucle pour que ca prenne ce qui se trouve dans la cellule Ak à chaque fois.
Mais je ne connaissais pas cette syntaxe ca pourra m aider ulterieurement!:ccool:

Bonjour
As-tu au moins testé la proposition? T1 dépend de A1,... Tk dépend de Ak et sans boucle.

Je ne comprends pas comment ca incrémente automatiquement !! Mais c tres bien.
En fait ma formule est celle ci, comment adapter ton code ?

Code:

---

1 2	=BDP("LU0474440715 corp isin","Fund_total_assets")

---

avec "LU0474440715" c est mon code ISIN ou bien Range("A" & k).Value

Voici le code que j ai da,ns ma macro qui fonctionne mais si je peux l améliorer...

Code:

---

"=BDP(" & Chr(34) & MaVar(k).ISIN & " corp isin" & Chr(34) & "," & Chr(34) & "Fund_total_assets" & Chr(34) & ")"

---

Bon, on va faire un petit essai
Dans un nouveau classeur, mettre des chiffres de A1 à A10
Lance cette macro

Code:

---

1 2 3 4

Sub test1()   Range("B1:B10").Formula = "=2*A1" End Sub

---

On récupère bien en B1 =2*A1, en B2 =2*A2... en B10 =2*A10

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim LastLig As Long   With Sheets(1) LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("T1:T" & LastLig).Formula = "=BDP(A1 &"" corp isin"",""Fund_total_assets"")" End With End Sub

---

Franchement je suis ébahi par la puissance du code!chapeau bas !!
Il ne reste plus qu un point ,non lié à la syntaxe,et sur lequel j aimerais des détails. Mes formules sont bien appliquées partout mais seulement je suis obligé de clicker dessus les cellules et puis valider par entree pour qu il calclule! Est ce normal ? Y a t il une raison ?

Si tu fais F9?

Citation:

---

Envoyé par mercatog

Si tu fais F9?

---

Ca ne change rien mais j ai des doutes quand à Excel sur ce poste qui refuse d executer ma macro et plante alors que ca marche tres bien sur le mien.
Je suis obligé de l' appliquer manuellement... étrange.

Je me me permet puisque vous m avez bien aidé, auriez vous un tuto ou un livre que vous recommenderiez pour maitriser VBA pour EXCEL ? Moi je me débrouille mais je veux progresser encore.

Citation:

---

Envoyé par Stufa789

auriez vous un tuto ou un livre que vous recommenderiez pour maitriser VBA pour EXCEL ? Moi je me débrouille mais je veux progresser encore.

---

ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf