étiquettes de données

[djstroubi]

Bonjour,

Est ce que c'est possible de mettre en étiquette de données que les valeurs qui sont supérieures à 0. parce que j'ai un graph croisés dynamiques et il me met toutes les étiquettes de données des séries alors que par exemple j'ai que trois séries

est ce qu'il y a une solution

merci

 

[djstroubi]

Re : étiquettes de données

re le forum,

Je vous met un exemple pour que ce soit plus facile à comprendre.

merci

 

[PMO2]

Re : étiquettes de données

Bonjour,

Une piste avec le code suivant à copier dans un module standard

Sub DetruitEtiquetteValeurNulle()
Dim CH As Chart
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim A$
Dim i&
Dim nbPoints&
Dim cpt&
If TypeName(Selection) <> "ChartArea" Then
  MsgBox "L'objet sélectionné n'est pas un graphique."
  Exit Sub
End If
Set CH = ActiveChart
Set S = Sheets(CH.Parent.Parent.Name)
On Error Resume Next
Application.ScreenUpdating = False
For i& = 1 To CH.SeriesCollection.Count
  A$ = CH.SeriesCollection(i&).Formula
  A$ = Replace(A$, "$", "")
  A$ = Mid(A$, InStrRev(A$, "!") + 1)
  A$ = Mid(A$, 1, InStr(A$, ",") - 1)
  Set R = S.Range(A$)
  nbPoints& = CH.SeriesCollection(i&).Points.Count
  cpt& = 0
  For Each C In R
    If cpt& > nbPoints& Then cpt& = 0
    cpt& = cpt& + 1
    If C = "" Then
      CH.SeriesCollection(i&).Points(cpt&).DataLabel.Characters.Delete
    End If
  Next C
Next i&
CH.Deselect
Application.ScreenUpdating = True
End Sub

Sélectionnez le graphique puis lancez la macro DetruitEtiquetteValeurNulle.

Cordialement.

PMO
Patrick Morange

 

[djstroubi]

Re : étiquettes de données

Re,

merci beaucoup pour ce code sympas

A+