Projet VBA Fermé

Question

Bonjour, 

J'ai un projet à faire, pour ma troisième année d'étude, en VBA, et n'étant absolument pas compétent dans ce domaine je demande votre aide. 

Voici le sujet :   Afficher les valeurs d'une action (AAPL par exemple) dans le temps (à partir de Yahoo). Soit une stratégie d’investissement à partir d'un capital M: si la valeur monte, on vend, si elle baisse, on achète. Calculer le gain de cette stratégie et le comparer avec la stratégie aléatoire.
 

J'ai donc importer une base de donnée de trois mois du CAC40 sur mon tableau, avec toute les modifications nécessaire mais les données s’arrête aujourd'hui : y a t'il un moyen d'actualiser les données  au jour le jour ? 

En outre, je ne sais pas du tout par où commencer : même littéralement je ne saurais pas vraiment m'y prendre...

Merci pour votre aide !

Chris 94 · Answer

Bonjour,

En outre, je ne sais pas du tout par où commencer : même littéralement je ne saurais pas vraiment m'y prendre... Pourtant...
CCM ne fait pas les exercices. Une aide peut être donnée si une travail personnel est démontré.

Turpinou · Answer

C'est bien pour cela que je demande des pistes de réflexion, afin de commencer moi même.
Voici mon début de composition permettant la copie des données :

jordane45 · Answer

Bonjour,

Sans parler exercice..... 
le code que tu montres sert à mettre en place (via macro) une connexion à des données externes.
Tu aurais tout aussi bien pu le faire sans utiliser de macro... l'option étant directement accessible depuis le ruban excel.
Une chose que tu n'as pas vu, c'est l'option "Refresh" que tu as défini à false.....
En la passant à TRUE les données s'actualiseront .....

Turpinou · Answer

Bonjour,

J'ai bien conscience qu'il me faille apprendre mais j’espérais passer sur ce projet moins d'une vingtaine d'heure sachant que ce n'est qu'une mineure dans mon bi-cursus. 

Voici donc mes trois macro me permettant de calculer le gain total ci joint. 

Premier problème, en plus d'être très simpliste comme codage, est qu'il pourrait fonctionner si pour chacune des actions on devait acheter puis vendre puis acheter puis vendre... Or si je me retrouve à vendre deux fois de suite, respectivement acheter, le résultat n'a plus de sens. Un conseil  ? 

En outre, jordane45, j'utilise bien le ruban excel pour integrer mes données mais via la rubrique "from text" et non pas "from web" puisque avec cette derniere je ne peux pas avoir accès à la fenetre "text import wizard" me permettant de formater le tableau (reconnaître les points comme virgules, le tableau date, ainsi que séparer les colonnes via les virgules du texte brut). En bref, je peux importer une fois les données proprement mais je ne peux pas actualiser la base. Suis-je clair  ? 

Je rappelle que je suis encore grand débutant en VBA.

Merci pour le temps que vous pourrez me consacrer 

 
Sub Analyse()

' on veut obtenir le montant des plus-values

Dim y As Integer
Dim z As Integer
Dim x As Integer
y = 0

For i = 2 To 260

'x étant la différence entre l'ouverture et la fermeture
        x = Cells(i, 2).Value - Cells(i, 5).Value

'y étant la comparaison entre deux jours
        y = x - y
        z = x - y
        Cells(i, 8).Value = z

If z < 0 Then
   Cells(i, 9).Select
    ActiveCell.FormulaR1C1 = "achat"
        
   End If
   
   If z > 0 Then
   Cells(i, 9).Select
    ActiveCell.FormulaR1C1 = "vente"
    
    End If
       
Next i
    
End Sub

Sub Investissement()

'entrée du montant
'permet de connaitre le nombre d'actions vendues ou achetées
 x = InputBox("Rentrez la valeur de votre capital", "Investissement", "1000000")

Range("L4").Select
ActiveCell.FormulaR1C1 = x

For i = 2 To 258

a = Cells(i, 9)
    
    If a = "achat" Then
        Cells(i, 10) = Int(x / Cells(i, 2))
        
    End If
Next i

For i = 2 To 258

a = Cells(i, 9)
    
    If a = "vente" Then
        Cells(i, 10) = Cells(i - 1, 10)
        
    End If
Next i
End Sub

Sub gain()
' calcul la somme du montant de chaque action

For i = 2 To 258
    Cells(i, 11) = Cells(i, 10) * (Cells(i + 1, 8))
    
 Next i
    
Set MaPlage = Range("J2:J258")

MaSomme = Application.WorksheetFunction.Sum(MaPlage)
Cells(4, 13) = MaSomme

End Sub

Projet VBA

4 réponses

Discussions similaires