Insertion Formule dans une Boucle VBA (bloomberg)

**Stufa789** · 06/04/2011, 17h55

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 :

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

"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 :

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

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

**Patrice740** · 06/04/2011, 18h49

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 :

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

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 :

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

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

**Stufa789** · 06/04/2011, 19h19

Merci beaucoup ! Je n y aurais jamais pensé !

**mercatog** · 06/04/2011, 19h37

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

Code :

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

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

**Stufa789** · 07/04/2011, 09h51

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!

**mercatog** · 07/04/2011, 11h04

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

**Stufa789** · 07/04/2011, 11h43

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 :

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

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 :

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

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

**mercatog** · 07/04/2011, 12h36

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

Code :

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

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 :

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

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

**Stufa789** · 07/04/2011, 14h37

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 ?

**mercatog** · 07/04/2011, 15h01

Si tu fais F9?

**Stufa789** · 07/04/2011, 17h33

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.