Re : Graphique - Précision, borne, superposition
Bonjour pdemaret,
borne, superposition...
Pour le graphique, j’ai utilisé le BEL20 (puisque tu es belge) comme indice de référence, ce qui permet de vérifier quels sont les titre qui le sur/sous-performent.
---------------------
Téléchargement sur Euronext
---------------------
Dans la feuille
C1 : date début
C2 : =AUJOURDHUI()
Dans VBA – pour ouvrir les macros, touches clavier = Alt+F11
Double-clic sur le Module Telechargements_Calculs (à gauche)
Dans la macro, initialisation des variables
1/ dates
début = Cells(1, 3) => =" & début & "
fin = Cells(2, 3)=> =" & fin & "&
2/ codes isin : symbole = Sheets("Feuil1").Cells(i, 5)
=>" & Symbole & "
insertion des variables dans l’adresse url :
"URL;http://www.euronext.com/tools/datacentre/dataCentreDownloadExcell.jcsv?cha=2593&lan=FR&fileFormat=xls&separator=.&dateFormat=dd/MM/yy&isinCode=" & Symbole & "&&selectedMep=3&indexCompo=&opening=on&high=on&low=on&closing=on&volume=on&dateFrom=" & début & "&dateTo=" & fin & "&typeDownload=2"
Ensuite je supprime les virgules pour réaliser les calculs parce que dans la personnalisation des options régionales de windows, j’ai mis un point.
Donc si les options régionales ont une virgule, il faut supprimer les lignes
'----------supprime virgule-------------------
Range("B10:E10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Puis calcul des rendements colonne G et rendements cumulés (colonne H ) pour pouvoir tracer une ligne dans le graphique. Une boucle crée une feuille par titre et effectue les calculs
(compte = Cells(1, 5) correspond à la formule de la feuille , en E1 : =NBVAL(E2:E50)
------------------------
Pour l’échelle graphique
1/ il faut calculer le minimum et le maximum de la colonne H et inscrire le résultat dans chaque feuille : J1 pour le maximum, J2 pour le minimum
Ensuite le module MaxMin (à gauche) recherche le minimum et le maximum dans toutes les feuilles.
Les résultats s’’inscrivent en feuille1 => Sheets("Feuil1").Cells(1, 2) = MaxCA2(2)
Sheets("Feuil1").Cells(2, 2) = MinCA2(2)
Module Construction_Graphiques
1/ appel des macros
Sub graphBoucle()
…
Maximum
Minimum
Ensuite, lors de la construction graphique, il faut récupérer les valeurs maximum et minimum en B1 et B2 :
.MinimumScale = Cells(2, 2).Value – 10
.MaximumScale = Cells(1, 2).Value + 10
----------------------
pour le noms des courbes s'affichent en sélectionnant le graphique, pui en passant la flèche de la souris sur une courbe
tu peux étudier le code, c'est la meilleure manière d'apprendre le vba.
albert