| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 12/07/2019 à 14:17 | Nane18 | Macro trop lente | Desole mais le fichier est trop volumineux ... sinon je l'aurai déjà ajouté ... Aucune idée en voyant le code ? Merci en tout cas... |
| 12/07/2019 à 12:44 | Nane18 | Macro trop lente | Je vous poste mon code ici. Ma macro fonctionne mais mon problème est que ma macro est beaucoup trop lente ... Elle sert a effectué des calculs de moyennes pour un nombre variable de composants d'un indice boursier. Pourriez vous m'aider a simplifier mon code svp ? Merci de votre aide... |
| 11/07/2019 à 17:34 | Nane18 | Boucle For Imbriquées | Merci de votre aide j'ai trouvé une solution grace a vous. Effectivement mon code n'est pas très claire je suis débutant En tout cas merci a vous Sub Average() 'Calcul volatilité intraday Var = (Cells(2, Columns.Count).End(xlToLeft).Column * 6) Var2 = Sheets("Datas").Range(Cells(3, 1), Cells(3, 1).E... |
| 11/07/2019 à 16:32 | Nane18 | Boucle For Imbriquées | Ton code ne fonctionne pas, je pense qu'il en manque des partie car même a la lecture je ne vois pas deux variable pour les deux boucles ... Je te laisse regardé ça. Merci... |
| 11/07/2019 à 16:25 | Nane18 | Boucle For Imbriquées | Concernant l'incrémentation du i, si tu regarde ma première boucle, je n'ai pas non plus incrémenté x et ma boucle fonctionne ... Je ne sais donc pas comment l'incrémenté Et concernant la deuxième solution j'essai de suite et je te reviens mais je pensais être quasiment obligé d'imbriquées les deux... |
| 11/07/2019 à 15:57 | Nane18 | Boucle For Imbriquées | Vous trouverez en piece jointe mon fichier sur lequel je travaille. J'ai en fait un fichier ou je cherche a calculer desecart de prix récuperer sur bloomberg en rapport avec les indices boursiers. Voici le code Sub Cop_coll() Sheets("Composants").Select Range("C8:C256").Select Range(Selection, Selec... |
| 11/07/2019 à 15:51 | Nane18 | Formule R1C1 Bloomberg | En fait le problème c'est que la cellule qui est en heure se retrouve dans un tout autre style et par exemple un 9h00 se retrouve en 0.37 et des poussières... Savez vous pourquoi ? et comment résoudre le problème ? merci... |
| 11/07/2019 à 14:05 | Nane18 | Formule R1C1 Bloomberg | Ca ne marche toujours pas ... est t'il possible de me donner une syntaxe pour ce type de formule ? =BDH(R1C1;R1C6;TEXTE(A5; "YYYY-MM-DD")&" 15:29:00";TEXTE(A5; "YYYY-MM-DD")&" 15:45:00") Il faudrait remplacer A5 par R[-1]C[" & Z & "], 15:29:00 par R1C4 et 15:45:00 par R1C5. J... |
| 11/07/2019 à 13:32 | Nane18 | Formule R1C1 Bloomberg | Désolé, mais dans la formule la date et l'heure sont cité entre guillemet, car ici il ne reconnait pas la date ... Merci de votre aide... |
| 11/07/2019 à 13:18 | Nane18 | Formule R1C1 Bloomberg | Merci, cela effectue ce que je veux ... |
| 11/07/2019 à 11:54 | Nane18 | Formule R1C1 Bloomberg | J'ai une formule comme celle ci sous VBA Sheets("FR").Range(Sheets("FR").Cells(3, 1), Sheets("FR").Cells(3, 1)).Offset(0, y).FormulaR1C1 = "=BDH(R1C1,R1C6,R[-1]C[" & Z & "]& " " & D1,R[-1]C[" & Z & "]& "" & E1)" Elle ne fonctionne pas.... |
| 10/07/2019 à 13:28 | Nane18 | AutoFill avec Variable | J'ai utilisé une boucle combiné, cela fonctionne pour la première colonne a remplir mais pas pour les suivantes. Voici le code Sub Average() 'Calcul volatilité intraday Var = (Cells(2, Columns.Count).End(xlToLeft).Column * 6) + 1 Var2 = Sheets("Datas").Range(Cells(3, 1), Cells(3, 1).End(xlDown)).Cou... |
| 09/07/2019 à 15:36 | Nane18 | AutoFill avec Variable | Voici le fichier... |
| 09/07/2019 à 15:08 | Nane18 | AutoFill avec Variable | Je souhaiterai réalisé une macro qui insère une formule toute les 5 colonnes sur la ligne 3. J'ai reussi cette étape la. Par la suite, je souhaiterais que cette cellule soit étendue jusqu'a la derniere ligne de données. Néanmoins je ne connais pas la syntaxe de la formule Autofill. Voici la macro qu... |
| 09/07/2019 à 13:54 | Nane18 | Appliquer une formule a une liste de données dynamique | Bonjour , j'ai trouvé la solution. La voici, Sub RecupData() ' ' Recup datas ' Var2 = Cells(2, Columns.Count).End(xlToLeft).Column y = 0 Z = 0 'y variable pour décallage de la formule de 5 'z variable pour que la prise en compte du ticker soit de 1 a 1 For x = 1 To Var2 Sheets("Datas").Range(Sheets(... |
| 09/07/2019 à 09:19 | Nane18 | Appliquer une formule a une liste de données dynamique | Re-bonjour a vous, j'ai réussi a appliquer ma formule a ma plage de données transposée en ligne. Le problème c'est que ma formule a besoin d'un décalage de 6 colonnes entre chaque données. J'arrive a le faire mais dans ce cas ma formule ne prends que en compte le ticker du composant de l'index 1 foi... |
| 05/07/2019 à 17:41 | Nane18 | Appliquer une formule a une liste de données dynamique | Je suis débutant sur VBA et je m'en sert dans le cadre de mon travail avec Bloomberg. J'ai une formule BDS (lié a bloomberg) qui me récupere les composants d'un indice boursier. Ces composants sont disposé dans la colonne D4. Leur nombre peut varié entre 10 et 300. J'aimerai avoir une macro me perme... |
| 05/07/2019 à 15:47 | Nane18 | Insertion Colonnes | Merci de votre réponse, mais j'ai trouvé ceci qui fonctionne Sub InsCell() 'decalage de 3 cellules Sheets("Datas").Select Dim a As Integer a = Cells(1, Columns.Count).End(xlToLeft).Column * 4 For i = 2 To a Columns(i).Select Selection.Insert Shift = x1Right Selection.Insert Shift = x1Right Selection... |
| 05/07/2019 à 11:37 | Nane18 | Insertion Colonnes | Je suis débutant sur vba et je suis en train de créer une macro pour mon boulot. La première partie de la macro fonctionne, elle récupéré les données en colonnes et les copie colle en ligne sur une autre feuille. Le problème que j'ai c'est que je souhaiterais inséré deux cellules blanche ou deux col... |