[XL-2007] Modification du format d'un axe graphique [Résolu]

[Devour]

Bonjour à tous,

J'aimerais savoir comment modifier le format numérique d'un axe graphique dans une macro.

En enregistrant la macro, elle me sort:

Code :

1
2
3
4
ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue, xlSecondary).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    Selection.TickLabels.NumberFormat = "0,00"

Or dans mon code, tout d'abord j'ai remarqué que le code utilisé n'est pas le même que dans l'enregistreur (à quoi est-ce dû ?) et d'autre part j'ai deux erreurs:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set Sh = ThisWorkbook.Worksheets(1)
Set Ch = ThisWorkbook.Charts.Add(After:=ThisWorkbook.Worksheets(1))
With Sh
With Ch
    .Name = "Graphe"
    .ChartType = xlXYScatterLinesNoMarkers
    .HasTitle = True
    .ChartTitle.Characters.Text = "AWT-C " & Sh.Range("B3")
    With .Axes(xlValue, xlSecondary)
        .HasTitle = True
        .AxisTitle.Characters.Text = "Torque (N.m)"
        .MinimumScale = 0
        .Selection.TickLabels.NumberFormat = "0,00"
    End With

Si je laisse le texte en rouge ".Selection", j'obtiens une erreur et je m'en doutais (puisque le code n'est pas le même que dans l'enregistreur).
Si je l'enlève comme je pensais bien faire, les chiffres apparaissent non pas comme "0,06" mais "006".

D'où vient ce problème ??

Merci d'avance,
Devour

PS: Et où pourrais-je avoir plus d'aide ou d'indice sur le langage à utiliser lors du code ?

Edit: Personne pour répondre à mon besoin ?

[Devour]

Voici la bonne partie de code:

Code :

1
2
3
4
5
6
With .Axes(xlValue, xlSecondary)
        .HasTitle = True
        .AxisTitle.Characters.Text = "Torque (N.m)"
        .MinimumScale = 0
        .TickLabels.NumberFormat = "0.00"
    End With

Me demandez pas pourquoi, j'ai dû mettre un . pour afficher une virgule dans Excel (peut-être le fait que j'utilise un autre logiciel pour transmettre mes données -> LabView).