dates dans un graphe

Claudevba

XLDnaute Nouveau
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
 

MJ13

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Graphique_mise_en_forme_Axe.xlsm
    45.6 KB · Affichages: 53
Dernière édition:

MJ13

XLDnaute Barbatruc
Re : dates dans un graphe

RE

Voici ce que m'a dit Henry :p:

Code:
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
 

Discussions similaires

Réponses
0
Affichages
299

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna