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 !