Posez votre question Signaler

VBA,graphique boursier [Résolu]

sabouna_d 22Messages postés 2 juillet 2008Date d'inscription - Dernière réponse le 24 juil. 2008 à 10:45
Bonjour,
Je souhaite faire un graphique boursier, donc sur excel j'ai 3 colonnes un pour la valeur maximale, une pour la valeur minimale et une pour la valeur cloture
J'ai un problème en VBA, je ne sais pas comment s'appelle ce type de graphique.
Sur excell j'ai lancé et enregistré une macro, dans le code elle met ChartType = xlStockHLC
j'ai essai de relancer ma macro elle bloque au niveau du type
Pour mon projet j'ai commencé à faire le code:
With mafeuille
Set plagegraphique1 = .Range("F20:l35")
Set mongraphe1 = .ChartObjects.Add(plagegraphique1.Left, plagegraphique1.Top, plagegraphique1.Width, plagegraphique1.Height).Chart
mongraphe1.ChartType = xlStockHLC
ca bloque à ce niveau là, mon code est juste puique quand je met un autre type comme xlColumnClustered
ca fonctionne, mais bon je veux faire un graphique boursier.
Pouvez vous m'indiquer commennt s'appelle le type de ce graphique (boursier)?
D'avance merci
Lire la suite 

VBA,graphique boursier »

2 réponses
Réponse
+0
moins plus
essaie ce code

with mafeuille
Set PlageDonnees = .Range(.Cells(9, 6), .Cells(9, 6).End(xlDown)).Resize(, 3) 'ici tu l'adapte à ta plage de données
Set plagegraphique = .Range("F20:l35")
Set mongraphe = .ChartObjects.Add(plagegraphique.Left, plagegraphique.Top, plagegraphique.Width, plagegraphique.Height).Chart

PlageDonnees.Copy
mongraphe.Paste
mongraphe.ChartType = xlStockHLC
NbGraph = mafeuille.ChartObjects.Count
mafeuille.ChartObjects(NbGraph).Name = "fonction"

With ActiveChart

mongraphe.HasTitle = True
mongraphe.ChartTitle.Characters.Text = "nom_graphe"

End With
Ajouter un commentaire
Réponse
+0
moins plus
Merci roros ca marche!!!!!
Ajouter un commentaire
Ce document intitulé « VBA,graphique boursier » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?