XL 2016 VBA Format de date dans un graphique

danielco · 28 Mars 2020

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 :

Code:

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 · 28 Mars 2020

Bonjour

Une façon de faire

VB:

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 · 28 Mars 2020

Bonjour

Une façon de faire

VB:

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 · 28 Mars 2020

Re

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

VB:

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

danielco · 28 Mars 2020

Staple1600 à dit:

Bonjour

Une façon de faire

VB:

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 · 28 Mars 2020

Staple1600 à dit:
Re

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

VB:

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 · 28 Mars 2020

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 · 28 Mars 2020

Staple1600 à dit:
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

XL 2016 VBA Format de date dans un graphique

danielco

XLDnaute Accro

Pièces jointes

Staple1600

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

danielco

XLDnaute Accro

danielco

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

danielco

XLDnaute Accro

Discussions similaires