Petit problème de format de l'axe x de l'objet Chart

cs_Tidauph Messages postés 6 Date d'inscription lundi 13 février 2006 Statut Membre Dernière intervention 7 novembre 2008 - 7 nov. 2008 à 12:05
cs_Tidauph Messages postés 6 Date d'inscription lundi 13 février 2006 Statut Membre Derniè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

1 réponse

cs_Tidauph Messages postés 6 Date d'inscription lundi 13 février 2006 Statut Membre Derniè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"...
0
Rejoignez-nous