Problème VBA : Comment créer une courbe de données automatiques
Je souhaite insérer le colonne B (des heures) sur l'axe des X et la colonne C (température) sur l'axe des Y d'une courbé de données. Cependant, la plage de données sur l'axe des X est aléatoire et je ne parviens pas à rendre ceci automatique (sachant que sur la colonne C, je peux avoir de 300 à 3000 valeurs).
Voir ci dessous mon programme (ce programme marche aléatoirement en fonction du nombre de valeurs, l'axe des X et Y s'inverse) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| 'création du graphique'
Range("B:C").Select
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.SetSourceData source:=Range("B:C")
.ChartType = xlXYScatterSmoothNoMarkers
.HasLegend = False
.Axes(xlCategory).MinimumScale = Range("B1").Value
.Axes(xlCategory).MaximumScale = Range("B" & Range("B65536").End(xlUp).Row)
.Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(Range("C:C"))
.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(Range("C:C"))
End With |
