1 pièce(s) jointe(s)
Macro création graphique automatique : échec
Bonjour à tous,
Je travail sur un fichier excel traitant des données sensibles ou il m'est ensuite demandé de tracer un graphique des données en fonction d'un diamètre et en faisant apparaître également sur chaque point l'heure à laquelle celui-ci s'est produit.
J'aimerai donc faire un graphique en nuage de points relié par une ligne, le problème est que ma plage de données n'est pas formaté comme ce que Excel voudrait. En gros, j'aimerais pouvoir figer un ensemble de valeurs comme abscisse et avoir deux ordonnées (données voulues et temps).
Il faut savoir qu'il s'agit de fichiers de plus ou moins 200000 lignes, donc le code devra etre efficace pour pouvoir exécuté cela en un minimum de temps
J'ai déjà essayé beaucoup de morceau de code mais sans succès jusqu'à présent (en voici un comme exemple)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Sub CreerGraphique_Click()
Set sh = Worksheets("Graphique")
Set grf = sh.ChartObjects.Add(140, 10, 600, 210) 'Taille de ton graphe
'grf.Name = Graphe1
With grf.Chart
.HasTitle = True 'Possède un titre
'.Chartitle.Text = "MON TITRE"
'.CharType = xlXYScatter
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Name = "Diameter 0.25"
.Values = Range("J2:J20000")
.XValues = Range("J1")
End With
.SeriesCollection.NewSeries
With .SeriesCollection(2)
.Name = "Diameter 0.35"
.Values = Range("K2:K20000")
.XValues = Range("K1")
End With
End With
Set grf = Nothing
Set sh = Nothing
End Sub |
Je mets également à disposition une capture du fichier en question pour plus de clarté,
Je vous remercie d'avance pour votre éventuelle précieuse aide
