Discussion :

[Kiklefou]

Salut tout le monde,

J'ai un objet objXvalues () qui est vecteur de nombres entiers allant de -2 à 30.
Je désigne objXvalues comme Xvalues de chaque série.
Il m'affiche en effet l'axe x avec les bonnes valeurs mais seulement le premier digit (voir image).

Comment puis-je éviter cela?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim objXvalues (), countrows as Integer, StartArray as Integer, EndArray as Integer, iCount as Integer
countrows = Sheets("TabMoyenne").Cells(Sheets("TabMoyenne").Rows.Count, 1).End(xlUp).Row
 
ReDim objXvalues(1 To countrows - 1)
StartArray = -2
EndArray = countrow + StartArray - 1
For iCount = 1 To countrows - 1
    objXvalues(iCount) = StartArray
    StartArray = StartArray + 1
    MsgBox (objXvalues(iCount))
Next

Le MsgBox m'affiche correctement les valeurs successives avec 2 digits.

Code :

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

1
2
3
4
5
With ActiveChart.SeriesCollection(iList + 1)
        .XValues = objXvalues
        .Border.Weight = xlMedium
        .MarkerSize = 6
End With

MERCI D'AVANCE !

[mayekeul]

bonjour,
et si on gere les format avec un code du genre

Code :

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

ActiveSheet.ChartObjects("Chart 1").TickLabels.NumberFormat = "#.##0,00"

[Kiklefou]

Non, c'est pas ça. Mais merci quand même !

Ca fonctionne sur l'axe Y qui n'est pas spécifié, mais pas sur l'axe X.
Voir image.

Code :

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

ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "#.##0,00"

[mayekeul]

c'est ça qui ne fonctionne pas?

Code :

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

ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "#.##0,00"

ou ça?

Code :

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

ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "#.##0,00"

ceci dis, cela chez moi!

[Kiklefou]

Code :

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

ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "##00"

Fonctionne !

Mais, du coup les unités entre -2 et 9 sont affichés avec un zéro en face (-02, -01, ...).

C'est pas encore parfait.

[Kiklefou]

C'est bizarre, j'ai été me renseigner sur d'autres sites et j'ai essayé des format conditionnel mais ça ne fonctionne pas non plus.

Le systeme de lecture des conditions m'échappe car il en lit une mais pas la suivante ou la dernière mais pas la première. Enfin, c'est pas clair et ça ne fonctionne pas.

Pour un axe allant de -2 à 30:

Code :

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

ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "[<10]#0;[>=10]##00"

Des idées?