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 : Sélectionner tout - Visualiser dans une fenêtre à part
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