XL 2016 VBA Format de date dans un graphique

[danielco]

Bonjour,

Je n'arrive pas à récupérer les dates de l'axe des abscisses au format JJ/MM/AAAA. Je suis obligé de passer par un tableau (array) car la plage de dates est filtrée et je n'en utilise que certaines. J'ai créé un classeur exemple en PJ. Voici la macro :

Sub test()
  Dim TablY() As Double, TablX() As Date, C As Range, I As Long
  I = -1
  With Sheets(1).ChartObjects(1).Chart
    For Each C In [A2:A5]
      I = I + 1
      ReDim Preserve TablX(I)
      ReDim Preserve TablY(I)
      TablX(I) = C.Value
      TablY(I) = C.Offset(, 1).Value
    Next C
    .SeriesCollection(1).Values = TablY
    .SeriesCollection(1).XValues = TablX
  End With
End Sub

J'obtiens des dates au format M/J/AAAA que je n'arrive pas à mettre en forme.

Pouvez-vous m'aider ?

Cordialement.

Daniel

 

[Staple1600]

Bonjour

Une façon de faire

Sub test()
  Dim TablY(), TablX(), C As Range, I As Long
  I = -1
  With Sheets(1).ChartObjects(1).Chart
    For Each C In [A2:A5]
      I = I + 1
      ReDim Preserve TablX(I)
      ReDim Preserve TablY(I)
      TablX(I) = C.Value2
      TablY(I) = C.Offset(, 1).Value2
    Next C
    .SeriesCollection(1).Values = TablY
    .SeriesCollection(1).XValues = TablX
  End With
End Sub

 

[Staple1600]

Re

Si j'ai bien compris, cela fait aussi le twist

Sub test_B()
Sheets(1).ChartObjects(1).Chart.SetSourceData Source:=Range("A2:B5")
End Sub

 

[danielco]

Bonjour

Une façon de faire

Sub test()
  Dim TablY(), TablX(), C As Range, I As Long
  I = -1
  With Sheets(1).ChartObjects(1).Chart
    For Each C In [A2:A5]
      I = I + 1
      ReDim Preserve TablX(I)
      ReDim Preserve TablY(I)
      TablX(I) = C.Value2
      TablY(I) = C.Offset(, 1).Value2
    Next C
    .SeriesCollection(1).Values = TablY
    .SeriesCollection(1).XValues = TablX
  End With
End Sub

Bravo ! Mais... Pourquoi ?

Daniel

 

[danielco]

Re

Si j'ai bien compris, cela fait aussi le twist

Sub test_B()
Sheets(1).ChartObjects(1).Chart.SetSourceData Source:=Range("A2:B5")
End Sub

Oui mais je ne peux pas. Comme je l'ai écrit (mais ce qui n'est pas dans le classeur), je ne prends que certaines dates pur mon graphique. Sinon, oui.

Daniel

 

[Staple1600]

Re

Le deuxième code est encore plus simple
(mais ai-je bien compris ce que tu veux faire)

Quant au pourquoi;
As Variant (plutôt que As Date) semble éviter le problème
et Value2 préférable à Value.

 

[danielco]

Re

Le deuxième code est encore plus simple
(mais ai-je bien compris ce que tu veux faire)

Quant au pourquoi;
As Variant (plutôt que As Date) semble éviter le problème
et Value2 préférable à Value.

OK. Merci.

Daniel