Discussion :

[eno97]

Bonjour tout le monde.

Voilà je rencontre quelques problèmes avec les axes de mon graphique chchart.

Voilà déjà le bout de code qui me permet de générer mes courbes dans mon chartspace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    For j = 0 To nbCourbes - 1
        Cht.SeriesCollection.Add
        'Récupération des ordonnées pour chaque série
        For i = 0 To Ite - 1
             Plage(i) = Table(i, j)
        Next i
 
        With Cht
             'Ajoute le tableau d'abscisses
            .SetData C.chDimCategories, C.chDataLiteral, Tableau
            'Ajoute le tableau d'ordonnées ( Plage() )
            .SeriesCollection(j).SetData C.chDimValues, C.chDataLiteral, Plage
            '.Axes(xlCategory).MinorUnit = 80
 
        End With
    Next j

le problème, c'est que le tableau Tableau contient mille valeurs, et comme vous pouvez le voir sur la pièce jointe, cela rend l'axe des abscisses illisible

Ensuite, avec l'axe des ordonnées, j'aimerai savoir comment faire pour qu'il ne débute pas à 0 mais à une valeur que je lui aurait donné

Merci d'avance

[Daniel.C]

Bonjour,
Essaie avec l'enregistreur de macros, c'est ce que je fais souvent pour les graphiques. Précise également ta version d'Excel, c'est particulièrement important pour les graphiques. Reviens si tu as un problème.

[eno97]

Non, je ne peux pas utiliser les macros, car mon graphique ne se situe pas sur un feuille excel, mais dans un UserForm, et donc je peux pas changer la mise en forme des axes en les sélectionnant

J'ai oubli de marquer que je suis sous 2010 et que je me sers de OWC11 pour utiliser le chartspace sur le userform

[Daniel.C]

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Me.ChartSpace1.Charts(0).Axes(0).MinorUnit = 80
        Me.ChartSpace1.Charts(0).Axes(1).Scaling.Minimum = 15

[eno97]

ca y est, ça marche

merci beaucoup à toi