graphique / étiquettes : afficher uniquement les valeurs différentes des précédentes

[WIsh_]

Bonjour,

Je cherche à afficher les valeurs différentes des précédentes sur mon graphique, soit uniquement les valeurs lorsqu'il y a une augmentation.

J'ai essayé ceci, mais évidemment cela ne fonctionne pas

Option Explicit
Dim wk As Workbook, graph As ChartObject, ws As Worksheet
Dim nbpt, i

Sub point()

Set wk = ThisWorkbook
Set ws = wk.Worksheets("Feuil1")
Set graph = ws.ChartObjects("graphique 1")

nbpt = ActiveChart.SeriesCollection(1).Points.Count

ActiveChart.FullSeriesCollection
For i = 1 To nbpt
If point(i + 1).Value > point(i).Value Then
.point(i).HasDataLabel = True
End If
Next
End With
End Sub

Merci d'avance pour votre aide,
Wish

 

[sylvanu]

Bonjour Wlsh_
Peut être est il possible de se passer du VBA. Un exemple en PJ.

 

[danielco]

Bonjour,

Avec VBA :

Sub point()

Set wk = ThisWorkbook
Set ws = wk.Worksheets("Feuil1")
Set graph = ws.ChartObjects("graphique 1")

nbpt = graph.Chart.SeriesCollection(1).Points.Count

With graph.Chart.FullSeriesCollection(1)
  Var = .Values
  .HasDataLabels = False
  For i = 2 To nbpt
  If Var(i) > Var(i - 1) Then
    .Points(i).HasDataLabel = True
  End If
  Next
End With
End Sub

Daniel

 

[WIsh_]

Bonjour Sylvanu et Daniel,

Merci beaucoup pour vos retours.
J'ai opté pour la solution en vba. Contrairement à mon exemple, j'avais parfois des valeurs qui diminuaient j'ai donc modifié la ligne

If Var(i) > Var(i - 1) Then

par

If Var(i) > Var(i - 1) or Var(i) < Var(i - 1) Then

et ça marche nickel.

Merci beaucoup !
Wish

 

[danielco]

Oui, ou :

If Var(i) <> Var(i - 1) Then

Daniel