dates dans un graphe

[Claudevba]

Bonjour,

J'ai un code qui me permet de tracer les graphes à partir d'un tableau par une macro. Il fonctionne à merveille. Seulement, lorsque je fais entrer un tableau avec des champs dates pour les abcisses, le graphe n'affiche pas des dates, mais des chiffres dont je ne connais pas l'origine. Mais par contre si je mets le type en single, les valeurs entières correspondantes aux dates sont affichés, et je dois aller manuellement changer le type des abcisses en date, gymnastique dont j'ai pas besoin. Voici mon code:

Sub creationGraphiqueParTableau()
Dim i As Byte
Dim Tableau(1 To 10) As Date, Tableau2(1 To 10) As Single
Dim MaColl As New Collection, Enumerateur As Integer
Dim Axe As Axis
Dim MonGraphe As Chart

'Création du tableau pour les Abscisses

For i = 1 To 10
Tableau(i) = Format(Entrer_Date.DTPicker1.Value + 1, "dd/mm/yyyy")
Next i


'Création d'un tableau pour les Ordonnées
For i = 1 To 10
'Le tableau est rempli par des valeurs aléatoires pour
'cet exemple
Tableau2(i) = 1 / i
Next i

'Création graphique
Charts.Add
'Définit la localisation du graphique:
'dans la feuille de calcul Feuil1 pour cet exemple
ActiveChart.Location _
Where:=xlLocationAsObject, Name:="Feuil1"

'Ajoute une série dans le graphique
With ActiveChart
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Tableau() 'Abscisses
.SeriesCollection(1).Values = Tableau2() 'Ordonnées
'Définit le type (Courbe)
'ChartType = xlLine
.ChartType = xlXYScatterLines
'Set Axe = .Axes(xlCategory, xlPrimary)
'With Axe


'End With
End With

End Sub

 

[Claudevba]

Re : dates dans un graphe

le deuxième ligne c'est plutôt :
For i = 1 To 10
Tableau(i) = Format(Entrer_Date.DTPicker1.Value + i, "dd/mm/yyyy")
Next i

 

[MJ13]

Re : dates dans un graphe

Bonjour ClaudeVBA

Normalemnt, il me semble que dans les options de l'axe du graphique, tu peux choisir de formater comme dans ton tableau.

 

[Claudevba]

Re : dates dans un graphe

le problème est que, je dois le faire pour chqaue graphe créé. pourtant moi je voudrais que ce soit valeur par défaut

 

[MJ13]

Re : dates dans un graphe

RE

Voici ce que m'a dit Henry :

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    Selection.TickLabels.NumberFormat = "# ##0,00"
    Selection.TickLabels.NumberFormat = "0,00"
    Selection.TickLabels.NumberFormat = "0"
    Range("K28").Select
End Sub