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

WIsh_ · 25 Septembre 2020

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

VB:

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

danielco · 25 Septembre 2020

Bonjour,

Avec VBA :

VB:

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

sylvanu · 25 Septembre 2020

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

danielco · 25 Septembre 2020

Bonjour,

Avec VBA :

VB:

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_ · 26 Septembre 2020

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

VB:

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

par

Code:

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

et ça marche nickel.

Merci beaucoup !
Wish

danielco · 26 Septembre 2020

Oui, ou :

VB:

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

Daniel

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

WIsh_

XLDnaute Occasionnel

Pièces jointes

danielco

sylvanu

XLDnaute Barbatruc

Pièces jointes

danielco

XLDnaute Accro

WIsh_

XLDnaute Occasionnel

danielco

XLDnaute Accro

Discussions similaires