Petit problème de format de l'axe x de l'objet Chart
cs_Tidauph
Messages postés6Date d'inscriptionlundi 13 février 2006StatutMembreDernière intervention 7 novembre 2008
-
7 nov. 2008 à 12:05
cs_Tidauph
Messages postés6Date d'inscriptionlundi 13 février 2006StatutMembreDernière intervention 7 novembre 2008
-
7 nov. 2008 à 12:50
Bonjour,
Je tourne en rond sur tous les forums que j'ai trouvé et je commence à désespérer. J'ai créé un objet Chart dans un userform et il marche bien. Le seul problème c'est que sur l'axe des abscisses, mes valeurs sont des heures et je n'arrive pas à le formater pour qu'il m'affiche hh:mm au lieu de #,##########.
Merci de votre aide...
Voici mon code :
Option Explicit
Option Base 1
Dim Cht As ChChart
Dim C
Private Sub UserForm_Initialize()
Set C = ChartSpace1.Constants
'Ajoute le graphique
Set Cht = ChartSpace1.Charts.Add
End Sub
Private Sub UserForm_Activate()
Dim i As Integer
Dim Heure(40), Valeur(40)
'Définit les abscisses
For i = 1 To 40
Heure(i) = Feuil2.Cells(9 + i, 3)
Next i
'Récupération des ordonnées pour chaque série
For i = 1 To 40
Valeur(i) = Feuil2.Cells(9 + i, 4)
Next i
With Cht
'Définit le type de graphique
.Type = chChartTypeLine
'Ajoute le tableau d'abscisses
.SetData C.chDimCategories, C.chDataLiteral, Heure
.Axes(xlValue).NumberFormat = "hh:mm" <= Il pante ici(Argument ou appel de procédure incorrect)
'Ajoute le tableau d'ordonnées
.SeriesCollection(0).SetData C.chDimValues, C.chDataLiteral, Valeur
.Axes(xlCategory).NumberFormat = "0"
'Ajoute la légenge pour chaque serie
.SeriesCollection(0).Caption = Cells(9, 4)
'Définit la couleur de la série
.SeriesCollection(0).Interior.Color = 50000 * (1)
End With
'Efface le contenu du tableau
Erase Valeur
A voir également:
Petit problème de format de l'axe x de l'objet Chart
cs_Tidauph
Messages postés6Date d'inscriptionlundi 13 février 2006StatutMembreDernière intervention 7 novembre 2008 7 nov. 2008 à 12:50
Pour info : Lorsque je modifie "xlCategory", ça modifie le format de l'axe des ordonnées (vertical). N'y a-t-il pas un problème déjà à ce niveau car j'ai lu sur beaucoup de forums que "xlCaterory" était l'axe des abscisses (horizontal) et "xlValue" l'axe des ordonnées (vertical)?
Ca me semble encore plus étrange, car les heures je les rentre dans "C.chDimCategories" et non dans "C.chDimValues"...